Revert "Turn Shape into a stream"

This reverts commit c7e720248d.

src/Shape/Data.hs

@@ -3,19 +3,14 @@
 {-# 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 = VS.Stream IO ShapeObj
-
-instance Semigroup (VS.Stream IO ShapeObj) where
-    (<>) = (VS.++)
-instance Monoid (VS.Stream IO ShapeObj) where
-    mempty = VS.empty
+type Shape = [ShapeObj]
 
 --_shVertices :: Shape -> [ShapeV]
 --{-# INLINE _shVertices #-}