diff --git a/gitlab-haskell.cabal b/gitlab-haskell.cabal
--- a/gitlab-haskell.cabal
+++ b/gitlab-haskell.cabal
@@ -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/>
diff --git a/src/GitLab.hs b/src/GitLab.hs
--- a/src/GitLab.hs
+++ b/src/GitLab.hs
@@ -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)
diff --git a/src/GitLab/SystemHooks/GitLabSystemHooks.hs b/src/GitLab/SystemHooks/GitLabSystemHooks.hs
--- a/src/GitLab/SystemHooks/GitLabSystemHooks.hs
+++ b/src/GitLab/SystemHooks/GitLabSystemHooks.hs
@@ -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
       )
diff --git a/src/GitLab/Types.hs b/src/GitLab/Types.hs
--- a/src/GitLab/Types.hs
+++ b/src/GitLab/Types.hs
@@ -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>