Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import Html exposing (h1, div, text)
- import Mouse
- renderMouse : (Int, Int) -> Html.Html
- renderMouse pos =
- div [] [
- h1 [] [text ("x" ++ (toString (fst pos)))],
- h1 [] [text ("y" ++ (toString (snd pos)))]
- ]
- main : Signal Html.Html
- main = Signal.map renderMouse Mouse.position
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement