@@ -624,10 +624,10 @@ defaultDomEventHandler e evt = fmap (Just . EventResult) $ case evt of
624624 Reset -> return ()
625625 Search -> return ()
626626 Selectstart -> return ()
627− Touchstart -> getTouchEventCoords
628− Touchmove -> getTouchEventCoords
629− Touchend -> getTouchEventCoords
630− Touchcancel -> getTouchEventCoords
627+ Touchstart -> getTouchEvent
628+ Touchmove -> getTouchEvent
629+ Touchend -> getTouchEvent
630+ Touchcancel -> getTouchEvent
631631 Mousewheel -> return ()
632632 Wheel -> return ()
633633
@@ -674,10 +674,10 @@ defaultDomWindowEventHandler w evt = fmap (Just . EventResult) $ case evt of
674674 Reset -> return ()
675675 Search -> return ()
676676 Selectstart -> return ()
677− Touchstart -> getTouchEventCoords
678− Touchmove -> getTouchEventCoords
679− Touchend -> getTouchEventCoords
680− Touchcancel -> getTouchEventCoords
677+ Touchstart -> getTouchEvent
678+ Touchmove -> getTouchEvent
679+ Touchend -> getTouchEvent
680+ Touchcancel -> getTouchEvent
681681 Mousewheel -> return ()
682682 Wheel -> return ()
683683
@@ -887,22 +887,52 @@ getMouseEventCoords = do
887887 bisequence (getClientX e, getClientY e)
888888
889889#ifdef __GHCJS__
890−{-# INLINABLE getTouchEventCoords #-}
891−getTouchEventCoords :: EventM e TouchEvent [(Int, Int)]
892−getTouchEventCoords = do
890+{-# INLINABLE getTouchEvent #-}
891+getTouchEvent :: EventM e TouchEvent TouchEventResult
892+getTouchEvent = do
893+ let touchResults = \case
894+ Nothing -> return []
895+ Just ts -> do
896+ n <- TouchList.getLength ts
897+ fmap catMaybes . forM [0 .. n - 1] $ \ix -> do
898+ mt <- TouchList.item ts ix
899+ forM mt $ \t -> do
900+ identifier <- Touch.getIdentifier t
901+ screenX <- Touch.getScreenX t
902+ screenY <- Touch.getScreenY t
903+ clientX <- Touch.getClientX t
904+ clientY <- Touch.getClientY t
905+ pageX <- Touch.getPageX t
906+ pageY <- Touch.getPageY t
907+ return $ TouchResult
908+ { _touchResult_identifier = identifier
909+ , _touchResult_screenX = screenX
910+ , _touchResult_screenY = screenY
911+ , _touchResult_clientX = clientX
912+ , _touchResult_clientY = clientY
913+ , _touchResult_pageX = pageX
914+ , _touchResult_pageY = pageY
915+ }
893916 e <- event
894− mTouchList <- TouchEvent.getTouches e
895− case mTouchList of
896− Just touchList -> do
897− touchListLength <- TouchList.getLength touchList
898− mTouchCoords <- forM [0..touchListLength - 1] $ \i -> do
899− mTouch <- TouchList.item touchList i
900− return $ fmap (\t -> bisequence (Touch.getClientX t, Touch.getClientY t)) mTouch
901− sequence $ catMaybes mTouchCoords
902− _ -> return []
917+ altKey <- TouchEvent.getAltKey e
918+ ctrlKey <- TouchEvent.getCtrlKey e
919+ shiftKey <- TouchEvent.getShiftKey e
920+ metaKey <- TouchEvent.getMetaKey e
921+ changedTouches <- touchResults =<< TouchEvent.getChangedTouches e
922+ targetTouches <- touchResults =<< TouchEvent.getTargetTouches e
923+ touches <- touchResults =<< TouchEvent.getTouches e
924+ return $ TouchEventResult
925+ { _touchEventResult_altKey = altKey
926+ , _touchEventResult_changedTouches = changedTouches
927+ , _touchEventResult_ctrlKey = ctrlKey
928+ , _touchEventResult_metaKey = metaKey
929+ , _touchEventResult_shiftKey = shiftKey
930+ , _touchEventResult_targetTouches = targetTouches
931+ , _touchEventResult_touches = touches
932+ }
903933#else
904−getTouchEventCoords :: EventM e TouchEvent [(Int, Int)]
905−getTouchEventCoords = return []
934+getTouchEvent :: EventM e TouchEvent TouchEventResult
935+getTouchEvent = return $ TouchEventResult False [] False False False [] []
906936#endif
907937
908938instance MonadSample t m => MonadSample t (ImmediateDomBuilderT t m) where