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(def))
  11
  12 newtype Timeout =
  13   Timeout { seconds :: Int }
  14   deriving (Data, Show)
  15
  16 instance Default Timeout where
  17   def = Timeout 15