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

Add parseError to value Assignment in the JSON parser

Browse Source
This commit is contained in:
joshvera 2017-07-20 11:12:08 -04:00
parent 0b497fb8a2
commit f7a7a2c180
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/Language/JSON/Syntax.hs
View File

@ -44,7 +44,7 @@ assignment :: Assignment
assignment = object <|> array <|> parseError
value :: Assignment
value = object <|> array <|> number <|> string <|> boolean <|> none
value = object <|> array <|> number <|> string <|> boolean <|> none <|> parseError
object :: Assignment
object = makeTerm <$> symbol Object <*> children (Literal.Hash <$> many pairs)