Commit ee4ced43 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Comments only

parent 6f818e08
......@@ -433,6 +433,7 @@ runGhc mb_top_dir ghc = do
-- several threads.
#if __GLASGOW_HASKELL__ < 710
-- Pre-AMP change
runGhcT :: (ExceptionMonad m, Functor m) =>
#else
runGhcT :: (ExceptionMonad m) =>
......
......@@ -185,6 +185,7 @@ instance ExceptionMonad m => ExceptionMonad (GhcT m) where
unGhcT (f g_restore) s
#if __GLASGOW_HASKELL__ < 710
-- Pre-AMP change
instance (ExceptionMonad m, Functor m) => HasDynFlags (GhcT m) where
#else
instance (ExceptionMonad m) => HasDynFlags (GhcT m) where
......@@ -192,6 +193,7 @@ instance (ExceptionMonad m) => HasDynFlags (GhcT m) where
getDynFlags = getSessionDynFlags
#if __GLASGOW_HASKELL__ < 710
-- Pre-AMP change
instance (ExceptionMonad m, Functor m) => GhcMonad (GhcT m) where
#else
instance (ExceptionMonad m) => GhcMonad (GhcT m) where
......
......@@ -68,6 +68,7 @@ instance Functor m => Functor (MaybeT m) where
fmap f x = MaybeT $ fmap (fmap f) $ runMaybeT x
#if __GLASGOW_HASKELL__ < 710
-- Pre-AMP change
instance (Monad m, Functor m) => Applicative (MaybeT m) where
#else
instance (Monad m) => Applicative (MaybeT m) where
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment