diff options
| author | LLLL Colonq <llll@colonq> | 2025-10-05 19:53:36 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-10-05 19:53:36 -0400 |
| commit | 8f67f0c55b845c80973fcec0fbaef9879f677b91 (patch) | |
| tree | 21204ea94ceb4d04c2096ea1c9f9cec478e6f2ee /fig-cli/src/Fig/CLI.hs | |
| parent | 874be6e6a13b89a87012af9d295d864632ad7cd6 (diff) | |
fig-monitor-twitch: Print failed poll
Diffstat (limited to 'fig-cli/src/Fig/CLI.hs')
| -rw-r--r-- | fig-cli/src/Fig/CLI.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |