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:"