From 008b812c9c15d7f4eb47d21ed4b89e82e9388d76 Mon Sep 17 00:00:00 2001
From: Arnaud Bailly <arnaud.oqube@gmail.com>
Date: Fri, 8 Sep 2017 07:54:38 +0200
Subject: [PATCH] fix #111

---
 dejafu/Test/DejaFu/STM/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dejafu/Test/DejaFu/STM/Internal.hs b/dejafu/Test/DejaFu/STM/Internal.hs
index 3e9cd3e6..c124976f 100755
--- 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