We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 7ab7b45 commit 0a1efdbCopy full SHA for 0a1efdb
plugins/hls-eval-plugin/src/Ide/Plugin/Eval/CodeLens.hs
@@ -78,6 +78,9 @@ import GHC (ClsInst,
78
exprType,
79
getInfo,
80
getInteractiveDynFlags,
81
+#if MIN_VERSION_ghc(9,3,0)
82
+ setUnitDynFlags,
83
+#endif
84
isImport, isStmt,
85
parseName,
86
pprFamInst,
@@ -465,7 +468,11 @@ evals mark_exception (st, fp) df stmts = do
465
468
<> T.pack (intercalate ", " $ map SrcLoc.unLoc ignoreds)
466
469
]
467
470
dbg "post set" $ showDynFlags df'
471
472
+ _ <- setUnitDynFlags (homeUnitId_ df') df'
473
+#else
474
_ <- setSessionDynFlags df'
475
476
sessDyns <- getSessionDynFlags
477
setInteractiveDynFlags sessDyns
478
pure $ warnings <> igns
0 commit comments