Continue adding mutability

src/Shader/Poke.hs

@@ -124,19 +124,6 @@ pokePoint3s ptr vals0 = go vals0 0
       where
         off i = n*3 + i
 
-
-vboFromType :: PicShads VBO -> Int -> VBO
-{-# INLINE vboFromType #-}
-vboFromType ps sn = case sn of
-    0 -> _psPoly ps
-    1 -> _psPolyz ps
-    2 -> _psBez ps
-    3 -> _psText ps
-    4 -> _psArc ps
-    5 -> _psEll ps
-    _ -> undefined
-
-
 pokeLayVerxs :: MV.MVector (PrimState IO) VShader 
     -> UMV.MVector (PrimState IO) Int
     -> [Verx] -> IO (IM.IntMap (PicShads Int))