diff --git a/plugins/default/src/Ide/Plugin/Retrie.hs b/plugins/default/src/Ide/Plugin/Retrie.hs index 6ee0cda7e5..03fb22397b 100644 --- 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 {..}