Remove mtl dependency

package.yaml

@@ -25,7 +25,7 @@ dependencies:
 - aeson-pretty
 - containers
 - deepseq
-- dlist
+#- dlist
 - directory
 - extra
 - foldl
@@ -34,7 +34,7 @@ dependencies:
 - text
 - bytestring
 - lens
-- mtl
+#- mtl
 - fgl
 - JuicyPixels
 - random

src/Dodge/Creature/Impulse.hs

@@ -3,7 +3,8 @@
 
 module Dodge.Creature.Impulse (followImpulse) where
 
-import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
+--import Control.Monad.State -- moving from mtl to transformers
 import Data.Maybe
 import Dodge.Creature.Impulse.Movement
 import Dodge.Creature.MoveType

src/Dodge/Data/GenWorld.hs

@@ -10,7 +10,8 @@ module Dodge.Data.GenWorld (
 
 import ShortShow
 import Control.Lens
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 import qualified Data.Set as S
 import Data.Tile
 import Dodge.Data.Room

src/Dodge/Data/MetaTree.hs

@@ -6,7 +6,8 @@ module Dodge.Data.MetaTree where
 import Control.Lens
 import Data.Tree
 import System.Random
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 
 data MetaTree a b = MTree
     {_mtLabel :: b, _mtTree :: MetaNode a b, _mtBranches :: [MetaBranch a b]}

src/Dodge/Layout/Generate.hs

@@ -4,7 +4,8 @@ Random generation of high level layout of rooms.
 module Dodge.Layout.Generate
     where
 import Data.Tree
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 --import System.Random
 
 generateLayout :: State g (Tree RoomProperties)

src/Dodge/LevelGen.hs

@@ -1,7 +1,8 @@
 module Dodge.LevelGen (generateWorldFromSeed) where
 
 import Control.Lens
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 import Data.Foldable
 import Data.Preload.Render
 import Dodge.Data.GenWorld

src/Dodge/Placement/PlaceSpot.hs

@@ -6,7 +6,8 @@
 -}
 module Dodge.Placement.PlaceSpot (placeSpot) where
 
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 import Data.Bifunctor
 import Data.Foldable
 import qualified Data.IntSet as IS

src/Dodge/PlacementSpot.hs

@@ -38,7 +38,8 @@ module Dodge.PlacementSpot (
 ) where
 
 import Control.Lens
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 import Data.Bifunctor
 import Data.Maybe
 import qualified Data.Set as S

src/Dodge/RandImpulse.hs

@@ -1,6 +1,7 @@
 module Dodge.RandImpulse where
 
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 import Dodge.Data.ActionPlan
 import RandomHelp
 

src/Dodge/Randify.hs

@@ -4,7 +4,8 @@ module Dodge.Randify (
 ) where
 
 import Control.Lens
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 import Dodge.Data.GenWorld
 import System.Random
 

src/Dodge/Room/BlinkAcross.hs

@@ -1,6 +1,7 @@
 module Dodge.Room.BlinkAcross where
 
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 import Dodge.Cleat
 import Dodge.Data.GenWorld
 import Dodge.PlacementSpot

src/Dodge/Room/Branch.hs

@@ -3,7 +3,8 @@ Collections of rooms that branch into multiple paths.
 -}
 module Dodge.Room.Branch where
 
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 import Dodge.Cleat
 import Dodge.Data.GenWorld
 import Dodge.Room.Door

src/Dodge/Room/Treasure.hs

@@ -4,7 +4,8 @@ Typically dead ends.
 -}
 module Dodge.Room.Treasure where
 
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 import Dodge.Data.GenWorld
 import Dodge.Default.Room
 import Dodge.LevelGen.PlacementHelper

src/Dodge/Spark.hs

@@ -7,13 +7,14 @@ module Dodge.Spark (
     makeSpark,
 ) where
 
-import Control.Monad.State
+--import Control.Monad.State
 import Dodge.Damage
 import Dodge.Data.World
 import Dodge.WorldEvent.ThingsHit
 import Geometry
 import LensHelp
 import System.Random
+import Control.Monad.Trans.State.Lazy
 
 -- should probably reduce spark speed more if it is very fast
 updateSpark :: World -> Spark -> (World, Maybe Spark)

src/Dodge/Tesla.hs

@@ -23,7 +23,6 @@ import LensHelp
 --import MonadHelp
 import Picture
 import RandomHelp
-
 --import Shape
 
 makeTeslaArc :: ItemParams -> Point2 -> Float -> World -> (World, ItemParams)

src/Dodge/Tree/Compose.hs

@@ -19,7 +19,8 @@ module Dodge.Tree.Compose (
     module Dodge.Data.MetaTree
 ) where
 
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 import Data.List (intersperse)
 import Data.Maybe
 import Data.Tuple

src/RandomHelp.hs

@@ -2,12 +2,14 @@
 {- Helpers for random generation.  -}
 module RandomHelp (
     module System.Random,
-    module Control.Monad.State,
+--    module Control.Monad.State,
     module RandomHelp,
+    module Control.Monad.Trans.State.Lazy,
 ) where
 
 import Control.Monad
-import Control.Monad.State
+--import Control.Monad.State
+import Control.Monad.Trans.State.Lazy
 import Data.List
 import Geometry
 import StrictHelp

src/Sound.hs

@@ -28,7 +28,8 @@ import Data.Maybe
 import qualified IntMapHelp as IM
 import qualified Data.Map as M
 import Control.Monad
-import Control.Monad.Trans
+import Control.Monad.IO.Class
+--import Control.Monad.Trans
 import Control.Monad.Trans.Maybe
 import Control.Lens
 import Data.Int (Int16)