Haskell: Compile to JavaScript -- handle onClick and onMouseOver events.

HasteJavaScript.hs

import Haste

main :: IO ()
main = do
    -- Get handle to #msg div
    msg <- elemById "msg"
    
    case msg of
        Just m -> do
            -- Handle onClick event
            onEvent m OnClick $ \_ _ -> do
            setProp m "innerHTML" "Cool!"
            setStyle m "fontSize" "30"
          
            -- Handle onMouseOver event
            onEvent m OnMouseOver $ \_ -> alert ("Sweet!")
      
        _ -> error "Element not found"
 
    return ()