projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Monadify specialise/Specialise: use do, return, standard monad functions and MonadUnique
[ghc-hetmet.git]
/
compiler
/
profiling
/
CostCentre.lhs
diff --git
a/compiler/profiling/CostCentre.lhs
b/compiler/profiling/CostCentre.lhs
index
57f5deb
..
b9014b2
100644
(file)
--- a/
compiler/profiling/CostCentre.lhs
+++ b/
compiler/profiling/CostCentre.lhs
@@
-292,8
+292,8
@@
cmpCostCentre other_1 other_2
in
if tag1 <# tag2 then LT else GT
where
in
if tag1 <# tag2 then LT else GT
where
- tag_CC (NormalCC {}) = (_ILIT 1 :: FastInt)
- tag_CC (AllCafsCC {}) = _ILIT 2
+ tag_CC (NormalCC {}) = _ILIT(1)
+ tag_CC (AllCafsCC {}) = _ILIT(2)
cmp_caf NotCafCC CafCC = LT
cmp_caf NotCafCC NotCafCC = EQ
cmp_caf NotCafCC CafCC = LT
cmp_caf NotCafCC NotCafCC = EQ