diff options
| author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-12-05 00:08:12 -0600 |
|---|---|---|
| committer | Brad Richardson <everythingfunctional@protonmail.com> | 2020-12-05 00:08:12 -0600 |
| commit | d16cbbf604171092cb4eb5549d275966196f0b8d (patch) | |
| tree | be5f01c0e5bf1468bc381aea02d9bf90da8ab7c4 /bootstrap/unit_test/ProgramToCompileInfoTest.hs | |
| parent | 7d320295c6fe56cc767b352bd26f0466aa29ac5c (diff) | |
| download | fpm-d16cbbf604171092cb4eb5549d275966196f0b8d.tar.gz fpm-d16cbbf604171092cb4eb5549d275966196f0b8d.zip | |
fix(hfpm): dependence on library mod files
Diffstat (limited to 'bootstrap/unit_test/ProgramToCompileInfoTest.hs')
| -rw-r--r-- | bootstrap/unit_test/ProgramToCompileInfoTest.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/bootstrap/unit_test/ProgramToCompileInfoTest.hs b/bootstrap/unit_test/ProgramToCompileInfoTest.hs index f17a3df..a9ad39b 100644 --- a/bootstrap/unit_test/ProgramToCompileInfoTest.hs +++ b/bootstrap/unit_test/ProgramToCompileInfoTest.hs @@ -3,7 +3,8 @@ module ProgramToCompileInfoTest ) where -import BuildModel ( CompileTimeInfo(..) +import BuildModel ( AvailableModule(..) + , CompileTimeInfo(..) , Source(..) , constructCompileTimeInfo ) @@ -42,10 +43,12 @@ exampleProgram = Program programSourceFileName' :: FilePath programSourceFileName' = "some" </> "file" </> "somewhere.f90" -availableModules :: [String] -availableModules = ["module1", "module3"] +availableModules :: [AvailableModule] +availableModules = [ AvailableModule {availableModuleName = "module1", availableModuleFile = "build_dir" </> "module1.mod"} + , AvailableModule {availableModuleName = "module3", availableModuleFile = "build_dir" </> "module3.mod"} + ] -doCompileTimeTransformation :: (Source, [String]) -> CompileTimeInfo +doCompileTimeTransformation :: (Source, [AvailableModule]) -> CompileTimeInfo doCompileTimeTransformation (programSource, otherSources) = constructCompileTimeInfo programSource otherSources "build_dir" |