projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fc5cd84
)
Tweak layout to work with alternative layout rule
author
Ian Lynagh
<igloo@earth.li>
Sun, 29 Nov 2009 16:30:44 +0000
(16:30 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sun, 29 Nov 2009 16:30:44 +0000
(16:30 +0000)
utils/hpc/HpcMarkup.hs
patch
|
blob
|
history
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
- where
+ where
addTo (t,tik) [] = [(t,tik)]
addTo (t,tik) ((t',tik'):xs) | t <= t' = (t,tik):(t',tik'):xs