1 files changed, 5 insertions, 2 deletions
diff --git a/Main.hs b/Main.hs
index 278e92e..65de635 100644
--- a/Main.hs
+++ b/Main.hs
@@ -124,8 +124,11 @@ opts = do
          , showDefault
          ]
   optDebug <-
-    flag' True ~~ [long "debug", help "be super verbose about what's happening"]
-      <|> pure False
+    asum
+      [ flag' True
+          ~~ [long "debug", help "be super verbose about what's happening"]
+      , pure False
+      ]
   pure Opts {..}
 
 delaySec :: Float -> IO ()