Verified Commit 23b05936 authored by Camil Staps's avatar Camil Staps 🚀

Be more lenient with property names

parent a18ebf4d
...@@ -151,7 +151,7 @@ where ...@@ -151,7 +151,7 @@ where
where where
parser :: Parser Char (!String, ![(!String, !Type)]) parser :: Parser Char (!String, ![(!String, !Type)])
parser = skipSpaces *> parser = skipSpaces *>
pMany (pSatisfy \c -> c <> ':' && not (isSpace c)) >>= \name -> pMany (pSatisfy ((<>) ':')) >>= \name ->
skipSpaces *> pToken ':' *> skipSpaces *> pToken ':' *>
((skipSpaces *> pToken 'A' *> pToken '.' *> ((skipSpaces *> pToken 'A' *> pToken '.' *>
pMany pMany
......
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