Merge pull request #538 from pepeiborra/fix-retrie-rule-backwards

[retrie] Fix code action title
haskell · Oct 25, 2020 · 175eb06 · 175eb06
2 parents c499f6b + a886393
commit 175eb06
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/plugins/default/src/Ide/Plugin/Retrie.hs b/plugins/default/src/Ide/Plugin/Retrie.hs
@@ -313,7 +313,8 @@ suggestRuleRewrites originatingFile pos ms_mod (L _ (HsRules {rds_rules})) =
             )
     backwardsRewrite ruleName restrictToOriginatingFile =
           let rewrites = [RuleBackward (qualify ms_mod ruleName)]
-              description = "Apply rule " <> T.pack ruleName <> " backwards"
+              description = "Apply rule " <> T.pack ruleName <> " backwards" <>
+                              describeRestriction restrictToOriginatingFile
            in ( description,
                 CodeActionRefactor,
                 RunRetrieParams {..}