From fcbefe2a117cd8308a326dfc1ae035342a35521e Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Thu, 31 Aug 2017 23:12:29 -0400
Subject: [PATCH] Derive Eq & Show instances for Table.

---
 src/Data/Syntax/Assignment/Table/Array.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/Syntax/Assignment/Table/Array.hs b/src/Data/Syntax/Assignment/Table/Array.hs
index 95b0d0b63..faabed48a 100644
--- a/src/Data/Syntax/Assignment/Table/Array.hs
+++ b/src/Data/Syntax/Assignment/Table/Array.hs
@@ -15,7 +15,7 @@ import GHC.Stack
 import Prelude hiding (lookup)
 
 data Table i a = Table { tableAddresses :: [i], tableBranches :: Array i (Maybe a) }
-  deriving (Foldable, Functor, Traversable)
+  deriving (Eq, Foldable, Functor, Show, Traversable)
 
 singleton :: Ix i => i -> a -> Table i a
 singleton i a = Table [i] (listArray (i, i) [Just a])