From 983743b6c501873adacea295259335d70f950eec Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 3 May 2008 23:52:11 +0000 Subject: [PATCH] Tiny code tweak in the definition of io in GhciMonad; no semantic change --- compiler/ghci/GhciMonad.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ghci/GhciMonad.hs b/compiler/ghci/GhciMonad.hs index 9202ddf..80512e7 100644 --- a/compiler/ghci/GhciMonad.hs +++ b/compiler/ghci/GhciMonad.hs @@ -190,7 +190,7 @@ unsetOption opt setGHCiState (st{ options = filter (/= opt) (options st) }) io :: IO a -> GHCi a -io m = GHCi { unGHCi = \_ -> m >>= return } +io m = GHCi (\_ -> m) printForUser :: SDoc -> GHCi () printForUser doc = do -- 1.7.10.4