From dd9ecfcbe5d90dd43c40732fd3522aa19afd7c38 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Wed, 14 Aug 2024 01:44:30 +0100
Subject: [PATCH] delete shaders after linking them in program, which reduces
 memory by like 0.1 MB (very minor)

---
 imperative-shell/app-draw.sml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/imperative-shell/app-draw.sml b/imperative-shell/app-draw.sml
index 6090883..eb8f7cd 100644
--- a/imperative-shell/app-draw.sml
+++ b/imperative-shell/app-draw.sml
@@ -21,6 +21,8 @@ struct
 
       (* Flag shaders for deletion as we no longer need them 
        * once the program is linked. *)
+      val _ = Gles3.deleteShader vertexShader
+      val _ = Gles3.deleteShader fragmentShader
     in
       {vertexBuffer = vertexBuffer, program = program}
     end