Excise streaming

src/Dodge/Zone/Object.hs

@@ -1,17 +0,0 @@
-module Dodge.Zone.Object where
-
-import Dodge.Data.Creature
-import Dodge.Data.Wall
-import Geometry.Data
-import Geometry.Zone
-import qualified Streaming.Prelude as S
-import StreamingHelp
-
-zoneOfCreature :: Float -> Creature -> StreamOf Int2
-zoneOfCreature x cr = zoneInsideCirc x (_crPos cr) (_crRad cr)
-
-zoneOfWall :: Float -> Wall -> StreamOf Int2
-zoneOfWall x = uncurry (zoneOfSeg x) . _wlLine
-
-zonePos :: (a -> Point2) -> Float -> a -> StreamOf Int2
-zonePos f x = S.yield . zoneOfPoint x . f