X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTimeout.hs;h=70cadf91d16152d9e10b8e646db429d8843fbee7;hb=1f5b4bba909243a4feda445e3c38e399249b229f;hp=6f0f3d4d991417f56c409bbe6731c0580de81437;hpb=f9610a6d357f2ed79f2f18baa477244970f8b40f;p=haeredes.git diff --git a/src/Timeout.hs b/src/Timeout.hs index 6f0f3d4..70cadf9 100644 --- a/src/Timeout.hs +++ b/src/Timeout.hs @@ -7,12 +7,11 @@ module 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