@@ -897,7 +897,6 @@ getTouchEvent = do
897 fmap catMaybes . forM [0 .. n - 1] $ \ix -> do
897 fmap catMaybes . forM [0 .. n - 1] $ \ix -> do
898 mt <- TouchList.item ts ix
898 mt <- TouchList.item ts ix
899 forM mt $ \t -> do
899 forM mt $ \t -> do
900− -- TODO: Applicative?
901 identifier <- Touch.getIdentifier t
900 identifier <- Touch.getIdentifier t
902 screenX <- Touch.getScreenX t
901 screenX <- Touch.getScreenX t
903 screenY <- Touch.getScreenY t
902 screenY <- Touch.getScreenY t