sneaky inline

darcs-hash:20070309063818-9c5c1-0da46cb02c5b9ad2c7272a23d9aec2b7ee1a3046.gz

1 files changed, 1 insertions, 0 deletions

diff --git a/WMonad.hs b/WMonad.hs
index 0b48cac..29e68ef 100644
--- a/WMonad.hs
+++ b/WMonad.hs
@@ -56,6 +56,7 @@ withDisplay f = gets display >>= f
 -- | Lift an IO action into the W monad
 io :: IO a -> W a
 io = liftIO
+{-# INLINE io #-}
 
 -- | spawn. Launch an external application
 spawn :: String -> W ()