From 9263ec22c381ea426819317158d19d9aff1889da Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 10 Feb 2014 19:53:40 +1100
Subject: Added Eq derivation for FractranProgram and ThueProgram datatypes

---
 Fractran/Parser.hs | 2 +-
 Thue/Parser.hs     | 2 +-
 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
-- 
cgit