diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-07 04:38:55 +0100 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-07 04:38:55 +0100 |
commit | ec48390072857ce86d060ff9d710fb8b317570f3 (patch) | |
tree | 11a2250c03d4bc68665109f0670c00e3666b58e2 /W.hs | |
parent | 3c4a8246317d44e48f82dfd6d9ecff6b2e65c787 (diff) | |
download | xmonad-ec48390072857ce86d060ff9d710fb8b317570f3.tar.gz xmonad-ec48390072857ce86d060ff9d710fb8b317570f3.tar.xz xmonad-ec48390072857ce86d060ff9d710fb8b317570f3.zip |
refactoring
darcs-hash:20070307033855-9c5c1-999ba9e7d3cd15a6363e8da777879ed72d0020c6.gz
Diffstat (limited to '')
-rw-r--r-- | W.hs | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -10,7 +10,8 @@ -- ----------------------------------------------------------------------------- -- --- The W monad, a state monad transformer over IO, for the window manager state. +-- The W monad, a state monad transformer over IO, for the window +-- manager state, and support routines. -- module W where @@ -70,6 +71,12 @@ trace msg = io $ do hPutStrLn stderr msg hFlush stderr +-- +-- | Run an action forever +-- +forever :: (Monad m) => m a -> m b +forever a = a >> forever a + -- --------------------------------------------------------------------- -- Getting at the window manager state |