diff options
| -rw-r--r-- | tools/acid-migrate/Acid.hs | 10 |
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 |