From 11a6f10c72a16c079e6fabe461d1aa479bc53f1f Mon Sep 17 00:00:00 2001
From: Simon Marlow <simonmar@microsoft.com>
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 98baccd17d8..0f80fa284d4 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) $
--
GitLab