Skip to content

Instantly share code, notes, and snippets.

@dfithian

dfithian/unload.hs

Created November 1, 2022 17:34
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dfithian/05156955ccdb70a6738f94f9875fd4f0 to your computer and use it in GitHub Desktop.
Save dfithian/05156955ccdb70a6738f94f9875fd4f0 to your computer and use it in GitHub Desktop.
Download ZIP
Haskell Reflex Window Unload Event
Raw
unload.hs
import Control.Lens ((^.))
import Language.Javascript.JSaddle (JSCallAsFunction, MonadJSM, js2, jsg, liftJSM)
import Reflex.Dom (Event, MonadWidget, newTriggerEvent)
onWindowUnload :: MonadWidget t m => m (Event t ())
onWindowUnload = do
(event, trigger) <- newTriggerEvent
let body :: JSCallAsFunction = \_ _ [_event] -> liftIO (trigger ())
void . liftJSM $ jsg "window" ^. js2 "addEventListener" "beforeunload" body
pure event
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment