github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00
Code Issues Projects Releases Wiki Activity

Preliminary step towards outputting the JSON representation of the ParseJSON structures, but this only traverses one level of depth.

Browse Source
This commit is contained in:
Rick Winfrey 2016-11-09 17:46:08 -06:00
parent 92337cd70b
commit 9e9e48bdc2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Parse.hs
View File

@ -35,7 +35,7 @@ run Arguments{..} = do
terms <- traverse (uncurry folder) parsersAndBlobs terms <- traverse (uncurry folder) parsersAndBlobs
putStrLn $ encodePretty terms traverse_ (\ (parseJSON :< annotation) -> putStrLn . encodePretty $ parseJSON) (runCofree <$> terms)
pure () pure ()
where where