From 79a2509eec15de0b88df078a9f8b19cd39b241a7 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 12 Oct 2007 17:15:24 +0200
Subject: Make runX return XState

darcs-hash:20071012151524-a5988-8ef9d310d3e0576b5880c1e8b3d3fc38ec3b8f64.gz
---
 XMonad.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad.hs')

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.
-- 
cgit v1.2.3