diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-02-08 03:36:39 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-02-08 03:36:39 +1100 |
| commit | 6f4d0ba664d9fdcea2f9b8188d218cce83916758 (patch) | |
| tree | 220478f68e8099715a75ada282e22c8ffe17e546 | |
| parent | a1965bf332d3259fb3e2e9d152a42ab37d61841e (diff) | |
Removed one line do notation for readability
| -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 |