From 7605f65c7665bf1f58438d4eaf0ce9d56878a1c0 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Wed, 29 Aug 2007 08:53:05 +0000 Subject: [PATCH] Wibble --- compiler/ghci/InteractiveUI.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index 4bc8c54..2bed700 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -601,7 +601,7 @@ afterRunStmt step_here run_result = do where printTypeAndContentOfNames session names = do let namesSorted = sortBy compareNames names tythings <- catMaybes `liftM` - io (mapM (GHC.lookupName session) names) + io (mapM (GHC.lookupName session) namesSorted) docs_ty <- mapM showTyThing tythings terms <- mapM (io . GHC.obtainTermB session 10 False) [ id | (AnId id, Just _) <- zip tythings docs_ty] -- 1.7.10.4