diff --git a/src/Data/Syntax/Assignment/Table/Array.hs b/src/Data/Syntax/Assignment/Table/Array.hs
index 9369595be..9a0dd5a5d 100644
--- a/src/Data/Syntax/Assignment/Table/Array.hs
+++ b/src/Data/Syntax/Assignment/Table/Array.hs
@@ -7,6 +7,7 @@ import Data.Foldable (toList)
 import Data.Functor.Classes
 
 data Table i a = Table { tableAddresses :: [i], tableBranches :: Array i (Maybe a) }
+  deriving (Foldable, Functor, Traversable)
 
 
 instance (Ix i, Show i) => Show1 (Table i) where