Skip to content

Instantly share code, notes, and snippets.

@luigy
Last active June 22, 2017 23:38
Show Gist options
  • Save luigy/8311ff3b7832eaf5147c5381c070f7fa to your computer and use it in GitHub Desktop.
Save luigy/8311ff3b7832eaf5147c5381c070f7fa to your computer and use it in GitHub Desktop.
different behavior with ghcjs vs ghc(jsaddle-warp)
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Control.Monad
import Reflex.Dom
main :: IO ()
main = run $ mainWidget' $ do
(outer, inner) <- el' "div" $ do
elStopPropagationNS Nothing "div" Click $ do
button "INNER"
dynText <=< holdDyn "" $ leftmost ["OUTER" <$ domEvent Click outer, "INNER" <$ inner]
@luigy
Copy link
Author

luigy commented Jun 22, 2017

versions used:
ghcjs-dom-jsaddle-0.8.0.0
jsaddle-0.8.3.2
jsaddle-dom-0.8.0.0
jsaddle-warp-0.8.3.1

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment