Commit before attempting to stream worldSPic more effectively

src/Render.hs

@@ -19,9 +19,9 @@ import Graphics.Rendering.OpenGL hiding (Line,translate,scale,imageHeight,Polygo
 import qualified Data.Vector.Unboxed.Mutable as UMV
 import qualified Data.Vector.Mutable as MV
 import Control.Monad.Primitive
-import qualified Data.Vector.Fusion.Stream.Monadic as VS
 import Graphics.GL.Core43
 import Control.Monad
+import qualified Streaming.Prelude as S
 
 divideSize :: Int -> Size -> Size
 divideSize i (Size x y) = Size (div x $ fromIntegral i) (div y $ fromIntegral i)
@@ -53,7 +53,7 @@ createLightMap pdata lightPoints nWalls nSils nCaps drawObjShads toPos = do
     -- to consider: adding normals/a "material" for each fragment
     blendFunc $= (Zero, OneMinusSrcColor)
     stencilTest $= Enabled
-    flip VS.mapM_ (VS.fromList lightPoints) $ \(V3 x y z,rad,V3 r g b) -> do
+    flip S.mapM_ (S.each lightPoints) $ \(V3 x y z,rad,V3 r g b) -> do
         depthFunc $= Just Less
         -- setup stencil
         colorMask $= Color4 Disabled Disabled Disabled Disabled