Proof of mutable vector vertex offset storage concept

src/Shader/Data.hs

@@ -128,6 +128,16 @@ instance Foldable PicShads where
         , _psEll   = theEll  
         }
         = f thePoly . f thePolyz . f theBez . f theText . f theArc $ f theEll x
+instance Traversable PicShads where
+    {-# INLINE traverse #-}
+    traverse f PicShads
+        { _psPoly   = x0 
+        , _psPolyz  = x1
+        , _psBez    = x2 
+        , _psText   = x3 
+        , _psArc    = x4 
+        , _psEll    = x5 
+        } = PicShads <$> f x0 <*> f x1 <*> f x2 <*> f x3 <*> f x4 <*> f x5
 
 
 {- | Datatype containing the necessary information for a single shader.  -}