import Data.Data (Data)
import System.Console.CmdArgs.Default (Default(..))
-import Data.Typeable (Typeable)
newtype Timeout =
Timeout { seconds :: Int }
- deriving (Data, Show, Typeable)
+ deriving (Data, Show)
instance Default Timeout where
def = Timeout 15