github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-09 00:56:32 +03:00
Code Issues Projects Releases Wiki Activity

Add Throw to JSON

Browse Source
This commit is contained in:
joshvera 2016-07-29 15:33:51 -04:00
parent b97da37c79
commit 14c9f3f7a6
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Renderer/JSON.hs
View File

@ -90,6 +90,7 @@ termFields info syntax = "range" .= characterRange info : "category" .= category
S.Comment _ -> [] S.Comment _ -> []
S.Commented comments child -> childrenFields (comments <> maybeToList child) S.Commented comments child -> childrenFields (comments <> maybeToList child)
S.Error sourceSpan c -> [ "sourceSpan" .= sourceSpan ] <> childrenFields c S.Error sourceSpan c -> [ "sourceSpan" .= sourceSpan ] <> childrenFields c
S.Throw c -> [ "throwExpression" .= c ]
where childrenFields c = [ "children" .= c ] where childrenFields c = [ "children" .= c ]
patchFields :: (KeyValue kv, HasField fields Category, HasField fields Range) => SplitPatch (Term leaf (Record fields)) -> [kv] patchFields :: (KeyValue kv, HasField fields Category, HasField fields Range) => SplitPatch (Term leaf (Record fields)) -> [kv]