From 9252c48d2b9283423aa0ebd6abbf9a37603aa8f0 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Thu, 9 Jun 2022 11:36:15 +0100
Subject: [PATCH] Cleanup

---
 src/Dodge/Floor.hs | 1 -
 src/MonadHelp.hs   | 6 +++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/Dodge/Floor.hs b/src/Dodge/Floor.hs
index 8775238aa..cc3fefa1a 100644
--- a/src/Dodge/Floor.hs
+++ b/src/Dodge/Floor.hs
@@ -30,7 +30,6 @@ import RandomHelp
 --import Color
 --import Dodge.Wire
 
---import Control.Lens
 --import Data.Sequence hiding (zipWith)
 --import Data.Maybe
 --import qualified Data.IntMap.Strict as IM
diff --git a/src/MonadHelp.hs b/src/MonadHelp.hs
index fafd26374..a5a88f37f 100644
--- a/src/MonadHelp.hs
+++ b/src/MonadHelp.hs
@@ -1,4 +1,8 @@
-module MonadHelp where
+module MonadHelp 
+    ( module Control.Monad
+    , module MonadHelp
+    ) where
+import Control.Monad
 
 untilJust :: Monad m => m (Maybe a) -> m a
 untilJust m = go