Convert Touch docs.

libraries/Touch.elm

@@ -1,24 +1,35 @@
--- This is an early version of the touch library. It will likely grow to
--- include gestures that would be useful for both games and web-pages.
 module Touch where
 
+{-| This is an early version of the touch library. It will likely grow to
+include gestures that would be useful for both games and web-pages.
+
+# Touches
+@docs touches
+
+# Gestures
+@docs taps
+-}
+
 import Signal (Signal)
 import Native.Touch
 import Time (Time)
 
--- Every `Touch` has `xy` coordinates. It also has an identifier `id` to
--- distinguish one touch from another.
---
--- A touch also keeps info about the intial point and time of contact:
--- `x0`, `y0`, and `t0`. This helps compute more complicated gestures
--- like taps, drags, and swipes which need to know about timing or direction.
-type Touch = { x:Int, y:Int, id:Int, x0:Int, y0:Int, t0:Time }
+{-|
+Every `Touch` has `xy` coordinates. It also has an identifier `id` to
+distinguish one touch from another.
 
--- A list of ongoing touches.
+A touch also keeps info about the initial point and time of contact:
+`x0`, `y0`, and `t0`. This helps compute more complicated gestures
+like taps, drags, and swipes which need to know about timing or direction.
+type Touch = { x:Int, y:Int, id:Int, x0:Int, y0:Int, t0:Time }
+-}
+
+{-| A list of ongoing touches. -}
 touches : Signal [Touch]
 touches = Native.Touch.touches
 
--- The last position that was tapped. Default value is `{x=0,y=0}`.
--- Updates whenever the user taps the screen.
+{-| The last position that was tapped. Default value is `{x=0,y=0}`.
+Updates whenever the user taps the screen.
+-}
 taps : Signal { x:Int, y:Int }
-taps = Native.Touch.taps
+taps = Native.Touch.taps