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 (file)
--- 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
       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
 
 printForUser :: SDoc -> GHCi ()
 printForUser doc = do