Update stack lts

src/Dodge/Creature/ReaderUpdate.hs

@@ -19,7 +19,7 @@ import qualified IntMapHelp as IM
 import Data.List (sortOn)
 import Control.Applicative
 import LensHelp
---import Control.Monad
+import Control.Monad
 import Data.Bifunctor
 import Data.Maybe
 import Dodge.Base

src/Dodge/Creature/State.hs

@@ -3,6 +3,7 @@ module Dodge.Creature.State (
     doDamage,
 ) where
 
+import Control.Monad
 import Dodge.Targeting.Draw
 import Dodge.Data.DoubleTree
 import qualified Data.Map.Strict as M