Poke word8 colors for shapes

src/Shader/Parameters.hs

@@ -1,5 +1,6 @@
 module Shader.Parameters
     ( floatSize
+    , ubyteSize
     , numDrawableElements
     , numSubElements
     , glushortSize
@@ -8,6 +9,10 @@ module Shader.Parameters
 import Graphics.GL.Core45
 import Foreign
 
+ubyteSize :: Int
+ubyteSize = sizeOf (5 :: Word8)
+{-# INLINE ubyteSize #-}
+
 floatSize :: Int
 floatSize = sizeOf (0.5 :: GLfloat)
 {-# INLINE floatSize #-}