Skip to content

Commit 3ab746d

Browse files
committed
Fix compatibility issue: Obtaining from
1 parent be67eed commit 3ab746d

File tree

1 file changed

+8
-1
lines changed

1 file changed

+8
-1
lines changed

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

+8-1
Original file line numberDiff line numberDiff line change
@@ -297,9 +297,16 @@ importPackageInlayHintProvider _ state _ InlayHintParams {_textDocument = TextDo
297297
realSrcSpanToEndPosition :: RealSrcSpan -> Position
298298
realSrcSpanToEndPosition realSrcSpan = realSrcSpanToRange realSrcSpan ^. L.end
299299

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

0 commit comments

Comments
 (0)