We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 6edb82c commit 796038dCopy full SHA for 796038d
plugins/hls-refactor-plugin/src/Development/IDE/Plugin/Plugins/FillTypeWildcard.hs
@@ -31,13 +31,14 @@ isWildcardDiagnostic =
31
-- | Extract the 'Hole' out of a 'FileDiagnostic'
32
diagReportHoleError :: FileDiagnostic -> Maybe Hole
33
diagReportHoleError diag = do
34
- (solverReport, _, _) <-
+ solverReport <-
35
diag
36
^? fdStructuredMessageL
37
. _SomeStructuredMessage
38
. msgEnvelopeErrorL
39
. _TcRnMessage
40
. _TcRnSolverReport
41
+ . _1
42
(hole, _) <- solverReport ^? reportContentL . _ReportHoleError
43
44
Just hole
0 commit comments