mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
Add Throw to JSON
This commit is contained in:
parent
b97da37c79
commit
14c9f3f7a6
@ -90,6 +90,7 @@ termFields info syntax = "range" .= characterRange info : "category" .= category
|
||||
S.Comment _ -> []
|
||||
S.Commented comments child -> childrenFields (comments <> maybeToList child)
|
||||
S.Error sourceSpan c -> [ "sourceSpan" .= sourceSpan ] <> childrenFields c
|
||||
S.Throw c -> [ "throwExpression" .= c ]
|
||||
where childrenFields c = [ "children" .= c ]
|
||||
|
||||
patchFields :: (KeyValue kv, HasField fields Category, HasField fields Range) => SplitPatch (Term leaf (Record fields)) -> [kv]
|
||||
|
Loading…
Reference in New Issue
Block a user