Cleanup

src/Dodge/Room/Procedural.hs

@@ -35,8 +35,6 @@ import LensHelp
 import qualified Data.Set as S
 import qualified Data.IntMap.Strict as IM
 --import Control.Lens
-import Control.Monad
-import Control.Monad.State
 -- This will need a cleanup, but it might change a bit first
 {- A simple rectangular room with a light in the center.
 Creates links and pathfinding graph.  -}