Comments only
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 9 Jan 2015 10:53:26 +0000 (10:53 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 9 Jan 2015 11:52:14 +0000 (11:52 +0000)
compiler/main/GHC.hs
compiler/main/GhcMonad.hs
compiler/utils/Maybes.hs

index 2557ec4..877ae74 100644 (file)
@@ -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) =>
index 6a3e107..5b2e422 100644 (file)
@@ -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
index f5083fd..a2ddbdf 100644 (file)
@@ -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