From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 21 May 2007 14:17:45 +0000 (+0000)
Subject: FIX BUILD: GHC doesn't use filepath (yet)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=11a6f10c72a16c079e6fabe461d1aa479bc53f1f;hp=9fc056684d4a7d7f829e0a643b7a7a26adda2116

FIX BUILD: GHC doesn't use filepath (yet)
---

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) $