Split off StreamingHelp module

src/Dodge/Item/Weapon/ExtraEffect.hs

@@ -28,7 +28,6 @@ import Picture
 import Geometry.Vector
 import Geometry.Data
 import LensHelp
-import qualified FoldlHelp as L
 import Sound.Data
 import ShortShow
 
@@ -36,7 +35,7 @@ import qualified Data.Map.Strict as M
 --import Data.Bifunctor
 import Data.Maybe
 --import qualified Control.Foldl as L
---import qualified Data.Set as S
+import qualified Streaming.Prelude as S
 import qualified SDL
 autoEffect :: (Item -> Creature -> World -> World) -> Int -> SoundID -> Item -> Creature -> World -> World
 autoEffect eff t sid itm cr w
@@ -129,9 +128,9 @@ targetRBCreatureUp it cr w t
         & tgActive .~ False 
         )
   where
-    newtarg = L.fold 
-        (L.prefilter (canseepos . _crPos) $ L.minimumOn (dist mwp . _crPos)) 
-        $ creaturesNearPointI 3 mwp w
+    newtarg = minStreamOn (dist mwp . _crPos)
+        . S.filter (canseepos . _crPos)
+        $ crsInsideCirc mwp 40 w
     canseepos p = hasLOS (_crPos cr) p w
     mwp = mouseWorldPos w
     updatePos t' = t' & tgPos .~ posFromMaybeID (_tgID t')