diff options
| -rw-r--r-- | XMonad/Actions/MouseGestures.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Actions/MouseGestures.hs b/XMonad/Actions/MouseGestures.hs index 1fc47e5..0a20cc5 100644 --- a/XMonad/Actions/MouseGestures.hs +++ b/XMonad/Actions/MouseGestures.hs @@ -125,16 +125,16 @@ mouseGesture tbl win = do -- collect mouse movements (and return the current gesture as a list); the end -- hook will return a list of the completed gesture, which you can access with -- 'Control.Monad.>>='. -mkCollect :: (MonadIO m) => m (Direction -> X [Direction], X [Direction]) +mkCollect :: (MonadIO m, MonadIO m') => m (Direction -> m' [Direction], m' [Direction]) mkCollect = liftIO $ do acc <- newIORef [] let - mov d = io $ do + mov d = liftIO $ do ds <- readIORef acc let ds' = d : ds writeIORef acc ds' return $ reverse ds' - end = io $ do + end = liftIO $ do ds <- readIORef acc writeIORef acc [] return $ reverse ds |