diff options
author | Jed Barber <jjbarber@y7mail.com> | 2014-02-07 19:20:30 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2014-02-07 19:25:12 +1100 |
commit | 86e6592ba70e0a2cf4fb162a32e0fb1b7175402c (patch) | |
tree | 43b4dd7608100abb56fc41592879d4d54a50e090 | |
parent | 29ec75e72f7b0c71442d9cd22d387ad0726bdd04 (diff) |
Changed datatypes to have more unique names
-rw-r--r-- | Thue/Parser.hs | 16 |
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 |