alloc

ejconlon · May 17, 2024 · 30b55a5 · 30b55a5
1 parent d054b21
commit 30b55a5
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/minipat-live/src/Minipat/Live/Boot.hs b/minipat-live/src/Minipat/Live/Boot.hs
@@ -5,6 +5,7 @@ module Minipat.Live.Boot
   ( LiveSt (..)
   , readLiveSt
   , allocate
+  , allocateWith
   , initialize
   , reallocate
   , dispose
@@ -63,9 +64,12 @@ readLiveSt :: (LiveSt) => IO (C.St LiveBackend)
 readLiveSt = readIORef liveStRef
 
 allocate :: (Default i) => IO (IORef (C.St i))
-allocate = do
+allocate = allocateWith def
+
+allocateWith :: i -> IO (IORef (C.St i))
+allocateWith be = do
   logger <- L.newLogger
-  st <- C.newSt logger def def
+  st <- C.newSt logger be def
   newIORef st
 
 initialize :: (LiveSt) => IO ()