summaryrefslogtreecommitdiff
path: root/Thue
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2014-02-07 19:20:30 +1100
committerJed Barber <jjbarber@y7mail.com>2014-02-07 19:25:12 +1100
commit86e6592ba70e0a2cf4fb162a32e0fb1b7175402c (patch)
tree43b4dd7608100abb56fc41592879d4d54a50e090 /Thue
parent29ec75e72f7b0c71442d9cd22d387ad0726bdd04 (diff)
Changed datatypes to have more unique names
Diffstat (limited to 'Thue')
-rw-r--r--Thue/Parser.hs16
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