diff options
| -rw-r--r-- | bootstrap/src/Build.hs | 5 |
1 files changed, 2 insertions, 3 deletions
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{}) = |