Revert "Turn Shape into a stream"

This reverts commit c7e720248d.
2022-06-27 18:41:43 +01:00
parent c7e720248d
commit 03b37c4e7b
11 changed files with 32 additions and 42 deletions
@@ -19,6 +19,7 @@ import qualified Data.Vector.Unboxed as UV
 import qualified Data.Vector.Unboxed.Mutable as UMV
 import qualified Data.Vector.Mutable as MV
 import qualified Data.Vector.Fusion.Stream.Monadic as VS
+import Data.Vector.Fusion.Util
 import Control.Monad.Primitive
 --import qualified Control.Monad.Parallel as MP

@@ -84,9 +85,9 @@ pokeShape
    :: Ptr Float 
    -> Ptr GLushort 
    -> Ptr GLushort 
-    -> VS.Stream IO ShapeObj
+    -> [ShapeObj] 
    -> IO (Int,Int,Int)
-pokeShape ptr iptr ieptr = VS.foldM (pokeShapeObj ptr iptr ieptr) (0,0,0)
+pokeShape ptr iptr ieptr = VS.foldM (pokeShapeObj ptr iptr ieptr) (0,0,0) . VS.fromList

 pokeShapeObj
    :: Ptr Float