Cleanup

src/Dodge/Creature/Perception.hs

@@ -15,7 +15,6 @@ import Geometry.Data
 import Sound.Data
 --import StrictHelp
 
-import Control.Monad.State
 import Data.Maybe
 import Control.Lens
 import qualified Data.IntMap.Strict as IM

src/Dodge/Creature/PistolCrit.hs

@@ -21,7 +21,6 @@ import RandomHelp
 import Data.Maybe
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
-import Control.Monad.State
 
 pistolCrit :: Creature
 pistolCrit = defaultCreature

src/Dodge/Creature/State.hs

@@ -32,8 +32,6 @@ import qualified IntMapHelp as IM
 import Data.Function
 import Control.Lens
 --import Control.Applicative
-import Control.Monad.State
---import Control.Monad
 --import qualified SDL
 --import qualified SDL.Mixer as Mix
 --import qualified Data.Set as S