gitlab-haskell 1.0.2.0 → 1.0.2.1

raw patch · 4 files changed

+6/−8 lines, 4 files

Files

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

@@ -1,7 +1,7 @@ cabal-version: 2.4 name:           gitlab-haskell category:       Git-version:        1.0.2.0+version:        1.0.2.1 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/>

@@ -131,5 +131,5 @@ runGitLabDbg (GitLabT action) = do   liftIO $ hSetBuffering stdout LineBuffering   manager <- liftIO $ newManager (mkManagerSettings def Nothing)-  let cfg = GitLabServerConfig {url = "", token = AuthMethodToken "", retries = 1, debugSystemHooks = NoHookDebugging}+  let cfg = GitLabServerConfig {url = "", token = AuthMethodToken "", retries = 1, debugSystemHooks = Nothing}   runReaderT action (GitLabState cfg manager)

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

@@ -150,7 +150,7 @@     -- | how many times to retry a HTTP request before giving up and returning an error.     retries :: Int,     -- | write system hook events to files in the system temporary directory.-    debugSystemHooks :: DebugSystemHooks+    debugSystemHooks :: Maybe DebugSystemHooks   }  data DebugSystemHooks@@ -160,8 +160,6 @@     UnprocessedEvents   | -- | Report all JSON objects received     AllJSON-  | -- | No debugging-    NoHookDebugging   deriving (Eq)  -- | default settings, the 'url' and 'token' values will need to be overwritten.@@ -171,7 +169,7 @@     { url = "https://gitlab.com",       token = AuthMethodToken "",       retries = 5,-      debugSystemHooks = NoHookDebugging+      debugSystemHooks = Nothing     }  -- | personal access token, see <https://docs.gitlab.com/ee/user/profile/personal_access_tokens.html>