gitlab-haskell 1.0.2.1 → 1.0.2.2

raw patch · 4 files changed

+5/−7 lines, 4 files

Files

• gitlab-haskell.cabal +1/−1
• src/GitLab/SystemHooks/GitLabSystemHooks.hs +2/−2
• src/GitLab/SystemHooks/Types.hs +1/−1
• src/GitLab/Types.hs +1/−3

@@ -1,7 +1,7 @@ cabal-version: 2.4 name:           gitlab-haskell category:       Git-version:        1.0.2.1+version:        1.0.2.2 synopsis:       A Haskell library for the GitLab web API description:             This library lifts the GitLab REST API into Haskell: <https://docs.gitlab.com/ee/api/>

@@ -45,7 +45,7 @@   didFire <- mapM (fire eventContent) rules   when (not (or didFire)) $ do     cfg <- MR.asks serverCfg-    when (debugSystemHooks cfg == Just UnprocessedEvents || debugSystemHooks cfg == Just AllEvents) $ liftIO $ do+    when (debugSystemHooks cfg == Just UnprocessedEvents) $ liftIO $ do       fpath <- writeSystemTempFile "gitlab-system-hook-unprocessed-" (T.unpack eventContent)       void $ setFileMode fpath otherReadMode @@ -54,7 +54,7 @@   cfg <- MR.asks serverCfg   liftIO $     E.catch-      ( when (debugSystemHooks cfg == Just AllJSON || debugSystemHooks cfg == Just AllEvents) $ do+      ( when (debugSystemHooks cfg == Just AllJSON) $ do           fpath <- writeSystemTempFile "gitlab-system-hook-" (T.unpack eventContent)           void $ setFileMode fpath otherReadMode       )

@@ -1477,4 +1477,4 @@   parseJSON (String "tag_push") = return TagPushed   parseJSON (String "repository_update") = return RepositoryUpdated   parseJSON (String "merge_request") = return MergeRequested-  parseJSON s = error ("unexpected system hook event: " <> show s)+  parseJSON s = fail ("unexpected system hook event: " <> show s)

@@ -154,9 +154,7 @@   }  data DebugSystemHooks-  = -- | Report all JSON objects received and unprocessed events-    AllEvents-  | -- | Report unprocessed events+  = -- | Report JSON objects only of unprocessed events     UnprocessedEvents   | -- | Report all JSON objects received     AllJSON