Skip to content

Commit 0a1efdb

Browse files
committed
Fix eval plugin
1 parent 7ab7b45 commit 0a1efdb

File tree

1 file changed

+7
-0
lines changed

1 file changed

+7
-0
lines changed

plugins/hls-eval-plugin/src/Ide/Plugin/Eval/CodeLens.hs

+7
Original file line numberDiff line numberDiff line change
@@ -78,6 +78,9 @@ import GHC (ClsInst,
7878
exprType,
7979
getInfo,
8080
getInteractiveDynFlags,
81+
#if MIN_VERSION_ghc(9,3,0)
82+
setUnitDynFlags,
83+
#endif
8184
isImport, isStmt,
8285
parseName,
8386
pprFamInst,
@@ -465,7 +468,11 @@ evals mark_exception (st, fp) df stmts = do
465468
<> T.pack (intercalate ", " $ map SrcLoc.unLoc ignoreds)
466469
]
467470
dbg "post set" $ showDynFlags df'
471+
#if MIN_VERSION_ghc(9,3,0)
472+
_ <- setUnitDynFlags (homeUnitId_ df') df'
473+
#else
468474
_ <- setSessionDynFlags df'
475+
#endif
469476
sessDyns <- getSessionDynFlags
470477
setInteractiveDynFlags sessDyns
471478
pure $ warnings <> igns

0 commit comments

Comments
 (0)