Repository : http://darcs.haskell.org/ghc.git/
On branch : ghc-lwc2 http://hackage.haskell.org/trac/ghc/changeset/dfaa5b75f84178202b9eedac0efaee9ddf9281d5 >--------------------------------------------------------------- commit dfaa5b75f84178202b9eedac0efaee9ddf9281d5 Author: KC Sivaramakrishnan <chand...@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) _______________________________________________ ghc-commits mailing list ghc-commits@haskell.org http://www.haskell.org/mailman/listinfo/ghc-commits
