From 407e1a2b222459f91749500258257c203c84c287 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 6 Jul 2007 15:21:32 +0000 Subject: [PATCH] undo: Get the path right for :list This is breaking :list for someone. If there's a problem here, we should fix it another way. --- compiler/ghci/InteractiveUI.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index 3f87d3c..dd24d5b 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -1801,8 +1801,7 @@ listModuleLine modl line = do -- If the highlight flag is True, also highlight the span using -- start_bold/end_bold. listAround span do_highlight = do - pwd <- getEnv "PWD" - contents <- BS.readFile (pwd `joinFileName` unpackFS file) + contents <- BS.readFile (unpackFS file) let lines = BS.split '\n' contents these_lines = take (line2 - line1 + 1 + pad_before + pad_after) $ -- 1.7.10.4