aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-10-12 17:15:24 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-10-12 17:15:24 +0200
commit79a2509eec15de0b88df078a9f8b19cd39b241a7 (patch)
treef720724fdfea7c018a50867db5b47a2a96c0564d
parent6af9d782c39a3fe57bdb798fcfc8c561df29e333 (diff)
downloadxmonad-79a2509eec15de0b88df078a9f8b19cd39b241a7.tar.gz
xmonad-79a2509eec15de0b88df078a9f8b19cd39b241a7.tar.xz
xmonad-79a2509eec15de0b88df078a9f8b19cd39b241a7.zip
Make runX return XState
darcs-hash:20071012151524-a5988-8ef9d310d3e0576b5880c1e8b3d3fc38ec3b8f64.gz
-rw-r--r--XMonad.hs4
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.