diff options
| -rw-r--r-- | Thue/Parser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Thue/Parser.hs b/Thue/Parser.hs index 1eb7943..0971324 100644 --- a/Thue/Parser.hs +++ b/Thue/Parser.hs @@ -60,7 +60,7 @@ ruleState = many ruleStateChar ruleStateChar = noneOf "\n\r:" - <|> try (do { char ':'; notFollowedBy (string ":="); return ':'}) + <|> try (char ':' >> notFollowedBy (string ":=") >> return ':') state = many stateChar |