Fix the behaviour of :history for ticks surrounding top level functions

3f82c82a · pepeiborra@gmail.com · b633499b · 3f82c82a
Commit 3f82c82a authored Dec 03, 2010 by pepeiborra@gmail.com
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

compiler/deSugar/Coverage.lhs compiler/deSugar/Coverage.lhs +4 -1

No files found.
--- a/compiler/deSugar/Coverage.lhs
+++ b/compiler/deSugar/Coverage.lhs
@@ -691,7 +691,10 @@ allocATickBox :: BoxLabel -> SrcSpan -> FreeVars -> TM (Maybe (Int,[Id]))
 allocATickBox boxLabel pos fvs | isGoodSrcSpan' pos = 
  sameFileName pos 
    (return Nothing) $ TM $ \ env st ->
-  let me = (pos, declPath env, map (nameOccName.idName) ids, boxLabel)
+  let mydecl_path
+        | null (declPath env), TopLevelBox x <- boxLabel = x
+        | otherwise = declPath env
+      me = (pos, mydecl_path, map (nameOccName.idName) ids, boxLabel)
      c = tickBoxCount st
      mes = mixEntries st
      ids = occEnvElts fvs