diff options
Diffstat (limited to 'fig-cli/src')
| -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 |