Pretty print expressions when using -v5 and just --parse

2018-05-06 22:13:44 -07:00 · 2018-05-06 22:13:44 -07:00 · 1a376598a6
parent 2457efdaa3
commit 1a376598a6
1 changed files with 1 additions and 1 deletions
--- a/main/Main.hs
+++ b/main/Main.hs
@ -116,7 +116,7 @@ main = do
                  A.encodeToLazyText (stripAnnotation expr)

        | verbose opts >= DebugInfo =
-              liftIO $ print $ stripAnnotation expr
+              liftIO $ putStr $ PS.ppShow $ stripAnnotation expr

        | cache opts, Just path <- mpath =
              liftIO $ writeCache (addExtension (dropExtension path) "nixc") expr