0b0f2e12798d507737cdcf203c33c9957b2e4855
[haeredes.git] / src / Timeout.hs
1 {-# LANGUAGE DeriveDataTypeable #-}
2
3 -- | A newtype around the DNS query timeout, in seconds. Needed for
4 -- the 'Default' instance.
5 --
6 module Timeout
7 where
8
9 import Data.Data (Data)
10 import System.Console.CmdArgs.Default (Default(..))
11
12 newtype Timeout =
13 Timeout { seconds :: Int }
14 deriving (Data, Show)
15
16 instance Default Timeout where
17 def = Timeout 15