Event handler removal fails.

[cliffordbeshers]

The following program should do nothing when the text is clicked, but the Ugh message appears anyway.

{-# LANGUAGE OverloadedStrings #-}

import Control.Monad (void)
import Data.Default
import Data.Text (Text)
import JavaScript.JQuery

default (Text)

main = do
body <- select "body"
button <- select "

Should do nothing when clicked.

"
response <- select "

Ugh, it did something.

"
appendJQuery button body
detach <- click (\e -> void $ appendJQuery response body) def button
detach
return ()

[cliffordbeshers]

N.B. If I open the javascript console in the browser and run $().off on that element, the event handler is removed.