Skip to content

Commit 796038d

Browse files
committed
Fix compilation error for GHC-9.10+ for hls-refactor-plugin
1 parent 6edb82c commit 796038d

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

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

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -31,13 +31,14 @@ isWildcardDiagnostic =
3131
-- | Extract the 'Hole' out of a 'FileDiagnostic'
3232
diagReportHoleError :: FileDiagnostic -> Maybe Hole
3333
diagReportHoleError diag = do
34-
(solverReport, _, _) <-
34+
solverReport <-
3535
diag
3636
^? fdStructuredMessageL
3737
. _SomeStructuredMessage
3838
. msgEnvelopeErrorL
3939
. _TcRnMessage
4040
. _TcRnSolverReport
41+
. _1
4142
(hole, _) <- solverReport ^? reportContentL . _ReportHoleError
4243

4344
Just hole

0 commit comments

Comments
 (0)