Make Shapes use Streaming rather than Vector streaming

src/Shape/Data.hs

@@ -7,10 +7,11 @@ module Shape.Data
     where
 import Geometry.Data
 
-import qualified Data.Vector.Fusion.Stream.Monadic as VS
+--import qualified Data.Vector.Fusion.Stream.Monadic as VS
 --import Data.Vector.Fusion.Util
 import Control.Lens
-type Shape = [ShapeObj]
+import Streaming
+type Shape = Stream (Of ShapeObj) IO ()
 
 --_shVertices :: Shape -> [ShapeV]
 --{-# INLINE _shVertices #-}
@@ -30,7 +31,7 @@ shEfromList = id
 
 data ShapeObj = ShapeObj 
     { _shType :: ShapeType 
-    , _shVs :: VS.Stream IO ShapeV
+    , _shVs :: Stream (Of ShapeV) IO ()
     }
   deriving ()