diff options
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index fc6ab88960..647bbadcf9 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -44,6 +44,7 @@ import Outputable import SrcLoc import Util import Panic +import UniqSupply import MonadUtils ( liftIO ) -- Imports for --abi-hash @@ -236,6 +237,7 @@ main' postLoadMode dflags0 args flagWarnings = do printInfoForUser (dflags6 { pprCols = 200 }) (pkgQual dflags6) (pprModuleMap dflags6) + liftIO $ initUniqSupply (initialUnique dflags6) (uniqueIncrement dflags6) ---------------- Final sanity checking ----------- liftIO $ checkOptions postLoadMode dflags6 srcs objs |