diff options
author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-12-05 19:01:35 -0600 |
---|---|---|
committer | GitHub <noreply@github.com> | 2020-12-05 19:01:35 -0600 |
commit | e9a012ae43812f516616674bc06c366bee1b779f (patch) | |
tree | d88cbc46fe40cbcda4f0ed10affc0a8fb9776876 /bootstrap/unit_test/SubmoduleToCompileInfoTest.hs | |
parent | af67eaedf86b312c86b9f081a169cc6e220f0cb6 (diff) | |
parent | d16cbbf604171092cb4eb5549d275966196f0b8d (diff) | |
download | fpm-e9a012ae43812f516616674bc06c366bee1b779f.tar.gz fpm-e9a012ae43812f516616674bc06c366bee1b779f.zip |
Merge pull request #268 from everythingfunctional/fix_hfpm_dependencies
Fix dependency tracking issue in bootstrap version
Diffstat (limited to 'bootstrap/unit_test/SubmoduleToCompileInfoTest.hs')
-rw-r--r-- | bootstrap/unit_test/SubmoduleToCompileInfoTest.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/bootstrap/unit_test/SubmoduleToCompileInfoTest.hs b/bootstrap/unit_test/SubmoduleToCompileInfoTest.hs index d5d3ad8..621b0d5 100644 --- a/bootstrap/unit_test/SubmoduleToCompileInfoTest.hs +++ b/bootstrap/unit_test/SubmoduleToCompileInfoTest.hs @@ -3,7 +3,8 @@ module SubmoduleToCompileInfoTest ) where -import BuildModel ( CompileTimeInfo(..) +import BuildModel ( AvailableModule(..) + , CompileTimeInfo(..) , Source(..) , constructCompileTimeInfo ) @@ -45,10 +46,12 @@ exampleSubmodule = Submodule submoduleSourceFileName' :: FilePath submoduleSourceFileName' = "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" |