X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fprofiling%2FCostCentre.lhs;h=aff29d810954ed950a81ef9cbccb0207348009e5;hb=af5a8f955fffa6c3d6b5c7f6552cee191e02c4d8;hp=dc93a1fcbb5e2bf8605b23ac0c996cb81d79c94b;hpb=e0ff87e4c56e8caf94b95e927ebd743ad3995a31;p=ghc-hetmet.git

diff --git a/compiler/profiling/CostCentre.lhs b/compiler/profiling/CostCentre.lhs
index dc93a1f..aff29d8 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