diff --git a/src/Parse.hs b/src/Parse.hs index 8a397a8a2..b53ace5a8 100644 --- a/src/Parse.hs +++ b/src/Parse.hs @@ -35,7 +35,7 @@ run Arguments{..} = do terms <- traverse (uncurry folder) parsersAndBlobs - putStrLn $ encodePretty terms + traverse_ (\ (parseJSON :< annotation) -> putStrLn . encodePretty $ parseJSON) (runCofree <$> terms) pure () where