From 6f4cb41cb009d3db12dbe0a49f7c28daaa1e448a Mon Sep 17 00:00:00 2001
From: Eric Conlon <37287+ejconlon@users.noreply.github.com>
Date: Mon, 5 Feb 2024 17:01:11 -0800
Subject: [PATCH] dispose

---
 minipat-dirt/src/Minipat/Dirt/Boot.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/minipat-dirt/src/Minipat/Dirt/Boot.hs b/minipat-dirt/src/Minipat/Dirt/Boot.hs
index 7d85bc4..a2ccac7 100644
--- a/minipat-dirt/src/Minipat/Dirt/Boot.hs
+++ b/minipat-dirt/src/Minipat/Dirt/Boot.hs
@@ -17,6 +17,9 @@ initialize = do
   L.logInfo logger "Initializing"
   C.initSt logger C.defaultEnv
 
+dispose :: Dirt => IO ()
+dispose = C.disposeSt dirt
+
 getCps :: (Dirt) => IO Rational
 getCps = C.getCps dirt