Commit e70d124c authored by Bas Lijnse's avatar Bas Lijnse

Allow extra whitespace in JSONNode fromString instance

parent 486c945b
Pipeline #30002 failed with stage
in 3 minutes and 6 seconds
...@@ -182,8 +182,9 @@ where ...@@ -182,8 +182,9 @@ where
instance fromString JSONNode instance fromString JSONNode
where where
fromString s fromString s
# (json,i) = parse 0 s # s` = trim s
| i == size s # (json,i) = parse 0 s`
| i == size s`
= json = json
= JSONError = JSONError
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment