about summary refs log tree commit diff
diff options
context:
space:
mode:
author"Vincent Ambo ext:(%22) <tazjin@me.com>2012-03-12T13·23+0100
committer"Vincent Ambo ext:(%22) <tazjin@me.com>2012-03-12T13·23+0100
commit93268c683cf47db643a13b4a4f3a2291bc4df481 (patch)
tree61ab033fb20946db18dd67931c6fcc6d097cf576
parente6b91ce813e77a0fd87e692c7bab1d066ddf1e7b (diff)
acid-migrate:
* successfully forced evaluation
-rw-r--r--tools/acid-migrate/Acid.hs10
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