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

Get all the fields uniformly.

Browse Source
This commit is contained in:
Rob Rix 2017-04-27 16:58:39 -04:00
parent a5a86b33ea
commit 17d413d267
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/Renderer/JSON.hs
View File

@ -229,7 +229,7 @@ jsonParseTree' constructor combine debug SourceBlob{..} term = toJSON $ construc
algebra (annotation :< syntax) = combine (makeNode annotation) (toList (Prologue.snd <$> syntax))
makeNode :: HasDefaultFields fields => Record (Maybe SourceText ': Maybe Text ': fields) -> ParseNode
makeNode (sourceText :. record) = ParseNode (getField record) (getField record) sourceText (getField record) (getField record)
makeNode record = ParseNode (getField record) (getField record) (getField record) (getField record) (getField record)
-- | Decorate a 'Term' using a function to compute the annotation values at every node.
decorateTerm :: (Functor f, HasDefaultFields fields) => TermDecorator f fields field -> Term f (Record fields) -> Term f (Record (field ': fields))