Cleanup

src/Dodge/WorldEvent/Shockwave.hs

@@ -8,14 +8,12 @@ import Dodge.Zoning.Wall
 import Dodge.Data
 import Dodge.Wall.Damage
 import Dodge.Base
-import Dodge.Zone
 import Geometry
 import Picture
 import LensHelp
 
 import Data.Foldable
 import qualified IntMapHelp as IM
-import qualified Streaming.Prelude as S
 -- currently very effective against walls
 makeShockwaveAt 
     :: [Int]    -- ^ IDs of invulnerable creatures.

src/Dodge/WorldEvent/ThingsHit.hs

@@ -15,18 +15,14 @@ import Dodge.Zoning.Wall
 import Dodge.Zoning.Creature
 import Dodge.Data
 import Dodge.Base
-import Dodge.Zone
 import Geometry
 import qualified ListHelp as List
 
 import Control.Lens
 import Data.Maybe
 import Data.List (sortOn)
-import Data.Functor
 import Data.Bifunctor
-import StreamingHelp
 import qualified Data.IntSet as IS
-import qualified Streaming.Prelude as S
 
 {- List those objects that appear on a line.  -}
 thingsHit