Tweak vbo again

src/Picture/Preload.hs

@@ -212,9 +212,11 @@ frag = FragmentShader
 
 pokeWPStrat :: RenderType -> [[[Float]]]
 pokeWPStrat Render22{_unRender22 = ((x,y),(z,w))} = [[[x,y,z,w]]]
+pokeWPStrat _ = undefined
 
 pokeWPColStrat :: RenderType -> [[[Float]]]
 pokeWPColStrat Render22x4{_unRender22x4=(((x,y),(z,w)),(r,g,b,a))} = [[[x,y,z,w],[r,g,b,a]]]
+pokeWPColStrat _ = undefined
 
 poke32 :: (Point3,Point2) -> [[[Float]]]
 poke32 ((x,y,z),(a,b)) = [[[x,y,z],[a,b]]]

src/Picture/Tree.hs

@@ -85,6 +85,7 @@ overPos f (RenderText vs) = RenderText $ map (\(a,b,c) -> (f a,b,c)) vs
 overPos f (RenderBezQ vs) = RenderBezQ $ map (\(a,b,c) -> (f a,b,c)) vs
 overPos f (RenderEllipse vs) = RenderEllipse $ map (first f) vs
 overPos f (RenderArc (a,b,c))  = RenderArc (f a,b,c)
+overPos _ _ = undefined
 
 overRot :: Float -> RenderType -> RenderType
 {-# INLINE overRot #-}
@@ -99,6 +100,7 @@ overCol f (RenderEllipse vs)  = RenderEllipse $ map (second f) vs
 overCol f (RenderText vs)     = RenderText    $ map (\(a,b,c) -> (a,f b,c)) vs
 overCol f (RenderBezQ vs)     = RenderBezQ    $ map (\(a,b,c) -> (a,f b,c)) vs
 overCol f (RenderArc (a,b,c)) = RenderArc (a,f b,c)
+overCol _ _ = undefined
 
 overSca :: (Point2 -> Point2) -> RenderType -> RenderType
 {-# INLINE overSca #-}