From 4033d2d89c5c50a666c234fab85986ec6523269d Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Fri, 9 Mar 2007 07:38:18 +0100
Subject: sneaky inline

darcs-hash:20070309063818-9c5c1-0da46cb02c5b9ad2c7272a23d9aec2b7ee1a3046.gz
---
 WMonad.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'WMonad.hs')

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