XMonad.Actions.MouseGestures.mkCollect: generalize type

darcs-hash:20080229211732-462cf-01169e7d9e548b87da8b1f2662bedb8619f35add.gz

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