Make runX return XState

darcs-hash:20071012151524-a5988-8ef9d310d3e0576b5880c1e8b3d3fc38ec3b8f64

1 files changed, 2 insertions, 2 deletions

diff --git a/XMonad.hs b/XMonad.hs
index 501e684..f124d7e 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -81,8 +81,8 @@ newtype X a = X (ReaderT XConf (StateT XState IO) a)
 
 -- | Run the X monad, given a chunk of X monad code, and an initial state
 -- Return the result, and final state
-runX :: XConf -> XState -> X a -> IO ()
-runX c st (X a) = runStateT (runReaderT a c) st >> return ()
+runX :: XConf -> XState -> X a -> IO (a, XState)
+runX c st (X a) = runStateT (runReaderT a c) st
 
 -- | Run in the X monad, and in case of exception, and catch it and log it
 -- to stderr, and run the error case.