c91016b · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

on develop help sign in

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

c91016bSid Raval10 years ago

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

compare with develop

unifiedsplit

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

148 EventResultType 'ResetTag = ()

149 EventResultType 'SearchTag = ()

150 EventResultType 'SelectstartTag = ()

151− EventResultType 'TouchstartTag = ()

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

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

153− EventResultType 'TouchendTag = ()

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

154− EventResultType 'TouchcancelTag = ()

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

155 EventResultType 'WheelTag = ()

156

157deriveGEq ''EventName

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

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

627 Reset -> return ()

628 Search -> return ()

629 Selectstart -> return ()

630− Touchstart -> return ()

630+ Touchstart -> getTouchEventCoords

631 Touchmove -> getTouchEventCoords

632− Touchend -> return ()

632+ Touchend -> getTouchEventCoords

633− Touchcancel -> return ()

633+ Touchcancel -> getTouchEventCoords

634 Mousewheel -> return ()

635 Wheel -> return ()

636

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

677 Reset -> return ()

678 Search -> return ()

679 Selectstart -> return ()

680− Touchstart -> return ()

680+ Touchstart -> getTouchEventCoords

681 Touchmove -> getTouchEventCoords

682− Touchend -> return ()

682+ Touchend -> getTouchEventCoords

683− Touchcancel -> return ()

683+ Touchcancel -> getTouchEventCoords

684 Mousewheel -> return ()

685 Wheel -> return ()

686