diff --git a/src/Dodge/Base/Collide.hs b/src/Dodge/Base/Collide.hs
index 488e8d7e1..522da625d 100644
--- a/src/Dodge/Base/Collide.hs
+++ b/src/Dodge/Base/Collide.hs
@@ -39,7 +39,6 @@ module Dodge.Base.Collide
     , anythingHitCirc
     ) where
 import Dodge.Data
-import Dodge.Zone
 import Dodge.Zoning
 import Dodge.Base.Wall
 import Geometry
@@ -49,7 +48,6 @@ import Data.List (sortOn)
 import Data.Maybe
 import qualified IntMapHelp as IM
 import Control.Lens
-import Control.Monad
 import StreamingHelp
 import qualified Streaming.Prelude as S
 import qualified Data.IntSet as IS
diff --git a/src/Dodge/Block.hs b/src/Dodge/Block.hs
index 9d0557f7b..abad28895 100644
--- a/src/Dodge/Block.hs
+++ b/src/Dodge/Block.hs
@@ -4,7 +4,6 @@ import Dodge.Data
 import Dodge.Base.Collide
 import Dodge.Material.Sound
 import Dodge.Block.Debris
-import Dodge.Zone
 import Dodge.LightSource
 import Dodge.Wall.Zone
 import Dodge.WorldEvent.Sound
@@ -20,7 +19,6 @@ import Data.Maybe
 import qualified Data.IntSet as IS
 import qualified IntMapHelp as IM
 import Control.Lens
-import qualified Streaming.Prelude as S
 import qualified Data.Graph.Inductive as FGL
 
 splinterBlock :: Block -> World -> World
diff --git a/src/Dodge/Bullet.hs b/src/Dodge/Bullet.hs
index 579e39592..8e0b15061 100644
--- a/src/Dodge/Bullet.hs
+++ b/src/Dodge/Bullet.hs
@@ -14,7 +14,6 @@ import LensHelp
 import StreamingHelp
 
 import qualified IntMapHelp as IM
-import qualified Streaming.Prelude as S
 import Data.Maybe
 import Dodge.Movement.Turn
 import Dodge.WorldEvent.ThingsHit
diff --git a/src/Dodge/DamageCircle.hs b/src/Dodge/DamageCircle.hs
index 1f8920d90..98bf2b949 100644
--- a/src/Dodge/DamageCircle.hs
+++ b/src/Dodge/DamageCircle.hs
@@ -7,7 +7,6 @@ import Geometry
 import LensHelp
 
 import Data.Foldable
-import qualified Streaming.Prelude as S
 import qualified IntMapHelp as IM
 damageCircle :: Float -> Point2 -> DamageType -> Int -> World -> World
 damageCircle r sp dt da w = w
diff --git a/src/Dodge/Flame.hs b/src/Dodge/Flame.hs
index 8463dd4cb..d2ed8bdd6 100644
--- a/src/Dodge/Flame.hs
+++ b/src/Dodge/Flame.hs
@@ -7,7 +7,6 @@ import Dodge.Zoning.Wall
 import qualified ListHelp as List
 import Dodge.Data
 import Dodge.LightSource
-import Dodge.Zone
 import Dodge.WorldEvent.ThingsHit
 import Dodge.WorldEvent.Cloud
 import Dodge.SoundLogic
@@ -16,11 +15,9 @@ import Picture
 import Geometry
 import qualified IntMapHelp as IM
 import LensHelp
-import StreamingHelp
 
 import Data.Foldable
 import Data.Tuple
-import qualified Streaming.Prelude as S
 
 aFlameParticle 
     :: Int      -- ^ Timer
diff --git a/src/Dodge/Item/Weapon/Grenade.hs b/src/Dodge/Item/Weapon/Grenade.hs
index 0cf75c4ed..b68e57318 100644
--- a/src/Dodge/Item/Weapon/Grenade.hs
+++ b/src/Dodge/Item/Weapon/Grenade.hs
@@ -2,7 +2,6 @@ module Dodge.Item.Weapon.Grenade where
 import Dodge.Zoning.Wall
 import Dodge.Data
 import Dodge.Base
-import Dodge.Zone
 import Dodge.SoundLogic
 import Picture
 import Geometry
diff --git a/src/Dodge/Placement/PlaceSpot/TriggerDoor.hs b/src/Dodge/Placement/PlaceSpot/TriggerDoor.hs
index 23bc14b28..516107fa3 100644
--- a/src/Dodge/Placement/PlaceSpot/TriggerDoor.hs
+++ b/src/Dodge/Placement/PlaceSpot/TriggerDoor.hs
@@ -5,7 +5,6 @@ module Dodge.Placement.PlaceSpot.TriggerDoor
     ) where
 import Dodge.Zoning.Wall
 import Dodge.Data
-import Dodge.Zone
 import Dodge.Base
 import Dodge.Path
 import Dodge.Default.Door
@@ -22,7 +21,6 @@ import LensHelp
 import Data.List
 import qualified Data.IntSet as IS
 import qualified Data.Graph.Inductive as FGL
-import qualified Streaming.Prelude as S
 plDoor :: Color
     -> EdgeObstacle
     -> (World -> Bool)      -- ^ Opening condition
diff --git a/src/Dodge/RadarSweep.hs b/src/Dodge/RadarSweep.hs
index a83009c91..6baa94a28 100644
--- a/src/Dodge/RadarSweep.hs
+++ b/src/Dodge/RadarSweep.hs
@@ -1,14 +1,12 @@
 module Dodge.RadarSweep where
 import Dodge.Zoning.Wall
 import Dodge.Data
