summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2014-02-10 19:53:40 +1100
committerJed Barber <jjbarber@y7mail.com>2014-02-10 19:53:40 +1100
commit9263ec22c381ea426819317158d19d9aff1889da (patch)
treecc53bde5e1624029f07eaf12d51f01a12e210918
parent81b11d4ee31af630cd44e0bed909de2b9e576783 (diff)
Added Eq derivation for FractranProgram and ThueProgram datatypes
-rw-r--r--Fractran/Parser.hs2
-rw-r--r--Thue/Parser.hs2
2 files changed, 2 insertions, 2 deletions
diff --git a/Fractran/Parser.hs b/Fractran/Parser.hs
index f4a793b..576f8a0 100644
--- a/Fractran/Parser.hs
+++ b/Fractran/Parser.hs
@@ -12,7 +12,7 @@ import Text.ParserCombinators.Parsec
data FractranProgram = FractranProgram { fractions :: [(Int,Int)]
, initialValue :: Int }
- deriving (Show)
+ deriving (Show, Eq)
diff --git a/Thue/Parser.hs b/Thue/Parser.hs
index 948035d..d9db99d 100644
--- a/Thue/Parser.hs
+++ b/Thue/Parser.hs
@@ -12,7 +12,7 @@ import Text.ParserCombinators.Parsec
data ThueProgram = ThueProgram { thueRules :: [ThueRule]
, thueInitialState :: ThueState }
- deriving (Show)
+ deriving (Show, Eq)
data ThueRule = ThueRule { original :: ThueState