Skip to content

Commit 6ed87d8

Browse files
committed
Fix compatibility issue: Obtaining from
1 parent 0333e11 commit 6ed87d8

1 file changed

Lines changed: 8 additions & 1 deletion

File tree

plugins/hls-explicit-imports-plugin/src/Ide/Plugin/ExplicitImports.hs

Lines changed: 8 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -299,9 +299,16 @@ importPackageInlayHintProvider _ state _ InlayHintParams {_textDocument = TextDo
299299
realSrcSpanToEndPosition :: RealSrcSpan -> Position
300300
realSrcSpanToEndPosition realSrcSpan = realSrcSpanToRange realSrcSpan ^. L.end
301301

302+
importAnnotation :: ImportDecl GhcPs -> EpAnnImportDecl
303+
#if MIN_VERSION_ghc(9,5,0)
304+
importAnnotation = anns . ideclAnn . ideclExt
305+
#else
306+
importAnnotation = anns . ideclExt
307+
#endif
308+
302309
hintPosition :: ImportDecl GhcPs -> Position
303310
hintPosition importDecl =
304-
let importAnn = anns $ ideclAnn $ ideclExt importDecl
311+
let importAnn = importAnnotation importDecl
305312
importPosition = realSrcSpanToEndPosition . epaLocationRealSrcSpan $ importDeclAnnImport importAnn
306313
moduleNamePosition = realSrcSpanToEndPosition $ realSrcSpan $ getLoc $ ideclName importDecl
307314
maybeQualifiedPosition = realSrcSpanToEndPosition . epaLocationRealSrcSpan <$> importDeclAnnQualified importAnn

0 commit comments

Comments
 (0)