Performance improvements, combine cap and geometry buffer

src/Shader/Poke.hs

@@ -1,5 +1,5 @@
 --{-# LANGUAGE TupleSections #-}
-{-# LANGUAGE BangPatterns #-}
+--{-# LANGUAGE BangPatterns #-}
 module Shader.Poke
     ( pokeVerxs
     , pokeLayVerxs
@@ -21,7 +21,7 @@ import qualified Data.Vector.Unboxed.Mutable as UMV
 import qualified Data.Vector.Mutable as MV
 import qualified Data.Vector.Fusion.Stream.Monadic as VS
 import Control.Monad.Primitive
-import qualified Data.DList as DL
+--import qualified Data.DList as DL
 
 pokeVerxs 
     :: MV.MVector (PrimState IO) FullShader