1 {-# LANGUAGE DeriveDataTypeable #-}
3 -- | A newtype around the DNS query timeout, in seconds. Needed for
4 -- the 'Default' instance.
9 import Data.Data (Data)
10 import System.Console.CmdArgs.Default (Default(..))
11 import Data.Typeable (Typeable)
14 Timeout { seconds :: Int }
15 deriving (Data, Show, Typeable)
17 instance Default Timeout where