From a827e8d331cc83c6e1366e1d2f67a625e993e805 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 31 Aug 2017 22:40:40 -0400 Subject: [PATCH] Derive Foldable, Functor, & Traversable instances. --- src/Data/Syntax/Assignment/Table/Array.hs | 1 + 1 file changed, 1 insertion(+) 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