Merge pull request #114 from symbiont-io/master

fix #111
barrucadu · Sep 8, 2017 · 060939d · 060939d
2 parents 89728f0 + 008b812
commit 060939d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/dejafu/Test/DejaFu/STM/Internal.hs b/dejafu/Test/DejaFu/STM/Internal.hs
@@ -151,7 +151,7 @@ doTransaction ma idsource = do
 
       let newIDSource = nidsrc'
           newAct = act'
-          newUndo = undo >> undo'
+          newUndo = undo' >> undo
           newReaden = readen' ++ readen
           newWritten = written' ++ written
           newSofar = tact : sofar