diff --git a/sarsi-hs/Main.hs b/sarsi-hs/Main.hs
--- a/sarsi-hs/Main.hs
+++ b/sarsi-hs/Main.hs
@@ -47,8 +47,8 @@
       createFinish xs = foldl' f empty xs
         where
           empty = Finish 0 0
-          f (Finish w e) (Notify (Message _ Warning _)) = Finish (w + 1) e
-          f (Finish w e) (Notify (Message _ Error _))   = Finish w (e + 1)
+          f (Finish e w) (Notify (Message _ Warning _)) = Finish e (w + 1)
+          f (Finish e w) (Notify (Message _ Error _))   = Finish (e + 1) w
           f finish _ = finish
 
 main :: IO ()
diff --git a/sarsi.cabal b/sarsi.cabal
--- a/sarsi.cabal
+++ b/sarsi.cabal
@@ -1,5 +1,5 @@
 name:                sarsi
-version:             0.0.0.2
+version:             0.0.0.4
 synopsis:            A universal quickfix toolkit and his protocol.
  
 description:
@@ -66,7 +66,7 @@
   other-modules:
   build-depends:       
       base
-    , sarsi                 == 0.0.0.2
+    , sarsi                 == 0.0.0.4
     , machines
     , machines-io
     , machines-process
@@ -88,7 +88,7 @@
     -- NVIM.Info
   build-depends:       
       base
-    , sarsi                 == 0.0.0.2
+    , sarsi                 == 0.0.0.4
     , machines
     , binary
     , bytestring
@@ -111,7 +111,7 @@
   other-modules:
   build-depends:       
       base
-    , sarsi                 == 0.0.0.2
+    , sarsi                 == 0.0.0.4
     , machines
     , machines-io
     , machines-process
diff --git a/src/Codec/Sarsi.hs b/src/Codec/Sarsi.hs
--- a/src/Codec/Sarsi.hs
+++ b/src/Codec/Sarsi.hs
@@ -17,9 +17,9 @@
 instance Show Event where
   show (Start label) = concat ["starting ", unpack label, " build"]
   show (Finish 0 0) = "build success"
-  show (Finish w 0) = concat ["build success with ", show w, " warning(s)"]
-  show (Finish 0 e) = concat ["build fail with ", show e, " error(s)"]
-  show (Finish w e) = concat ["build fail with ", show e, " error(s) and ", show w, " warning(s)"]
+  show (Finish 0 w) = concat ["build success with ", show w, " warning(s)"]
+  show (Finish e 0) = concat ["build fail with ", show e, " error(s)"]
+  show (Finish e w) = concat ["build fail with ", show e, " error(s) and ", show w, " warning(s)"]
   show (Notify msg) = concat ["message=", show msg]
 
 getEvent :: Get Event