From a7d2446ed524d61515543f1fa32c5218431e9ee4 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Wed, 7 Mar 2007 04:38:55 +0100
Subject: refactoring

darcs-hash:20070307033855-9c5c1-999ba9e7d3cd15a6363e8da777879ed72d0020c6
---
 W.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'W.hs')

diff --git a/W.hs b/W.hs
index 0dc3e16..016baaa 100644
--- a/W.hs
+++ b/W.hs
@@ -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
 
-- 
cgit v1.2.3