From 68a19934c9176c4ddadea174b745cb705e8137d2 Mon Sep 17 00:00:00 2001 From: sewardj Date: Mon, 27 Nov 2000 11:36:27 +0000 Subject: [PATCH] [project @ 2000-11-27 11:36:27 by sewardj] cmLoadModule: try and return the "highest" achieved module at the head of the list, so that the interactive UI winds up in a plausible module. --- ghc/compiler/compMan/CompManager.lhs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs index 5b9e31e..0a1cdce 100644 --- a/ghc/compiler/compMan/CompManager.lhs +++ b/ghc/compiler/compMan/CompManager.lhs @@ -263,7 +263,8 @@ cmLoadModule cmstate1 rootname gmode=ghci_mode } let cmstate3 = CmState { pcms=pcms3, pcs=pcs3, pls=pls3 } - return (cmstate3, True, map name_of_summary modsDone) + return (cmstate3, True, + reverse (map name_of_summary modsDone)) else -- Tricky. We need to back out the effects of compiling any @@ -298,7 +299,7 @@ cmLoadModule cmstate1 rootname gmode=ghci_mode } let cmstate4 = CmState { pcms=pcms4, pcs=pcs3, pls=pls4 } - return (cmstate4, False, mods_to_keep_names) + return (cmstate4, False, reverse mods_to_keep_names) -- Return (names of) all those in modsDone who are part of a cycle -- 1.7.10.4