@@ -63,7 +63,7 @@ import Control.Concurrent.MVar
6363 readMVar, newMVar, newEmptyMVar, modifyMVar)
6464import Network.Wai.Handler.Warp
6565 (defaultSettings, setTimeout, setPort, runSettings)
66−import Foreign.Store (newStore, readStore, lookupStore)
66+import Foreign.Store (newStore, readStore, lookupStore, writeStore, Store(..))
6767import Language.Javascript.JSaddle (askJSM)
6868import Control.Monad.IO.Class (MonadIO(..))
6969
@@ -267,13 +267,13 @@ debugWrapper run = do
267267 start' <- takeMVar mvar
268268 n <- stop
269269 start' n >>= restarter mvar
270− lookupStore shutdown_0 >>= \case
270+ lookupStore storeId >>= \case
271271 Nothing -> do
272272 restartMVar <- newMVar start
273273 void . forkIO $ restarter restartMVar (return 0)
274− void $ newStore restartMVar
274+ void $ writeStore (Store storeId) restartMVar
275275 Just shutdownStore -> do
276276 restartMVar :: MVar (Int -> IO (IO Int)) <- readStore shutdownStore
277277 void $ tryTakeMVar restartMVar
278278 putMVar restartMVar start
279− where shutdown_0 = 0
279+ where storeId = 354