diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-12 03:18:46 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-12 03:18:46 +0200 |
commit | 15bccc001a5ff2e76d0890f85e300e9312cddd1b (patch) | |
tree | 2e880537f1a1eedebe021ffbd3cb521c2a8c3a28 /lib/Phi/Phi.hs | |
parent | 180285af85c4c6c02c885dd6c276a33e0bf00d1a (diff) | |
download | phi-15bccc001a5ff2e76d0890f85e300e9312cddd1b.tar phi-15bccc001a5ff2e76d0890f85e300e9312cddd1b.zip |
Some strictness optimizations
Diffstat (limited to 'lib/Phi/Phi.hs')
-rw-r--r-- | lib/Phi/Phi.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |