From 5f16555d030ff120d5175477886473de40654659 Mon Sep 17 00:00:00 2001 From: Brad Richardson Date: Thu, 22 Oct 2020 13:42:10 -0500 Subject: Add some debugging code --- bootstrap/src/BuildModel.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'bootstrap/src/BuildModel.hs') 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 -- cgit v1.2.3