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