acid-migrate:

* successfully forced evaluation
This commit is contained in:
"Vincent Ambo ext:(%22) 2012-03-12 14:23:45 +01:00
parent e6b91ce813
commit 93268c683c

View file

@ -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