1 files changed, 11 insertions, 0 deletions
diff --git a/bootstrap/src/BuildModel.hs b/bootstrap/src/BuildModel.hs
index eba1440..9bc6b48 100644
--- a/bootstrap/src/BuildModel.hs
+++ b/bootstrap/src/BuildModel.hs
@@ -58,6 +58,10 @@ data Source =
     , submoduleName :: String
     }
 
+data CompileTimeInfo = CompileTimeInfo {
+    compileTimeInfoSourceFileName :: FilePath
+}
+
 processRawSource :: RawSource -> Source
 processRawSource rawSource =
   let sourceFileName = rawSourceFilename rawSource
@@ -86,6 +90,13 @@ processRawSource rawSource =
                            }
             else undefined
 
+constructCompileTimeInfo :: Source -> [Source] -> FilePath -> CompileTimeInfo
+constructCompileTimeInfo program@(Program{}) otherSources buildDirectory =
+  CompileTimeInfo
+    { compileTimeInfoSourceFileName = programSourceFileName program
+    }
+constructCompileTimeInfo _ otherSources buildDirectory = undefined
+
 pathSeparatorsToUnderscores :: FilePath -> FilePath
 pathSeparatorsToUnderscores fileName =
   intercalate "_" (splitDirectories fileName)