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

Be more lenient with property names

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