From 93268c683cf47db643a13b4a4f3a2291bc4df481 Mon Sep 17 00:00:00 2001
From: "\"Vincent Ambo ext:(%22)" <tazjin@me.com>
Date: Mon, 12 Mar 2012 14:23:45 +0100
Subject: [PATCH] acid-migrate: * successfully forced evaluation

---
 tools/acid-migrate/Acid.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/tools/acid-migrate/Acid.hs b/tools/acid-migrate/Acid.hs
index fa7ee06d1..756f215e5 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