From 8f67f0c55b845c80973fcec0fbaef9879f677b91 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Sun, 5 Oct 2025 19:53:36 -0400
Subject: fig-monitor-twitch: Print failed poll

---
 fig-cli/src/Fig/CLI.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'fig-cli/src/Fig/CLI.hs')

diff --git a/fig-cli/src/Fig/CLI.hs b/fig-cli/src/Fig/CLI.hs
index 36df60d..704153d 100644
--- a/fig-cli/src/Fig/CLI.hs
+++ b/fig-cli/src/Fig/CLI.hs
@@ -23,5 +23,6 @@ main = do
     ( fullDesc
     <> Options.Applicative.header "fig-cli - assorted tools"
     )
-  let sexp = parseSExpr opts.sexpr
-  log $ tshow (sexp, pretty <$> sexp)
+  let x = parseSExpr opts.sexpr
+  log $ tshow (opts.sexpr, x, pretty <$> x, parseSExpr . pretty =<< x)
+  log $ tshow $ (pretty <$> x) == Just opts.sexpr
-- 
cgit v1.2.3