Skip to content

Commit f4df1aa

Browse files
authored
Adapt to minor API change for 9.6.4 compatibility (#3929)
The CPP will need to be adjusted again for 9.8.2 as the patch is likely to be backported there as well.
1 parent 92d3ba9 commit f4df1aa

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

ghcide/src/Development/IDE/Import/FindImports.hs

+4
Original file line numberDiff line numberDiff line change
@@ -219,7 +219,11 @@ notFoundErr env modName reason =
219219
}
220220
LookupUnusable unusable ->
221221
let unusables' = map get_unusable unusable
222+
#if MIN_VERSION_ghc(9,6,4) && !MIN_VERSION_ghc(9,8,1)
223+
get_unusable (m, ModUnusable r) = r
224+
#else
222225
get_unusable (m, ModUnusable r) = (moduleUnit m, r)
226+
#endif
223227
get_unusable (_, r) =
224228
pprPanic "findLookupResult: unexpected origin" (ppr r)
225229
in notFound {fr_unusables = unusables'}

0 commit comments

Comments
 (0)