diff options
Diffstat (limited to 'ghc/compiler/specialise/Rules.lhs')
| -rw-r--r-- | ghc/compiler/specialise/Rules.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/specialise/Rules.lhs b/ghc/compiler/specialise/Rules.lhs index f806be1ca0..9e27df4a4b 100644 --- a/ghc/compiler/specialise/Rules.lhs +++ b/ghc/compiler/specialise/Rules.lhs @@ -505,7 +505,7 @@ ruleCheckProgram phase rule_pat binds ] where results = unionManyBags (map (ruleCheckBind (phase, rule_pat)) binds) - line = text (take 20 (repeat '-')) + line = text (replicate 20 '-') type RuleCheckEnv = (CompilerPhase, String) -- Phase and Pattern |