From e98ada22fd8ffbe9c0e8bddca9e514c877f57d5b Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Tue, 21 Sep 2021 09:35:36 +0100
Subject: [PATCH] Commit before merging edge buffer into shape buffer

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

diff --git a/src/Shader/Poke.hs b/src/Shader/Poke.hs
index ff6fb8316..b275d536b 100644
--- a/src/Shader/Poke.hs
+++ b/src/Shader/Poke.hs
@@ -91,6 +91,9 @@ pokeShapeE eptr ieptr (nv,n,ni,nei) (V3 a b c) = do
     pokeElemOff ieptr nei (fromIntegral n)
     return $ (nv,n + 1,ni,nei+1)
 
+topPrismEdgeIndices :: Int -> [Int]
+topPrismEdgeIndices n = undefined
+
 topPrismIndices :: Int -> [Int]
 topPrismIndices n = concatMap f [1..n-2]    -- triangles on top face
     ++ [2*n-2,2*n-1,1