diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-11-29 16:30:44 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-11-29 16:30:44 +0000 |
| commit | 95b63cae3cab95449893518f6c99929999055423 (patch) | |
| tree | 088170a90939baf2ea574dd016a35125b8be2b2c /utils/hpc | |
| parent | fc5cd848af22c97dfde1953b9efcfc60e6ccf2bb (diff) | |
| download | haskell-95b63cae3cab95449893518f6c99929999055423.tar.gz | |
Tweak layout to work with alternative layout rule
Diffstat (limited to 'utils/hpc')
| -rw-r--r-- | utils/hpc/HpcMarkup.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs index df7e43b5ea..68a16fa56a 100644 --- 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 |