X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FInteractiveEval.hs;h=696f612f6bd5479d0474ca89a563fae7668e16ac;hb=9c84f11b774960077d33d94a23ebc42af79d2ec4;hp=6d4b9de8ed17cff24c67ee9b5fefbe4ce53649a8;hpb=add9b7f13aad3a6ec5fdb4512c79ee9c5d95b3d4;p=ghc-hetmet.git

diff --git a/compiler/main/InteractiveEval.hs b/compiler/main/InteractiveEval.hs
index 6d4b9de..696f612 100644
--- a/compiler/main/InteractiveEval.hs
+++ b/compiler/main/InteractiveEval.hs
@@ -142,7 +142,7 @@ data History
 
 mkHistory :: HscEnv -> HValue -> BreakInfo -> History
 mkHistory hsc_env hval bi = let
-    decls = findEnclosingDecl hsc_env bi
+    decls = findEnclosingDecls hsc_env bi
     in History hval bi decls
 
 
@@ -169,9 +169,9 @@ getModBreaks hmi
 -- 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 -> BreakInfo -> [String]
-findEnclosingDecl hsc_env inf =
-   let hmi = expectJust "findEnclosingDecl" $
+findEnclosingDecls :: HscEnv -> BreakInfo -> [String]
+findEnclosingDecls hsc_env inf =
+   let hmi = expectJust "findEnclosingDecls" $
              lookupUFM (hsc_HPT hsc_env) (moduleName $ breakInfo_module inf)
        mb = getModBreaks hmi
    in modBreaks_decls mb ! breakInfo_number inf