@@ -29,7 +29,7 @@ import Reflex.TriggerEvent.Base hiding (askEvents)
29import Reflex.TriggerEvent.Class
29import Reflex.TriggerEvent.Class
31import Control.Concurrent.Chan
31import Control.Concurrent.Chan
32−import Control.Lens hiding (element)
32+import Control.Lens hiding (element, ix)
33import Control.Monad.Exception
33import Control.Monad.Exception
34import Control.Monad.Primitive
34import Control.Monad.Primitive
35import Control.Monad.Reader
35import Control.Monad.Reader
@@ -894,7 +894,7 @@ getTouchEvent = do
894 Nothing -> return []
894 Nothing -> return []
895 Just ts -> do
895 Just ts -> do
896 n <- TouchList.getLength ts
896 n <- TouchList.getLength ts
897− fmap catMaybes . forM [0 .. n - 1] $ \ix -> do
897+ fmap catMaybes . forM (takeWhile (< n) [0..]) $ \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 identifier <- Touch.getIdentifier t
900 identifier <- Touch.getIdentifier t