diff --git a/src/Language/JSON/Assignment.hs b/src/Language/JSON/Assignment.hs index 12fd96db1..ec60bbcc5 100644 --- a/src/Language/JSON/Assignment.hs +++ b/src/Language/JSON/Assignment.hs @@ -35,7 +35,7 @@ assignment :: Assignment Term assignment = Syntax.handleError (value <|> parseError) value :: Assignment Term -value = branchNode Value (object <|> array) +value = branchNode Value (object <|> array <|> parseError) jsonValue :: Assignment Term jsonValue = object <|> array <|> number <|> string <|> boolean <|> none <|> parseError