diff options
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/GhciMonad.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ghc/GhciMonad.hs b/ghc/GhciMonad.hs index 8c755be930..7dd005b99e 100644 --- a/ghc/GhciMonad.hs +++ b/ghc/GhciMonad.hs @@ -179,12 +179,11 @@ instance Functor GHCi where fmap = liftM instance Applicative GHCi where - pure = return + pure a = GHCi $ \_ -> pure a (<*>) = ap instance Monad GHCi where (GHCi m) >>= k = GHCi $ \s -> m s >>= \a -> unGHCi (k a) s - return a = GHCi $ \_ -> return a getGHCiState :: GHCi GHCiState getGHCiState = GHCi $ \r -> liftIO $ readIORef r |