@@ -24,7 +24,7 @@ import Data.Text (Text)
2424import qualified Data.Text as T
2525import GHCJS.DOM.Element hiding (reset)
2626import GHCJS.DOM.EventM (on)
27−import GHCJS.DOM.Types (runJSM, askJSM, liftJSM, MonadJSM)
27+import GHCJS.DOM.Types (liftJSM, MonadJSM)
2828
2929-- | A widget that wraps the given widget in a div and fires an event when resized.
3030-- Adapted from github.com/marcj/css-element-queries
@@ -79,7 +79,6 @@ resizeDetectorWithAttrs attrs w = do
7979 expandScroll <- wrapDomEvent (_element_raw expand) (`on` scroll) $ return ()
8080 shrinkScroll <- wrapDomEvent (_element_raw shrink) (`on` scroll) $ return ()
8181 size0 <- performEvent $ fmap (const $ liftJSM reset) pb
82− ctx <- askJSM
83− rec resize <- performEventAsync $ fmap (\d cb -> liftIO $ cb =<< runJSM (resetIfChanged d) ctx) $ tag (current dimensions) $ leftmost [expandScroll, shrinkScroll]
82+ rec resize <- performEventAsync $ fmap (\d cb -> (liftIO . cb) =<< liftJSM (resetIfChanged d)) $ tag (current dimensions) $ leftmost [expandScroll, shrinkScroll]
8483 dimensions <- holdDyn (Nothing, Nothing) $ leftmost [ size0, fmapMaybe id resize ]
8584 return (fmapMaybe void resize, w')