Added Eq derivation for FractranProgram and ThueProgram datatypes

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