diff options
| author | Daniel Fischer <daniel.is.fischer@googlemail.com> | 2011-10-04 20:30:38 +0200 |
|---|---|---|
| committer | Daniel Fischer <daniel.is.fischer@googlemail.com> | 2011-10-04 20:30:38 +0200 |
| commit | 61079847e28f8222e8d3b4f8889ebcea67d45bb3 (patch) | |
| tree | 151f0b83504742d7fa00370de8e9e721451730f6 /libraries | |
| parent | 3db78d16234c2dc502a209ccc982bc98f6e72f7b (diff) | |
| download | haskell-61079847e28f8222e8d3b4f8889ebcea67d45bb3.tar.gz | |
Fix typo in error message
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/base/GHC/Conc/Sync.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/Conc/Sync.lhs b/libraries/base/GHC/Conc/Sync.lhs index c45f0c979d..effca6a730 100644 --- a/libraries/base/GHC/Conc/Sync.lhs +++ b/libraries/base/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) |