diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-04-20 16:54:38 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-04-26 13:55:14 -0400 |
| commit | af332442123878c1b61d236dce46418efcbe8750 (patch) | |
| tree | ec4b332843cdd4fedb4aa60b11b7b8dba82a0764 /ghc/Main.hs | |
| parent | b0fbfc7582fb81314dc28a056536737fb5eeaa6e (diff) | |
| download | haskell-af332442123878c1b61d236dce46418efcbe8750.tar.gz | |
Modules: Utils and Data (#13009)
Update Haddock submodule
Metric Increase:
haddock.compiler
Diffstat (limited to 'ghc/Main.hs')
| -rw-r--r-- | ghc/Main.hs | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index 7a356b920a..a4cd897ab4 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -53,23 +53,23 @@ import GHC.Driver.Packages ( pprPackages, pprPackagesSimple ) import GHC.Driver.Phases import GHC.Types.Basic ( failed ) import GHC.Driver.Session hiding (WarnReason(..)) -import ErrUtils -import FastString -import Outputable +import GHC.Utils.Error +import GHC.Data.FastString +import GHC.Utils.Outputable as Outputable import GHC.SysTools.BaseDir import GHC.Settings.IO import GHC.Types.SrcLoc -import Util -import Panic +import GHC.Utils.Misc +import GHC.Utils.Panic import GHC.Types.Unique.Supply -import MonadUtils ( liftIO ) +import GHC.Utils.Monad ( liftIO ) -- Imports for --abi-hash -import GHC.Iface.Load ( loadUserInterface ) -import GHC.Driver.Finder ( findImportedModule, cannotFindModule ) -import GHC.Tc.Utils.Monad ( initIfaceCheck ) -import Binary ( openBinMem, put_ ) -import GHC.Iface.Recomp.Binary ( fingerprintBinMem ) +import GHC.Iface.Load ( loadUserInterface ) +import GHC.Driver.Finder ( findImportedModule, cannotFindModule ) +import GHC.Tc.Utils.Monad ( initIfaceCheck ) +import GHC.Utils.Binary ( openBinMem, put_ ) +import GHC.Iface.Recomp.Binary ( fingerprintBinMem ) -- Standard Haskell libraries import System.IO @@ -786,7 +786,7 @@ showInfo dflags = do let sq x = " [" ++ x ++ "\n ]" putStrLn $ sq $ intercalate "\n ," $ map show $ compilerInfo dflags --- TODO use ErrUtils once that is disentangled from all the other GhcMonad stuff? +-- TODO use GHC.Utils.Error once that is disentangled from all the other GhcMonad stuff? showSupportedExtensions :: Maybe String -> IO () showSupportedExtensions m_top_dir = do res <- runExceptT $ do |