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