Be more lenient with property names

23b05936 · Camil Staps · a18ebf4d · 23b05936
Verified Commit 23b05936 authored Jun 07, 2018 by Camil Staps 🚀
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Clean/Doc.icl Clean/Doc.icl +1 -1

No files found.
--- a/Clean/Doc.icl
+++ b/Clean/Doc.icl
@@ -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