From 1883e0785eed84d63ecce643d28b2ec73aaecbe7 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Thu, 23 Sep 2021 22:05:37 +0100
Subject: [PATCH] Commit before trying to store shape indices using mutable
 vector

---
 src/Shader/Poke.hs | 1 +
 1 file changed, 1 insertion(+)

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) )