From 65fbf7950f7f5d566e07dff5b650b9187cd97c11 Mon Sep 17 00:00:00 2001 From: Bas van Dijk Date: Tue, 15 Feb 2011 21:24:57 +0000 Subject: [PATCH] Make the Timeout exception a newtype instead of a datatype --- System/Timeout.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4