[commit: ghc] ghc-lwc2: Removing strictness additive from MVar (dfaa5b7)

[Sivaramakrishnan Krishnamoorthy Chandrasekaran]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : ghc-lwc2

http://hackage.haskell.org/trac/ghc/changeset/dfaa5b75f84178202b9eedac0efaee9ddf9281d5

>---------------------------------------------------------------

commit dfaa5b75f84178202b9eedac0efaee9ddf9281d5
Author: KC Sivaramakrishnan <chandras at cs.purdue.edu>
Date:   Sat Mar 2 19:42:40 2013 -0500

    Removing strictness additive from MVar

>---------------------------------------------------------------

 libraries/lwconc/LwConc/MVar.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libraries/lwconc/LwConc/MVar.hs b/libraries/lwconc/LwConc/MVar.hs
index 9b76f50..24492ff 100644
--- a/libraries/lwconc/LwConc/MVar.hs
+++ b/libraries/lwconc/LwConc/MVar.hs
@@ -42,8 +42,8 @@ import qualified Data.Sequence as Seq
 import GHC.IORef
 
 newtype MVar a = MVar (PVar (MVPState a)) deriving (Eq)
-data MVPState a = Full a !(Seq.Seq (a, PTM()))
-                | Empty !(Seq.Seq (IORef a, PTM()))
+data MVPState a = Full a (Seq.Seq (a, PTM()))
+                | Empty (Seq.Seq (IORef a, PTM()))
 
 
 newMVar :: a -> IO (MVar a)