Cleanup

src/Dodge/Creature/Perception.hs

@@ -7,7 +7,7 @@ module Dodge.Creature.Perception
 import Dodge.Data
 import Dodge.Creature.Vocalization
 import Dodge.Base.Collide
-import Dodge.RandomHelp
+import RandomHelp
 --import Dodge.SoundLogic
 import Geometry.Vector
 --import Geometry.Data
@@ -18,7 +18,6 @@ import Sound.Data
 import Control.Monad.State
 import Data.Maybe
 import Control.Lens
-import System.Random
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map.Strict as M
 

src/Dodge/Creature/PistolCrit.hs

@@ -16,13 +16,12 @@ import Dodge.Item.Weapon.BulletGuns
 import Dodge.Item.Consumable
 import Geometry
 import Picture
-import Dodge.RandomHelp
+import RandomHelp
 
 import Data.Maybe
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
 import Control.Monad.State
---import System.Random
 
 pistolCrit :: Creature
 pistolCrit = defaultCreature

src/Dodge/Creature/State.hs

@@ -13,7 +13,7 @@ import Dodge.Creature.Impulse.Movement
 --import Dodge.Creature.Test
 --import Dodge.Base
 import Dodge.SoundLogic
-import Dodge.RandomHelp
+import RandomHelp
 import Dodge.WorldEvent
 --import Dodge.WallCreatureCollisions
 import Dodge.Creature.Action
@@ -36,7 +36,6 @@ import Control.Monad.State
 --import Control.Monad
 --import qualified SDL
 --import qualified SDL.Mixer as Mix
-import System.Random
 --import qualified Data.Set as S
 --import qualified Data.Map as M
 --import qualified Data.Vector as V