c91016b · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

Touchstart, Touchend, Touchcancel all return list of coordinates (#126)

commitc91016bf064b9e0e79a125fa7a7b188a639806d2 authorSid Raval <sidraval@users.noreply.github.com> dateMon 9 Jan 2017, 16:47 (10 years ago) parent0ea0b12

2 files changed+9−9

compare with develop

unifiedsplit

src/Reflex/Dom/Builder/Class/Events.hs+3−3 src/Reflex/Dom/Builder/Immediate.hs+6−6

src/Reflex/Dom/Builder/Class/Events.hs+3−3

@@ -148,10 +148,10 @@ type family EventResultType (en :: EventTag) :: * where

148148 EventResultType 'ResetTag = ()

149149 EventResultType 'SearchTag = ()

150150 EventResultType 'SelectstartTag = ()

151− EventResultType 'TouchstartTag = ()

151+ EventResultType 'TouchstartTag = [(Int, Int)]

152152 EventResultType 'TouchmoveTag = [(Int, Int)]

153− EventResultType 'TouchendTag = ()

154− EventResultType 'TouchcancelTag = ()

153+ EventResultType 'TouchendTag = [(Int, Int)]

154+ EventResultType 'TouchcancelTag = [(Int, Int)]

155155 EventResultType 'WheelTag = ()

156156

157157deriveGEq ''EventName

src/Reflex/Dom/Builder/Immediate.hs+6−6

@@ -627,10 +627,10 @@ defaultDomEventHandler e evt = fmap (Just . EventResult) $ case evt of

627627 Reset -> return ()

628628 Search -> return ()

629629 Selectstart -> return ()

630− Touchstart -> return ()

630+ Touchstart -> getTouchEventCoords

631631 Touchmove -> getTouchEventCoords

632− Touchend -> return ()

633− Touchcancel -> return ()

632+ Touchend -> getTouchEventCoords

633+ Touchcancel -> getTouchEventCoords

634634 Mousewheel -> return ()

635635 Wheel -> return ()

636636

@@ -677,10 +677,10 @@ defaultDomWindowEventHandler w evt = fmap (Just . EventResult) $ case evt of

677677 Reset -> return ()

678678 Search -> return ()

679679 Selectstart -> return ()

680− Touchstart -> return ()

680+ Touchstart -> getTouchEventCoords

681681 Touchmove -> getTouchEventCoords

682− Touchend -> return ()

683− Touchcancel -> return ()

682+ Touchend -> getTouchEventCoords

683+ Touchcancel -> getTouchEventCoords

684684 Mousewheel -> return ()

685685 Wheel -> return ()

686686