Turn Shape into a stream

src/Shape/Data.hs

@@ -3,14 +3,19 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE GeneralisedNewtypeDeriving #-}
+{-# LANGUAGE FlexibleInstances #-}
 module Shape.Data
     where
 import Geometry.Data
 
 import qualified Data.Vector.Fusion.Stream.Monadic as VS
-import Data.Vector.Fusion.Util
 import Control.Lens
-type Shape = [ShapeObj]
+type Shape = VS.Stream IO ShapeObj
+
+instance Semigroup (VS.Stream IO ShapeObj) where
+    (<>) = (VS.++)
+instance Monoid (VS.Stream IO ShapeObj) where
+    mempty = VS.empty
 
 --_shVertices :: Shape -> [ShapeV]
 --{-# INLINE _shVertices #-}