@@ -897,7 +897,6 @@ getTouchEvent = do
897897 fmap catMaybes . forM [0 .. n - 1] $ \ix -> do
898898 mt <- TouchList.item ts ix
899899 forM mt $ \t -> do
900− -- TODO: Applicative?
901900 identifier <- Touch.getIdentifier t
902901 screenX <- Touch.getScreenX t
903902 screenY <- Touch.getScreenY t