diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-10 02:29:40 +0100 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-10 02:29:40 +0100 |
commit | 081c040533e4ebb18c6a216b98b0afef758767fc (patch) | |
tree | a5a6dd4116367a8e71b2fe34bc108e75cae1415e /WMonad.hs | |
parent | e37a864f65682a05e80de51aab8ea7969798078d (diff) | |
download | xmonad-081c040533e4ebb18c6a216b98b0afef758767fc.tar.gz xmonad-081c040533e4ebb18c6a216b98b0afef758767fc.tar.xz xmonad-081c040533e4ebb18c6a216b98b0afef758767fc.zip |
refactor, trying to seperate out IO from W stuff, in order to QC the handler at some point
darcs-hash:20070310012940-9c5c1-2118696702dac70f922b5ba781a3775598b955cd.gz
Diffstat (limited to '')
-rw-r--r-- | WMonad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -43,8 +43,8 @@ newtype W a = W (StateT WState IO a) -- | Run the W monad, given a chunk of W monad code, and an initial state -- Return the result, and final state -runW :: WState -> W a -> IO (a, WState) -runW st (W a) = runStateT a st +runW :: WState -> W a -> IO () +runW st (W a) = runStateT a st >> return () -- | Run a monad action with the current display settings withDisplay :: (Display -> W ()) -> W () |