From 11a6f10c72a16c079e6fabe461d1aa479bc53f1f Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 21 May 2007 14:17:45 +0000 Subject: [PATCH] FIX BUILD: GHC doesn't use filepath (yet) --- 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 98baccd..0f80fa2 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -70,7 +70,6 @@ import System.Exit ( exitWith, ExitCode(..) ) import System.Directory import System.IO import System.IO.Error as IO -import System.FilePath import Data.Char import Data.Dynamic import Data.Array @@ -1794,7 +1793,7 @@ listModuleLine modl line = do -- start_bold/end_bold. listAround span do_highlight = do pwd <- getEnv "PWD" - contents <- BS.readFile (pwd unpackFS file) + contents <- BS.readFile (pwd `joinFileName` unpackFS file) let lines = BS.split '\n' contents these_lines = take (line2 - line1 + 1 + pad_before + pad_after) $ -- 1.7.10.4