diff options
| author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-22 13:42:10 -0500 |
|---|---|---|
| committer | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-22 13:42:10 -0500 |
| commit | 5f16555d030ff120d5175477886473de40654659 (patch) | |
| tree | 2212fda13dfbae4539bcf7803c94ebb109383219 /bootstrap/src/BuildModel.hs | |
| parent | e26feb52cc82bc58ea124e61473363829cf81c81 (diff) | |
| download | fpm-5f16555d030ff120d5175477886473de40654659.tar.gz fpm-5f16555d030ff120d5175477886473de40654659.zip | |
Add some debugging code
Diffstat (limited to 'bootstrap/src/BuildModel.hs')
| -rw-r--r-- | bootstrap/src/BuildModel.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/bootstrap/src/BuildModel.hs b/bootstrap/src/BuildModel.hs index 6dc8ddf..d7b39dc 100644 --- a/bootstrap/src/BuildModel.hs +++ b/bootstrap/src/BuildModel.hs @@ -109,6 +109,11 @@ getAllObjectFiles buildDirectory sources = map getObjectFile sources getObjectFile m@(Module{} ) = (moduleObjectFileName m) buildDirectory getObjectFile s@(Submodule{}) = (submoduleObjectFileName s) buildDirectory +getSourceFileName :: Source -> FilePath +getSourceFileName p@(Program{}) = programSourceFileName p +getSourceFileName m@(Module{}) = moduleSourceFileName m +getSourceFileName s@(Submodule{}) = submoduleSourceFileName s + constructCompileTimeInfo :: Source -> [String] -> FilePath -> CompileTimeInfo constructCompileTimeInfo p@(Program{}) availableModules buildDirectory = CompileTimeInfo |