git.iko.soy/reflex-dom
on develop help sign in
s/getX/getClientX
8eecbd8Greg Hale
src/Reflex/Dom/Widget/Basic.hs+1−1
compare with develop
unifiedsplit
@@ -623,7 +623,7 @@ getKeyEvent = do
623getMouseEventCoords :: EventM e MouseEvent (Int, Int)
623getMouseEventCoords :: EventM e MouseEvent (Int, Int)
624getMouseEventCoords = do
624getMouseEventCoords = do
625 e <- event
625 e <- event
626− bisequence (getX e, getY e)
626+ bisequence (getClientX e, getClientY e)
627
627
628defaultDomEventHandler :: IsElement e => e -> EventName en -> EventM e (EventType en) (Maybe (EventResult en))
628defaultDomEventHandler :: IsElement e => e -> EventName en -> EventM e (EventType en) (Maybe (EventResult en))
629defaultDomEventHandler e evt = liftM (Just . EventResult) $ case evt of
629defaultDomEventHandler e evt = liftM (Just . EventResult) $ case evt of