diff options
| author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-21 16:35:25 -0500 |
|---|---|---|
| committer | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-21 16:35:25 -0500 |
| commit | 25620576674d729a472951d4c03d7aadbbfa2057 (patch) | |
| tree | 1361132f848730eca0d38d3e91fea33b1560e8ab | |
| parent | 911aec5a28ccc4dbdcdbc2c56a2114c163a92442 (diff) | |
| download | fpm-25620576674d729a472951d4c03d7aadbbfa2057.tar.gz fpm-25620576674d729a472951d4c03d7aadbbfa2057.zip | |
Add another print statement for debugging Windows
| -rw-r--r-- | bootstrap/src/Build.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bootstrap/src/Build.hs b/bootstrap/src/Build.hs index 0e6a7c7..68a8e3c 100644 --- a/bootstrap/src/Build.hs +++ b/bootstrap/src/Build.hs @@ -64,6 +64,8 @@ buildProgram programDirectory libraryDirectories sourceExtensions buildDirectory = do 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{}) = @@ -101,7 +103,6 @@ buildProgram programDirectory libraryDirectories sourceExtensions buildDirectory ["-o", objectFile, sourceFile] want [buildDirectory </> programName <.> exe] buildDirectory </> programName <.> exe %> \executable -> do - liftIO $ print objectFiles need objectFiles cmd compiler objectFiles archives ["-o", executable] flags mapM_ infoToRule compileTimeInfo |