acid-migrate:
* successfully forced evaluation
This commit is contained in:
parent
e6b91ce813
commit
93268c683c
1 changed files with 5 additions and 5 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue