From 4abc9fed08c22176985a0412303a6b5fef357616 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Sun, 3 May 2015 14:27:18 +0100
Subject: [PATCH] [QA] properly assign succeeded/failed

---
 QA.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/QA.hs b/QA.hs
index 456bcb3..13bf4a0 100644
--- a/QA.hs
+++ b/QA.hs
@@ -126,7 +126,7 @@ main = do
   where
         summary :: [ModuleQA] -> IO ()
         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)
 
         report :: ModuleQA -> IO ()