Cleanup

src/Dodge/Room/Airlock.hs

@@ -14,7 +14,6 @@ import Geometry
 import Picture
 
 import qualified Data.IntMap.Strict as IM
-import Control.Monad.State
 {- | A passage with a switch that opens forward access while closing backwards access. -}
 airlock :: RandomGen g => State g Room
 airlock = takeOne [airlock0,airlock90,airlockCrystal,airlockZ]

src/Dodge/Room/Boss.hs

@@ -18,7 +18,6 @@ import Dodge.LevelGen.StaticWalls
 import Geometry
 import LensHelp
 
-import Control.Monad.State
 roomGlassOctogon
     :: Float    -- ^ Size
     -> Room

src/Dodge/Room/Containing.hs

@@ -12,7 +12,6 @@ import LensHelp
 import Geometry
 --import Dodge.Item.Equipment
 
-import Control.Monad.State
 import Data.List
 
 roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (LabSubCompTree Room)

src/Dodge/Room/GlassLesson.hs

@@ -17,7 +17,6 @@ import Geometry
 import LensHelp
 
 import qualified Data.Set as S
-import Control.Monad.State
 --import Control.Monad.Loops
 glassLesson :: RandomGen g => State g (SubCompTree Room)
 glassLesson = do

src/Dodge/Room/LasTurret.hs

@@ -30,7 +30,6 @@ import RandomHelp
 
 import qualified Data.Set as S
 import Data.Maybe
-import Control.Monad.State
 
 cenLasTur :: Room
 cenLasTur = roomNgon 8 200 & rmPmnts .~

src/Dodge/Room/Link.hs

@@ -26,7 +26,6 @@ import Geometry
 import Data.Tile
 import Dodge.RoomLink
 
-import Control.Monad.State
 import Control.Lens
 import Data.List
 import qualified Data.Set as S

src/Dodge/Room/LongDoor.hs

@@ -26,7 +26,6 @@ import LensHelp
 --import Shape
 
 import qualified Data.Set as S
-import Control.Monad.State
 import Data.Maybe
 --import Data.Tree
 import qualified Data.IntMap as IM

src/Dodge/Room/LongRoom.hs

@@ -24,7 +24,6 @@ import LensHelp
 import Data.Tile
 
 import qualified Data.Set as S
-import Control.Monad.State
 --import qualified Data.IntMap as IM
 
 longRoom :: RandomGen g => State g Room

src/Dodge/Room/Modify/Girder.hs

@@ -23,7 +23,6 @@ import RandomHelp
 
 import Data.Maybe
 import Data.List (nub)
-import Control.Monad.State
 import qualified Data.Set as S
 
 addGirderNS :: RandomGen g => (Point2 -> Point2 -> Shape) -> Color -> Room -> State g Room

src/Dodge/Room/NoNeedWeapon.hs

@@ -14,7 +14,6 @@ import Geometry.Data
 
 import Control.Lens
 --import Control.Monad
-import Control.Monad.State
 {- |
 A room designed to be /passable/ with no weapons.
 Highlights an issue: when trying to place next door rooms, if the level generation fails it will try a different link.

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.  -}

src/Dodge/Room/RezBox.hs

@@ -31,7 +31,6 @@ import LensHelp
 
 import qualified Data.Set as S
 --import Data.Maybe
-import Control.Monad.State
 
 rezBox :: LightSource -> Room
 rezBox ls = roomRect 40 60 1 1 

src/Dodge/Room/RoadBlock.hs

@@ -14,7 +14,6 @@ import RandomHelp
 import Dodge.Creature
 import Dodge.Tree
 
-import Control.Monad.State
 import Control.Lens
 
 armouredCorridor :: RandomGen g => State g Room

src/Dodge/Room/Room.hs

@@ -27,7 +27,6 @@ import LensHelp
 --import Color
 
 import qualified Data.Set as S
-import Control.Monad.State
 --import Control.Monad.Loops
 import Data.Bifunctor
 

src/Dodge/Room/RunPast.hs

@@ -26,7 +26,6 @@ import Color
 import LensHelp
 
 import qualified Data.Set as S
-import Control.Monad.State
 --import qualified Data.IntMap.Strict as IM
 
 horEdgeTest :: (Float -> Bool) -> ((Point2,Float) -> Bool)

src/Dodge/Room/SensorDoor.hs

@@ -32,7 +32,6 @@ import RandomHelp
 import qualified Data.Set as S
 import Data.Maybe
 --import Data.Tree
-import Control.Monad.State
 
 -- TODO fix case where the sensor created by sensInsideDoor blocks another door
 -- for roomRectAutoLinks-- make the locked door a center door?

src/Dodge/Room/Start.hs

@@ -27,7 +27,6 @@ import LensHelp
 
 --import Data.Maybe
 --import Data.Tree
-import Control.Monad.State
 --import qualified Data.IntMap.Strict as IM
 
 powerFakeout :: RandomGen g => State g (SubCompTree Room)

src/Dodge/Room/Tanks.hs

@@ -17,7 +17,6 @@ import LensHelp
 
 --import Data.Maybe
 --import Data.Tree
-import Control.Monad.State
 --import qualified Data.Set as S
 
 randomTank :: RandomGen g => State g Placement

src/Dodge/Room/Warning.hs

@@ -33,7 +33,6 @@ import Data.Maybe
 import qualified Data.Map.Strict as M
 --import Data.Char
 --import Data.Tree
-import Control.Monad.State
 --import qualified Data.Text as T