acid-migrate:

* successfully forced evaluation

1 files changed, 5 insertions, 5 deletions

diff --git a/tools/acid-migrate/Acid.hs b/tools/acid-migrate/Acid.hs
index fa7ee06d1557..756f215e551b 100644
--- a/tools/acid-migrate/Acid.hs
+++ b/tools/acid-migrate/Acid.hs
@@ -261,10 +261,10 @@ main = do
 
 convertEntries acid = do
     entries <- parseOldEntries
-    let x = map (pasteToDB acid) entries
-    let y = map forceHack x
-    putStrLn $ show entries
+    let r =  map forceHack entries
+    rs <- sequence r
+    putStrLn $ show rs
   where
     forceHack !x = do
-        xy <- x
-        return x
+        xy <- pasteToDB acid x
+        return $ show xy