Cleanup

src/Dodge/Item/Random.hs

@@ -3,7 +3,6 @@ import Dodge.Data
 import RandomHelp
 import Dodge.Item.Weapon.BulletGuns
 
-import Control.Monad.State
 
 randBlockBreakWeapon :: RandomGen g => State g Item
 randBlockBreakWeapon = takeOne [bangStick 1,bangCane]

src/Dodge/Item/Weapon/Launcher.hs

@@ -32,7 +32,6 @@ import qualified SDL
 import Data.Maybe
 import Control.Lens
 import Control.Applicative
-import Control.Monad.State
 
 launcher :: Item
 launcher = defaultGun 

src/Dodge/Item/Weapon/TriggerType.hs

@@ -77,7 +77,6 @@ import Dodge.LightSource
 import LensHelp
 
 --import Control.Lens
-import Control.Monad.State
 import Data.Maybe
 --import qualified Data.IntMap.Strict as IM
 import Data.Foldable