-import Dodge.Zone
 import Color
 import Geometry
 import LensHelp
 
 import Data.Maybe
 import qualified IntMapHelp as IM
-import qualified Streaming.Prelude as S
 
 aRadarPulse :: Object -> Creature -> World -> World
 aRadarPulse ob cr = radarSweeps .:~ RadarSweep
diff --git a/src/Dodge/Render/Walls.hs b/src/Dodge/Render/Walls.hs
index caa2835cc..c45854bf3 100644
--- a/src/Dodge/Render/Walls.hs
+++ b/src/Dodge/Render/Walls.hs
@@ -6,7 +6,6 @@ import Dodge.Zoning.Base
 import Dodge.Zoning.Wall
 import Dodge.Data
 import Dodge.Wall.Draw
-import Dodge.Zone
 import Dodge.Base.Wall
 import Geometry
 import ShapePicture
@@ -14,12 +13,7 @@ import ShapePicture
 import Control.Lens
 --import Data.Maybe
 import qualified Control.Foldl as L
-import qualified Streaming.Prelude as S
---import Data.List
---import qualified IntMapHelp as IM
-wallsToDraw
-    :: World
-    -> ( [((Point2,Point2),Point4)]  ,[((Point2,Point2),Point4)], SPic )
+wallsToDraw :: World -> ( [((Point2,Point2),Point4)]  ,[((Point2,Point2),Point4)], SPic )
 wallsToDraw w
     = ( wls, wins,spic)
   where
diff --git a/src/Dodge/Update/Camera.hs b/src/Dodge/Update/Camera.hs
index fc7b8ef47..7b3e812c7 100644
--- a/src/Dodge/Update/Camera.hs
+++ b/src/Dodge/Update/Camera.hs
@@ -10,7 +10,6 @@ module Dodge.Update.Camera
 import Dodge.Zoning.Wall
 import Dodge.Data
 import Dodge.Base
-import Dodge.Zone
 import Dodge.Equipment
 import Dodge.Creature.Test
 import Geometry
diff --git a/src/Dodge/Wall/Zone.hs b/src/Dodge/Wall/Zone.hs
index 04fde1354..d2a8f1a3d 100644
--- a/src/Dodge/Wall/Zone.hs
+++ b/src/Dodge/Wall/Zone.hs
@@ -2,15 +2,9 @@ module Dodge.Wall.Zone
     where
 import Dodge.Zoning.Wall
 import Dodge.Data
-import Dodge.Zone
-import qualified IntMapHelp as IM
 
-import Data.Foldable
-import qualified Data.IntSet as IS
+--import qualified Data.IntSet as IS
 import Control.Lens
---import Data.Foldable
---import Streaming
---import qualified Streaming.Prelude as S
 
 -- need to verify that this not only inserts but also overwrites (updates) any
 -- already existing walls
diff --git a/src/Dodge/WallCreatureCollisions.hs b/src/Dodge/WallCreatureCollisions.hs
index 715bbf136..84e8aee91 100644
--- a/src/Dodge/WallCreatureCollisions.hs
+++ b/src/Dodge/WallCreatureCollisions.hs
@@ -7,7 +7,6 @@ module Dodge.WallCreatureCollisions
     ) where
 import Dodge.Zoning.Wall
 import Dodge.Data
-import Dodge.Zone
 import Dodge.Base
 import Geometry
 
@@ -15,9 +14,6 @@ import Data.Monoid
 import Data.Maybe
 import Data.Function
 import Control.Lens
---import qualified IntMapHelp as IM
-
-import qualified Streaming.Prelude as S
 
 colCrsWalls :: Universe -> Universe
 colCrsWalls uv = uv & uvWorld . creatures %~ fmap (noclipCheck (_uvConfig uv) (_uvWorld uv))
diff --git a/src/Dodge/WorldEvent/Shockwave.hs b/src/Dodge/WorldEvent/Shockwave.hs
index 43dd9b01a..0ba9ba6ca 100644
--- a/src/Dodge/WorldEvent/Shockwave.hs
+++ b/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.
diff --git a/src/Dodge/WorldEvent/ThingsHit.hs b/src/Dodge/WorldEvent/ThingsHit.hs
index a1b5bfbb7..9cef6b76b 100644
--- a/src/Dodge/WorldEvent/ThingsHit.hs
+++ b/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
diff --git a/src/Dodge/Zone.hs b/src/Dodge/Zone.hs
index d0d8b7865..c3270fb31 100644
--- a/src/Dodge/Zone.hs
+++ b/src/Dodge/Zone.hs
@@ -100,11 +100,11 @@ nearSeg f p r w = streamFromZone zn $ zoneOfSeg (_znSize zn) p r
 --{-# INLINE crsNearSeg #-}
 --crsNearSeg = nearSeg _crZoning
 
-insideCirc :: Foldable t => (World -> Zoning t a) -> Point2 -> Float -> World -> StreamOf a
-{-# INLINE insideCirc #-}
-insideCirc f p r w = streamFromZone zn $ zoneInsideCirc (_znSize zn) p r
-  where
-    zn = f w
+--insideCirc :: Foldable t => (World -> Zoning t a) -> Point2 -> Float -> World -> StreamOf a
+--{-# INLINE insideCirc #-}
+--insideCirc f p r w = streamFromZone zn $ zoneInsideCirc (_znSize zn) p r
+--  where
+--    zn = f w
 
 --wlsInsideCirc :: Point2 -> Float -> World -> Stream (Of Wall) Identity ()
 --{-# INLINE wlsInsideCirc #-}