Commit before attempting to remove ptDraw field

src/Shader/Poke.hs

@@ -1,6 +1,6 @@
 module Shader.Poke
     ( pokeVerxs
-    , pokeSPics
+--    , pokeSPics
     , pokeLayVerxs
     , pokeArrayOff
 --    , pokePoint33s
@@ -13,7 +13,7 @@ import Shader.Parameters
 import Picture.Data
 import Shape.Data
 import Geometry.Data
-import ShapePicture
+--import ShapePicture
 
 import Graphics.Rendering.OpenGL hiding (color,scale,translate,rotate)
 import Foreign
@@ -83,15 +83,15 @@ pokeW ptr i' ((V2 a b,V2 c d),V4 e f g h) = do
     pokeElemOff ptr (i + 7) h
     return $ i' + 1
 
-pokeSPics
-    :: MV.MVector (PrimState IO) FullShader 
-    -> UMV.MVector (PrimState IO) Int
-    -> Ptr Float -> Ptr GLushort -> Ptr GLushort 
-    -> Stream (Of SPic) IO ()
-    -> IO (Int,Int,Int)
-pokeSPics vbos counts ptr iptr ieptr = 
-    S.foldM_ (\is (sh,pic) -> pokeLayVerxs vbos counts pic >> pokeShape' ptr iptr ieptr is sh)
-    (return (0,0,0)) return
+--pokeSPics
+--    :: MV.MVector (PrimState IO) FullShader 
+--    -> UMV.MVector (PrimState IO) Int
+--    -> Ptr Float -> Ptr GLushort -> Ptr GLushort 
+--    -> Stream (Of SPic) IO ()
+--    -> IO (Int,Int,Int)
+--pokeSPics vbos counts ptr iptr ieptr = 
+--    S.foldM_ (\is (sh,pic) -> pokeLayVerxs vbos counts pic >> pokeShape' ptr iptr ieptr is sh)
+--    (return (0,0,0)) return
     
 
 pokeShape :: Ptr Float -> Ptr GLushort -> Ptr GLushort