mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-19 12:56:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

IHaskell.Eval.Util: handle GHC environment files in initGhci (#1280)

Browse Source
This commit is contained in:
Vaibhav Sagar 2021-10-03 04:20:59 -04:00 committed by GitHub
parent f842343aa1
commit 09026349db
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/IHaskell/Eval/Util.hs
View File

@ -279,7 +279,13 @@ doc sdoc = do
initGhci :: GhcMonad m => Maybe String -> m ()
initGhci sandboxPackages = do
-- Initialize dyn flags. Start with -XExtendedDefaultRules and -XNoMonomorphismRestriction.
#if MIN_VERSION_ghc(9,0,0)
-- We start handling GHC environment files
originalFlagsNoPackageEnv <- getSessionDynFlags
originalFlags <- liftIO $ interpretPackageEnv originalFlagsNoPackageEnv
#else
originalFlags <- getSessionDynFlags
#endif
let flag = flip xopt_set
unflag = flip xopt_unset
dflags = flag ExtendedDefaultRules . unflag MonomorphismRestriction $ originalFlags