Changed datatypes to have more unique names

1 files changed, 8 insertions, 8 deletions

diff --git a/Thue/Parser.hs b/Thue/Parser.hs
index dd40e23..3073014 100644
--- a/Thue/Parser.hs
+++ b/Thue/Parser.hs
@@ -1,7 +1,7 @@
 module Parser (
 	ThueProgram(..),
-	Rule(..),
-	State,
+	ThueRule(..),
+	ThueState,
 
 	parseThue
 	) where
@@ -10,17 +10,17 @@ import Text.ParserCombinators.Parsec
 
 
 
-data ThueProgram = ThueProgram { thueRules :: [Rule]
-                               , thueInitialState :: State }
+data ThueProgram = ThueProgram { thueRules :: [ThueRule]
+                               , thueInitialState :: ThueState }
     deriving (Show)
 
 
-data Rule = Rule { original :: State
-                 , replacement :: State }
+data ThueRule = ThueRule { original :: ThueState
+                         , replacement :: ThueState }
     deriving (Show)
 
 
-type State = String
+type ThueState = String
 
 
 
@@ -44,7 +44,7 @@ rule = do
 	separator
 	r <- state
 	eol
-	return (Rule o r)
+	return (ThueRule o r)
 
 
 separatorLine = whiteSpace >> separator >> whiteSpace >> eol