Tweak layout to work with alternative layout rule
authorIan Lynagh <igloo@earth.li>
Sun, 29 Nov 2009 16:30:44 +0000 (16:30 +0000)
committerIan Lynagh <igloo@earth.li>
Sun, 29 Nov 2009 16:30:44 +0000 (16:30 +0000)
utils/hpc/HpcMarkup.hs

index df7e43b..68a16fa 100644 (file)
@@ -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