Commit 11a6f10c authored by Simon Marlow's avatar Simon Marlow
Browse files

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

parent 9fc05668
...@@ -70,7 +70,6 @@ import System.Exit ( exitWith, ExitCode(..) ) ...@@ -70,7 +70,6 @@ import System.Exit ( exitWith, ExitCode(..) )
import System.Directory import System.Directory
import System.IO import System.IO
import System.IO.Error as IO import System.IO.Error as IO
import System.FilePath
import Data.Char import Data.Char
import Data.Dynamic import Data.Dynamic
import Data.Array import Data.Array
...@@ -1794,7 +1793,7 @@ listModuleLine modl line = do ...@@ -1794,7 +1793,7 @@ listModuleLine modl line = do
-- start_bold/end_bold. -- start_bold/end_bold.
listAround span do_highlight = do listAround span do_highlight = do
pwd <- getEnv "PWD" pwd <- getEnv "PWD"
contents <- BS.readFile (pwd </> unpackFS file) contents <- BS.readFile (pwd `joinFileName` unpackFS file)
let let
lines = BS.split '\n' contents lines = BS.split '\n' contents
these_lines = take (line2 - line1 + 1 + pad_before + pad_after) $ these_lines = take (line2 - line1 + 1 + pad_before + pad_after) $
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment