From: Bas van Dijk <v.dijk.bas@gmail.com>
Date: Tue, 15 Feb 2011 21:24:57 +0000 (+0000)
Subject: Make the Timeout exception a newtype instead of a datatype
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=65fbf7950f7f5d566e07dff5b650b9187cd97c11

Make the Timeout exception a newtype instead of a datatype
---

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