dispose

ejconlon · Feb 6, 2024 · 6f4cb41 · 6f4cb41
1 parent 09e1c3e
commit 6f4cb41
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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