Fix eval plugin

haskell · Nov 22, 2023 · 0a1efdb · 0a1efdb
1 parent 7ab7b45
commit 0a1efdb
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/plugins/hls-eval-plugin/src/Ide/Plugin/Eval/CodeLens.hs b/plugins/hls-eval-plugin/src/Ide/Plugin/Eval/CodeLens.hs
@@ -78,6 +78,9 @@ import           GHC                                          (ClsInst,
                                                                exprType,
                                                                getInfo,
                                                                getInteractiveDynFlags,
+#if MIN_VERSION_ghc(9,3,0)
+                                                               setUnitDynFlags,
+#endif
                                                                isImport, isStmt,
                                                                parseName,
                                                                pprFamInst,
@@ -465,7 +468,11 @@ evals mark_exception (st, fp) df stmts = do
                                 <> T.pack (intercalate ", " $ map SrcLoc.unLoc ignoreds)
                                 ]
                     dbg "post set" $ showDynFlags df'
+#if MIN_VERSION_ghc(9,3,0)
+                    _ <- setUnitDynFlags (homeUnitId_ df') df'
+#else
                     _ <- setSessionDynFlags df'
+#endif
                     sessDyns <- getSessionDynFlags
                     setInteractiveDynFlags sessDyns
                     pure $ warnings <> igns