From e26feb52cc82bc58ea124e61473363829cf81c81 Mon Sep 17 00:00:00 2001 From: Brad Richardson Date: Wed, 21 Oct 2020 16:49:17 -0500 Subject: convert programDirectory path to native in buildProgram --- bootstrap/src/Build.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'bootstrap') diff --git a/bootstrap/src/Build.hs b/bootstrap/src/Build.hs index 68a8e3c..ce8ea1d 100644 --- a/bootstrap/src/Build.hs +++ b/bootstrap/src/Build.hs @@ -60,12 +60,11 @@ buildProgram -> FilePath -> [FilePath] -> IO () -buildProgram programDirectory libraryDirectories sourceExtensions buildDirectory compiler flags programName programSource archives +buildProgram programDirectory' libraryDirectories sourceExtensions buildDirectory compiler flags programName programSource archives = do + let programDirectory = foldl1 () (splitDirectories programDirectory') let includeFlags = map ("-I" ++) libraryDirectories sourceFiles <- getDirectoriesFiles [programDirectory] sourceExtensions - print sourceFiles - print (programDirectory programSource) rawSources <- mapM sourceFileToRawSource sourceFiles let sources' = map processRawSource rawSources let isThisProgramOrNotProgram p@(Program{}) = -- cgit v1.2.3