From 317ac73190513b493b652ea036569d2933182ec9 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@matfyz.cuni.cz>
Date: Fri, 11 Sep 2026 13:25:26 +0200
Subject: tabulate more

---
 Main.hs | 7 +++++--
 1 file 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 ()
-- 
cgit v1.2.3