[commit: stm] master: Fix a few typos (3659058)
Daniel Fischer
daniel.is.fischer at googlemail.com
Tue Oct 4 21:45:47 CEST 2011
Repository : ssh://darcs.haskell.org//srv/darcs/packages/stm
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/36590582cae29e58fea0d0bb78a14e622fc8f5e9
>---------------------------------------------------------------
commit 36590582cae29e58fea0d0bb78a14e622fc8f5e9
Author: Daniel Fischer <daniel.is.fischer at googlemail.com>
Date: Tue Oct 4 21:45:03 2011 +0200
Fix a few typos
>---------------------------------------------------------------
tests/stm060.hs | 2 +-
tests/stm060.stdout | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/tests/stm060.hs b/tests/stm060.hs
index 707ed59..707bf04 100644
--- a/tests/stm060.hs
+++ b/tests/stm060.hs
@@ -18,7 +18,7 @@ main = do
putStr "\nAdding a trivially true invariant (TVar access)\n"
atomically ( alwaysSucceeds ( readTVar x ) )
- putStr "\nAdding an invraiant that's false when attemted to be added\n"
+ putStr "\nAdding an invariant that's false when attempted to be added\n"
Control.Exception.catch (atomically ( do writeTVar x 100
alwaysSucceeds ( do v <- readTVar x
if (v == 100) then throw (ErrorCall "URK") else return () )
diff --git a/tests/stm060.stdout b/tests/stm060.stdout
index 5839ea3..b476708 100644
--- a/tests/stm060.stdout
+++ b/tests/stm060.stdout
@@ -7,7 +7,7 @@ Adding trivially true invariant (no TVar access)
Adding a trivially true invariant (TVar access)
-Adding an invraiant that's false when attemted to be added
+Adding an invariant that's false when attempted to be added
Caught: URK
Writing to a TVar watched by a trivially true invariant
@@ -23,7 +23,7 @@ Adding a trivially false invariant (no TVar access)
Caught: Exn raised in invariant
Adding a trivially false invariant (no TVar access)
-Caught: Transacional invariant violation
+Caught: Transactional invariant violation
Adding a trivially false invariant (with TVar access)
Caught: Exn raised in invariant
More information about the Cvs-libraries
mailing list