Reset Shapes to be list (not stream) of ShapeObj

2022-07-10 09:42:24 +01:00
parent 21f814ede1
commit a5730014c8
5 changed files with 33 additions and 18 deletions
@@ -10,7 +10,8 @@ import Geometry.Data
 --import Data.Vector.Fusion.Util
 import Control.Lens
 import Streaming
-type Shape = Stream (Of ShapeObj) IO ()
+type Shape' = Stream (Of ShapeObj) IO ()
+type Shape = [ShapeObj]

 --_shVertices :: Shape -> [ShapeV]
 --{-# INLINE _shVertices #-}