Performance improvements, combine cap and geometry buffer

src/Shape/Data.hs

@@ -1,3 +1,4 @@
+{-# OPTIONS_GHC -Wno-missing-signatures #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 module Shape.Data
@@ -18,8 +19,10 @@ instance Semigroup Shape where
 instance Monoid Shape where
     mempty = Shape mempty mempty
 
+shVList :: Shape -> [ShapeV]
 {-# INLINE shVList #-}
 shVList = DL.toList . _shVertices
+shEList :: Shape -> [Point3]
 {-# INLINE shEList #-}
 shEList = DL.toList . _shEdges