diff options
| -rw-r--r-- | Thue/Parser.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Thue/Parser.hs b/Thue/Parser.hs index d9db99d..d7b0719 100644 --- a/Thue/Parser.hs +++ b/Thue/Parser.hs @@ -6,6 +6,7 @@ module Thue.Parser ( parseThue ) where +import Control.Applicative( some ) import Text.ParserCombinators.Parsec @@ -56,7 +57,7 @@ initialState = do return (concat s) -ruleState = many ruleStateChar +ruleState = some ruleStateChar ruleStateChar = noneOf "\n\r:" |