Advertisement
Guest User

Untitled

a guest
Jul 29th, 2015
182
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.28 KB | None | 0 0
  1. import Html exposing (h1, div, text)
  2. import Mouse
  3.  
  4. renderMouse : (Int, Int) -> Html.Html
  5. renderMouse pos =
  6. div [] [
  7. h1 [] [text ("x" ++ (toString (fst pos)))],
  8. h1 [] [text ("y" ++ (toString (snd pos)))]
  9. ]
  10.  
  11.  
  12. main : Signal Html.Html
  13. main = Signal.map renderMouse Mouse.position
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement