Cleanup

src/Dodge/WorldEvent/Explosion.hs

@@ -22,7 +22,6 @@ import Geometry
 import Picture
 import LensHelp
 
-import Control.Monad.State
 import Data.List
 --import Data.Maybe
 

src/Dodge/WorldEvent/Sound.hs

@@ -11,7 +11,6 @@ import Geometry.Data
 import RandomHelp
 
 import Control.Lens
-import Control.Monad.State.Lazy
 
 originIDsAt :: SoundOrigin -> [SoundID] -> Point2 -> World -> World
 originIDsAt so sids p w = soundStart so p sid Nothing $ set randGen g w

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -24,7 +24,6 @@ import Geometry
 import qualified IntMapHelp as IM
 import LensHelp
 
-import Control.Monad.State
 import Data.Tuple
 aFlameParticle 
     :: Int      -- ^ Timer