Make thingsHit use streaming

src/Dodge/Data.hs

@@ -77,6 +77,7 @@ import qualified Data.IntMap.Strict as IM
 import qualified Data.Map.Strict as M
 import qualified Data.Text as T
 import SDL (Scancode, MouseButton)
+import Streaming
 type CRUpdate = Creature -> World -> (World -> World, Maybe Creature)
 type CRUpdate' = Creature -> World -> (World -> World, Creature)
 
@@ -688,7 +689,7 @@ data Particle
         , _ptCenter :: Point2
         }
 type HitEffect = Particle 
-    -> [(Point2, Either Creature Wall)] 
+    -> Stream (Of (Point2, Either Creature Wall)) Identity ()
     -> World 
     -> (World,Maybe Particle)