-- | A newtype around the DNS query timeout, in seconds. Needed for
-- the 'Default' instance.
--
-module Timeout
+module Timeout (Timeout(..))
where
import Data.Data (Data)
-import System.Console.CmdArgs.Default (Default(..))
-import Data.Typeable (Typeable)
+import System.Console.CmdArgs.Default (Default(def))
newtype Timeout =
Timeout { seconds :: Int }
- deriving (Data, Show, Typeable)
+ deriving (Data, Show)
instance Default Timeout where
def = Timeout 15