Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/6cc0a23d1f0d9db3fb9ebb5400f5470513a83c1e >--------------------------------------------------------------- commit 6cc0a23d1f0d9db3fb9ebb5400f5470513a83c1e Author: Daniel Fischer <[email protected]> Date: Tue Oct 4 20:30:38 2011 +0200 Fix typo in error message >--------------------------------------------------------------- GHC/Conc/Sync.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/GHC/Conc/Sync.lhs b/GHC/Conc/Sync.lhs index c45f0c9..effca6a 100644 --- a/GHC/Conc/Sync.lhs +++ b/GHC/Conc/Sync.lhs @@ -654,7 +654,7 @@ alwaysSucceeds i = do ( i >> retry ) `orElse` ( return () ) -- False or raising an exception are both treated as invariant failures. always :: STM Bool -> STM () always i = alwaysSucceeds ( do v <- i - if (v) then return () else ( error "Transacional invariant violation" ) ) + if (v) then return () else ( error "Transactional invariant violation" ) ) -- |Shared memory locations that support atomic memory transactions. data TVar a = TVar (TVar# RealWorld a) _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
