diff options
| author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-20 11:15:25 -0500 |
|---|---|---|
| committer | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-20 11:15:25 -0500 |
| commit | 20ee2333cd86909e21ca5bd88f3d7166e1941c92 (patch) | |
| tree | cb35e0d6840c0a3e6dee527467ede801b1efeea4 /bootstrap/src/BuildModel.hs | |
| parent | 078f4ca5af387ef39e331f2eb2d7f0df5ce6d720 (diff) | |
| download | fpm-20ee2333cd86909e21ca5bd88f3d7166e1941c92.tar.gz fpm-20ee2333cd86909e21ca5bd88f3d7166e1941c92.zip | |
Add test that program produces no other files
Diffstat (limited to 'bootstrap/src/BuildModel.hs')
| -rw-r--r-- | bootstrap/src/BuildModel.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/bootstrap/src/BuildModel.hs b/bootstrap/src/BuildModel.hs index 86dbeab..86df719 100644 --- a/bootstrap/src/BuildModel.hs +++ b/bootstrap/src/BuildModel.hs @@ -61,6 +61,7 @@ data Source = data CompileTimeInfo = CompileTimeInfo { compileTimeInfoSourceFileName :: FilePath , compileTimeInfoObjectFileProduced :: FilePath + , compileTimeInfoOtherFilesProduced :: [FilePath] } processRawSource :: RawSource -> Source @@ -97,6 +98,7 @@ constructCompileTimeInfo program@(Program{}) otherSources buildDirectory = { compileTimeInfoSourceFileName = programSourceFileName program , compileTimeInfoObjectFileProduced = (programObjectFileName program) buildDirectory + , compileTimeInfoOtherFilesProduced = [] } constructCompileTimeInfo _ otherSources buildDirectory = undefined |