X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fhpc%2FHpcMarkup.hs;h=68a16fa56ade6e3f7061270bc9f1e19aaa3e6ef2;hp=df7e43b5eaa6f77e72ebee4c63268e690a17b0a4;hb=95b63cae3cab95449893518f6c99929999055423;hpb=fc5cd848af22c97dfde1953b9efcfc60e6ccf2bb

diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs
index df7e43b..68a16fa 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