X-Git-Url: http://gitweb.michael.orlitzky.com/?p=haeredes.git;a=blobdiff_plain;f=src%2FTimeout.hs;h=8184b3eae92f6339e87e9834277b0f6fe0b7b114;hp=6f0f3d4d991417f56c409bbe6731c0580de81437;hb=78aed23927af1734e0adf03095a617ba5ddbea01;hpb=f9610a6d357f2ed79f2f18baa477244970f8b40f

diff --git a/src/Timeout.hs b/src/Timeout.hs
index 6f0f3d4..8184b3e 100644
--- a/src/Timeout.hs
+++ b/src/Timeout.hs
@@ -3,16 +3,15 @@
 -- | 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