Fix builds

Author: vidit-od

plugins/hls-refactor-plugin/src/Development/IDE/Plugin/Plugins/AddArgument.hs

@@ -12,6 +12,7 @@ import           Development.IDE.GHC.ExactPrint            (modifyMgMatchesT',
                                                             modifySigWithM,
                                                             modifySmallestDeclWithM)
 import           Development.IDE.Plugin.Plugins.Diagnostic
+import           Development.IDE.Types.Diagnostics         (FileDiagnostic (fdLspDiagnostic))
 import           GHC.Parser.Annotation                     (SrcSpanAnnA,
                                                             SrcSpanAnnN, noAnn)
 import           Ide.Plugin.Error                          (PluginError (PluginInternalError))
@@ -32,7 +33,6 @@ import           GHC.Parser.Annotation                     (TokenLocation (..))
 #if !MIN_VERSION_ghc(9,9,0)
 import           Development.IDE.GHC.Compat.ExactPrint     (makeDeltaAst)
 import           Development.IDE.GHC.ExactPrint            (genAnchor1)
-import           Development.IDE.Types.Diagnostics         (FileDiagnostic (fdLspDiagnostic))
 import           GHC.Parser.Annotation                     (EpAnn (..),
                                                             SrcSpanAnn' (..),
                                                             emptyComments)

plugins/hls-refactor-plugin/src/Development/IDE/Plugin/Plugins/FillHole.hs

@@ -42,7 +42,11 @@ import           Text.Regex.TDFA                           (MatchResult (..),
 suggestFillHole :: ExportsMap -> ParsedModule -> FileDiagnostic -> [(T.Text, TextEdit)]
 suggestFillHole exportsMap pm diag
     | Just holeName <- extractHoleName diag
+#if MIN_VERSION_ghc(9,13,0)
+    , Just (ErrInfo ctx suppl _) <- extractErrInfo diag
+#else
     , Just (ErrInfo ctx suppl) <- extractErrInfo diag
+#endif
     , (holeFits, refFits) <- processHoleSuggestions $ T.lines (printErr suppl) =
       let isInfixHole = printErr ctx =~ addBackticks holeName :: Bool in
         map (proposeHoleFit holeName False isInfixHole) holeFits