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

Assign boolean literals using leafNode.

Browse Source
This commit is contained in:
Rob Rix 2018-06-27 14:16:00 -04:00
parent fb1003b799
commit 21e18dcea9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Language/JSON/Assignment.hs
View File

@ -54,8 +54,9 @@ string :: Assignment Term
string = makeTerm <$> symbol String <*> (Literal.TextElement <$> source)
boolean :: Assignment Term
boolean = makeTerm <$> symbol Grammar.True <*> (Literal.true <$ rawSource)
<|> makeTerm <$> symbol Grammar.False <*> (Literal.false <$ rawSource)
boolean = toTerm
( leafNode Grammar.True $> Literal.true
<|> leafNode Grammar.False $> Literal.false)
none :: Assignment Term
none = toTerm (leafNode Null $> Literal.Null)