Compat with 8.6

pepeiborra · pepeiborra · commit 231bf0c98ac8 · 2020-08-01T16:59:18.000+01:00
diff --git a/src/Ide/Plugin/Retrie.hs b/src/Ide/Plugin/Retrie.hs
@@ -286,7 +286,7 @@ suggestRuleRewrites originatingFile pos ms_mod (L l (HsRules {rds_rules}))
                 RunRetrieParams {..}
               )
         ]
-        | L _ (HsRule _ (L _ (_, rn)) _ _ _ _ _) <- rds_rules,
+        | L _ (HsRule {rd_name = (L _ (_, rn))}) <- rds_rules,
           let ruleName = unpackFS rn
       ]
 suggestRuleRewrites _ _ _ _ = []

Original file line number	Diff line number	Diff line change
`@@ -286,7 +286,7 @@ suggestRuleRewrites originatingFile pos ms_mod (L l (HsRules {rds_rules}))`
`286`	`286`	`RunRetrieParams {..}`
`287`	`287`	`)`
`288`	`288`	`]`
`289`		`- \| L _ (HsRule _ (L _ (_, rn)) _ _ _ _ _) <- rds_rules,`
	`289`	`+ \| L _ (HsRule {rd_name = (L _ (_, rn))}) <- rds_rules,`
`290`	`290`	`let ruleName = unpackFS rn`
`291`	`291`	`]`
`292`	`292`	`suggestRuleRewrites _ _ _ _ = []`