haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[QA] properly assign succeeded/failed

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-03 14:27:18 +01:00
parent 0d812c9e28
commit 4abc9fed08
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
QA.hs
View File

@ -126,7 +126,7 @@ main = do
where where
summary :: [ModuleQA] -> IO () summary :: [ModuleQA] -> IO ()
summary l = do summary l = do
let (failed, succeeded) = (length *** length) $ partition (null . moduleGetIssues) l let (succeeded, failed) = (length *** length) $ partition (null . moduleGetIssues) l
putStrLn ("failed: " ++ show failed ++ " succeeded: " ++ show succeeded) putStrLn ("failed: " ++ show failed ++ " succeeded: " ++ show succeeded)
report :: ModuleQA -> IO () report :: ModuleQA -> IO ()