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