Update stack lts

src/Dodge/Room/Boss.hs

@@ -16,6 +16,7 @@ import Dodge.Tree
 import Geometry
 import LensHelp
 import RandomHelp
+import Control.Monad
 
 roomGlassOctogon ::
     -- | Size

src/Dodge/Room/Containing.hs

@@ -15,6 +15,7 @@ import Dodge.Tree
 import Geometry
 import LensHelp
 import RandomHelp
+import Control.Monad
 
 roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (MetaTree Room String)
 roomsContaining crs its = tToBTree str <$> roomsContaining' crs its

src/Dodge/Room/GlassLesson.hs

@@ -18,6 +18,7 @@ import Dodge.Tree
 import Geometry
 import LensHelp
 import RandomHelp
+import Control.Monad
 
 glassLesson :: RandomGen g => State g (Tree Room)
 glassLesson = do

src/Dodge/Room/LongDoor.hs

@@ -1,6 +1,7 @@
 -- | Rooms containing long doors, probably with a big reveal behind them.
 module Dodge.Room.LongDoor where
 
+import Control.Monad
 import Dodge.LevelGen.Switch
 import Data.Maybe
 import qualified Data.Set as S

src/Dodge/Room/LongRoom.hs

@@ -1,5 +1,6 @@
 module Dodge.Room.LongRoom where
 
+import Control.Monad
 import qualified Data.Set as S
 import Data.Tile
 import Dodge.Cleat

src/Dodge/Room/Procedural.hs

@@ -10,6 +10,7 @@ module Dodge.Room.Procedural (
     makeGrid,
 ) where
 
+import Control.Monad
 import Tile
 import qualified Data.Set as S
 import Data.Tile

src/Dodge/Room/RezBox.hs

@@ -18,6 +18,7 @@ import Geometry
 import LensHelp
 import Padding
 import RandomHelp
+import Control.Monad
 
 rezBox :: LightSource -> Room
 rezBox ls =

src/Dodge/Room/Start.hs

@@ -19,6 +19,7 @@ import Dodge.Room.Room
 import Dodge.Room.RunPast
 import Dodge.Tree
 import RandomHelp
+import Control.Monad
 
 powerFakeout' :: RandomGen g => State g (MetaTree Room String)
 powerFakeout' = tToBTree "powerFakeout'" <$> powerFakeout

src/Dodge/Room/Tanks.hs

@@ -14,10 +14,7 @@ import Geometry
 import LensHelp
 import RandomHelp
 import Shape
-
---import Data.Maybe
---import Data.Tree
---import qualified Data.Set as S
+import Control.Monad
 
 randomTank :: RandomGen g => State g Placement
 randomTank =