From d81c957242122cc82458865a0c50a0ac965a3548 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Sun, 29 Nov 2009 16:30:44 +0000
Subject: [PATCH] Tweak layout to work with alternative layout rule
---
HpcMarkup.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/HpcMarkup.hs b/HpcMarkup.hs
index df7e43b..68a16fa 100644
--- a/HpcMarkup.hs
+++ b/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
--
GitLab