From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 31 Aug 2007 09:22:24 +0000 (+0000)
Subject: comments only
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c9a8811e407ea25e271d850468839935d0cf5e4f;hp=6fa4feaf2979419a6f6153ffa80c22a28f2f654f;p=ghc-hetmet.git

comments only
I had planned to do findEnclosingDecl a different way, so add a ToDo
as a reminder.
---

diff --git a/compiler/main/InteractiveEval.hs b/compiler/main/InteractiveEval.hs
index be7aa0a..8579901 100644
--- a/compiler/main/InteractiveEval.hs
+++ b/compiler/main/InteractiveEval.hs
@@ -161,7 +161,10 @@ getHistorySpan hsc_env hist =
        Just hmi -> modBreaks_locs (md_modBreaks (hm_details hmi)) ! num
        _ -> panic "getHistorySpan"
 
--- | Finds the enclosing top level function name 
+{- | Finds the enclosing top level function name -}
+-- ToDo: a better way to do this would be to keep hold of the decl_path computed
+-- by the coverage pass, which gives the list of lexically-enclosing bindings
+-- for each tick.
 findEnclosingDecl :: HscEnv -> Module -> SrcSpan -> Id
 findEnclosingDecl hsc_env mod span =
    case lookupUFM (hsc_HPT hsc_env) (moduleName mod) of