Cleanup

src/Dodge/Item/Random.hs

@@ -1,10 +1,9 @@
 module Dodge.Item.Random where
 import Dodge.Data
-import Dodge.RandomHelp
+import RandomHelp
 import Dodge.Item.Weapon.BulletGuns
 
 import Control.Monad.State
-import System.Random
 
 randBlockBreakWeapon :: RandomGen g => State g Item
 randBlockBreakWeapon = takeOne [bangStick 1,bangCane]

src/Dodge/Item/Weapon/Launcher.hs

@@ -19,7 +19,7 @@ import Dodge.Zone
 import Dodge.SoundLogic
 import Dodge.WorldEvent.SpawnParticle
 import Dodge.WorldEvent.Cloud
-import Dodge.RandomHelp
+import RandomHelp
 import Geometry
 import Picture
 import qualified IntMapHelp as IM
@@ -33,7 +33,6 @@ import Data.Maybe
 import Control.Lens
 import Control.Applicative
 import Control.Monad.State
-import System.Random
 
 launcher :: Item
 launcher = defaultGun 

src/Dodge/Item/Weapon/TriggerType.hs

@@ -63,7 +63,7 @@ import Dodge.Base.Collide
 import Dodge.SoundLogic
 import Dodge.Reloading
 import Dodge.WorldEvent
-import Dodge.RandomHelp
+import RandomHelp
 import Dodge.Inventory.Lock
 import Dodge.Creature.HandPos
 import Dodge.Creature.Test
@@ -76,7 +76,6 @@ import Dodge.LightSource
 --import Data.Preload
 import LensHelp
 
-import System.Random
 --import Control.Lens
 import Control.Monad.State
 import Data.Maybe