From 93a990ce43d12285915c3d0da1b34cb31f1d8204 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Thu, 31 Aug 2017 23:20:48 -0400
Subject: [PATCH] Stub in a datatype for an IntMap-based jump table.

---
 src/Data/Syntax/Assignment/Table/IntMap.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/Data/Syntax/Assignment/Table/IntMap.hs b/src/Data/Syntax/Assignment/Table/IntMap.hs
index c09214d2d..074c9f178 100644
--- a/src/Data/Syntax/Assignment/Table/IntMap.hs
+++ b/src/Data/Syntax/Assignment/Table/IntMap.hs
@@ -1 +1,5 @@
 module Data.Syntax.Assignment.Table.IntMap where
+import qualified Data.IntMap as IntMap
+
+data Table i a = Table { tableAddresses :: [i], tableBranches :: IntMap.IntMap a }
+  deriving (Eq, Foldable, Functor, Show, Traversable)