Cleanup

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

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