diff options
Diffstat (limited to 'compiler/profiling/CostCentre.lhs')
| -rw-r--r-- | compiler/profiling/CostCentre.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/profiling/CostCentre.lhs b/compiler/profiling/CostCentre.lhs index dc93a1fcbb..aff29d8109 100644 --- a/compiler/profiling/CostCentre.lhs +++ b/compiler/profiling/CostCentre.lhs @@ -300,8 +300,8 @@ cmpCostCentre (NormalCC {cc_name = n1, cc_mod = m1, cc_is_caf = c1}) cmpCostCentre other_1 other_2 = let - tag1 = tag_CC other_1 - tag2 = tag_CC other_2 + !tag1 = tag_CC other_1 + !tag2 = tag_CC other_2 in if tag1 <# tag2 then LT else GT where |