From a26f0f29c02bfb4ec56781397d60abeb498b8c12 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sat, 26 Nov 2022 13:35:19 +0100
Subject: massive cleanup

---
 app/Code.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'app/Code.hs')

diff --git a/app/Code.hs b/app/Code.hs
index b1c474b..8bea782 100644
--- a/app/Code.hs
+++ b/app/Code.hs
@@ -2,11 +2,11 @@
 
 module Code where
 
-import Control.Monad.Trans.State.Lazy
+import Control.Monad.Trans.State.Lazy (StateT)
 import qualified Data.Map as M
 import IR (Id(..), StrTable)
 import Operators (Ops)
-import System.Console.Haskeline
+import System.Console.Haskeline (InputT)
 
 data Datum
   = Atom Int -- unifies a constant
@@ -73,6 +73,7 @@ data Builtin =
 instance Show Builtin where
   show _ = "Builtin _"
 
+-- TODO are we actually going to use this?
 codeStruct ::
      Monad m
   => (Datum -> m a)
-- 
cgit v1.2.3