@@ -54,8 +54,8 @@ mainWidget w = withJSContextSingleton $ \jsSing -> do
5454
5555{-# INLINABLE mainWidget' #-}
5656-- | Warning: `mainWidget'` is provided only as performance tweak. It is expected to disappear in future releases.
57−mainWidget' :: Widget () () -> IO ()
58−mainWidget' w = withJSContextSingleton $ \jsSing -> do
57+mainWidget' :: Widget () () -> JSM ()
58+mainWidget' w = withJSContextSingletonMono $ \jsSing -> do
5959 doc <- currentDocumentUnchecked
6060 body <- getBodyUnchecked doc
6161 attachWidget body jsSing w