From: Ian Lynagh <igloo@earth.li>
Date: Sat, 3 May 2008 23:52:11 +0000 (+0000)
Subject: Tiny code tweak in the definition of io in GhciMonad; no semantic change
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=983743b6c501873adacea295259335d70f950eec

Tiny code tweak in the definition of io in GhciMonad; no semantic change
---

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