filipg/gonito
1
0
Fork 1
Code Issues 1 Pull Requests Releases Wiki Activity

Add logging progress in a simple script

Browse Source
This commit is contained in:
Filip Gralinski 2021-02-24 06:55:46 +01:00
parent 8652d087fb
commit c115e31f34
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/upgrade-to-0-2.hs
View File

@ -42,16 +42,19 @@ process dbName = do
return (variant, submission, out, test)
Prelude.putStrLn "Adding evaluations…"
_ <- mapM (processVariant dbName) variants
let total = length variants
putStrLn $ "TOTAL " ++ (show total)
_ <- mapM (\(v, ix) -> processVariant total ix dbName v) $ zip variants [1..]
putStrLn "DELETING"
runOnDb dbName $ deleteWhere [EvaluationVersion ==. Nothing]
return ()
processVariant :: String -> (Entity Variant, Entity Submission, Entity Out, Entity Test) -> IO ()
processVariant dbName (variant, Entity _ submission, Entity _ out, Entity testId _) = do
processVariant :: Int -> Int -> String -> (Entity Variant, Entity Submission, Entity Out, Entity Test) -> IO ()
processVariant total ix dbName (variant, Entity _ submission, Entity _ out, Entity testId _) = do
Prelude.putStrLn (show $ entityKey variant)
Prelude.putStrLn ((show ix) ++ "/" ++ (show total))
evaluations <- runOnDb dbName
$ E.select $ E.from $ \evaluation -> do