Skip to content

Commit d5f38d3

Browse files
committed
Fix ImportLens plugin to work with GHC 8.10
1 parent 4990117 commit d5f38d3

File tree

1 file changed

+10
-1
lines changed

1 file changed

+10
-1
lines changed

src/Ide/Plugin/ImportLens.hs

Lines changed: 10 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -140,7 +140,7 @@ generateLens pId uri minImports (L src imp)
140140
| ImportDecl{ideclHiding = Just (False,_)} <- imp
141141
= return Nothing
142142
-- Qualified case
143-
| ImportDecl{ideclQualified = True} <- imp
143+
| isQualifiedImport imp
144144
= return Nothing
145145
-- No explicit import list
146146
| RealSrcSpan l <- src
@@ -171,3 +171,12 @@ generateLens pId uri minImports (L src imp)
171171
-- | A helper to run ide actions
172172
runIde :: IdeState -> Action a -> IO a
173173
runIde state = runAction "importLens" state
174+
175+
isQualifiedImport :: ImportDecl -> Bool
176+
#if MIN_GHC_API_VERSION(8,10,0)
177+
isQualifiedImport ImportDecl{ideclQualified = GHC.NotQualified} = False
178+
isQualifiedImport ImportDecl{ideclQualified = GHC.NotQualified} = True
179+
#else
180+
isQualifiedImport ImportDecl{ideclQualified} = ideclQualified
181+
#endif
182+

0 commit comments

Comments
 (0)