X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FTimeout.hs;h=dbd7181b42145957d5688ff8dd8134ec96c9abe0;hb=65fbf7950f7f5d566e07dff5b650b9187cd97c11;hp=b1c79b3c161925cd8596fe1caabedd46d96884b9;hpb=755c6efb0bfac5c176ac9af1a5abab98001a17da;p=ghc-base.git

diff --git a/System/Timeout.hs b/System/Timeout.hs
index b1c79b3..dbd7181 100644
--- a/System/Timeout.hs
+++ b/System/Timeout.hs
@@ -34,7 +34,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