From a1fb279c87203bbd81f1e22d2b6fbf0fc581896a Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Sat, 10 Mar 2007 02:29:40 +0100 Subject: refactor, trying to seperate out IO from W stuff, in order to QC the handler at some point darcs-hash:20070310012940-9c5c1-2118696702dac70f922b5ba781a3775598b955cd --- WMonad.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'WMonad.hs') diff --git a/WMonad.hs b/WMonad.hs index af18901..4e622c5 100644 --- a/WMonad.hs +++ b/WMonad.hs @@ -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 () -- cgit v1.2.3