Commit before trying to store shape indices using mutable vector

src/Shader/Poke.hs

@@ -68,6 +68,7 @@ pokeShapeObj ptr iptr ieptr counts (ShapeObj shType shVerts) = case shType of
 
 pokeTopPrism :: Int -> Ptr Float -> Ptr GLushort 
     -> Ptr GLushort -> (Int,Int,Int) -> [ShapeV] -> IO (Int,Int,Int)
+{-# INLINE pokeTopPrism #-}
 pokeTopPrism size ptr iptr ieptr (nv,ni,nei) svs = do
     MP.bindM3 (\a b c -> return (a,b,c))
         (VS.foldlM' (pokeJustV ptr) nv (VS.fromList svs) )