projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Tweak layout to work with alternative layout rule
[ghc-hetmet.git]
/
utils
/
hpc
/
HpcMarkup.hs
diff --git
a/utils/hpc/HpcMarkup.hs
b/utils/hpc/HpcMarkup.hs
index
df7e43b
..
68a16fa
100644
(file)
--- a/
utils/hpc/HpcMarkup.hs
+++ b/
utils/hpc/HpcMarkup.hs
@@
-281,7
+281,7
@@
addMarkup tabStop cs loc os ((t1,t2,tik0):ticks) | loc == t1 =
| not (allowNesting tik0 tik')
-> addMarkup tabStop cs loc os ticks -- already marked or bool within marked bool
_ -> openTick tik0 ++ addMarkup tabStop cs loc (addTo (t2,tik0) os) ticks
| not (allowNesting tik0 tik')
-> addMarkup tabStop cs loc os ticks -- already marked or bool within marked bool
_ -> openTick tik0 ++ addMarkup tabStop cs loc (addTo (t2,tik0) os) ticks
- where
+ where
addTo (t,tik) [] = [(t,tik)]
addTo (t,tik) ((t',tik'):xs) | t <= t' = (t,tik):(t',tik'):xs
addTo (t,tik) [] = [(t,tik)]
addTo (t,tik) ((t',tik'):xs) | t <= t' = (t,tik):(t',tik'):xs