diff --git a/src/Shader/Poke.hs b/src/Shader/Poke.hs
index 6a0136498..152b261aa 100644
--- a/src/Shader/Poke.hs
+++ b/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) )