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