packages feed

sarsi 0.0.0.2 → 0.0.0.4

raw patch · 3 files changed

+9/−9 lines, 3 filesdep ~sarsiPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: sarsi

API changes (from Hackage documentation)

Files

sarsi-hs/Main.hs view
@@ -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 ()
sarsi.cabal view
@@ -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
src/Codec/Sarsi.hs view
@@ -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