[commit: base] master: Fix typo in error message (6cc0a23)

[Daniel Fischer]

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 <daniel.is.fischer at googlemail.com>
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)