diff options
| author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-20 11:06:35 -0500 |
|---|---|---|
| committer | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-20 11:06:35 -0500 |
| commit | cfb8b07fcb102573b70f37de9421e14d1300ac58 (patch) | |
| tree | 560bcac9f077dc8f1fdfb50251caf3cf05c791d3 /bootstrap/src/BuildModel.hs | |
| parent | 28b00953f12d2fc0de9de75f26fd3c4346a44974 (diff) | |
| download | fpm-cfb8b07fcb102573b70f37de9421e14d1300ac58.tar.gz fpm-cfb8b07fcb102573b70f37de9421e14d1300ac58.zip | |
Add test for source file name of program's compile time info
Diffstat (limited to 'bootstrap/src/BuildModel.hs')
| -rw-r--r-- | bootstrap/src/BuildModel.hs | 11 |
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) |