X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FTimeout.hs;h=df33625c8d4cca3f8b51052c4c87492481d4cd5f;hb=7dbb606d7b57cdad87a0ffbdb6ea4a274ebca7c0;hp=431f709a259273857669de2704c40f6384c78ab5;hpb=1fc945f3ff888665d92152963dba851726c6d529;p=ghc-base.git

diff --git a/System/Timeout.hs b/System/Timeout.hs
index 431f709..df33625 100644
--- a/System/Timeout.hs
+++ b/System/Timeout.hs
@@ -1,3 +1,8 @@
+{-# LANGUAGE CPP #-}
+#ifdef __GLASGOW_HASKELL__
+{-# LANGUAGE DeriveDataTypeable, StandaloneDeriving #-}
+#endif
+
 -------------------------------------------------------------------------------
 -- |
 -- Module      :  System.Timeout
@@ -32,7 +37,7 @@ import Data.Unique         (Unique, newUnique)
 -- interrupt the running IO computation when the timeout has
 -- expired.
 
-data Timeout = Timeout Unique deriving Eq
+newtype Timeout = Timeout Unique deriving Eq
 INSTANCE_TYPEABLE0(Timeout,timeoutTc,"Timeout")
 
 instance Show Timeout where