Commit 3f82c82a authored by pepeiborra@gmail.com's avatar pepeiborra@gmail.com

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

parent b633499b
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment