From 15bccc001a5ff2e76d0890f85e300e9312cddd1b Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Fri, 12 Aug 2011 03:18:46 +0200 Subject: Some strictness optimizations --- lib/Phi/Phi.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Phi/Phi.hs') diff --git a/lib/Phi/Phi.hs b/lib/Phi/Phi.hs index 94655d4..df71a1c 100644 --- a/lib/Phi/Phi.hs +++ b/lib/Phi/Phi.hs @@ -17,7 +17,7 @@ import Control.Monad.IO.Class import Data.Typeable -data Phi = Phi (TChan Message) +data Phi = Phi !(TChan Message) data Message = forall a. (Typeable a, Show a) => Message a deriving instance Show Message -- cgit v1.2.3