diff options
| author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-19 15:52:45 -0500 |
|---|---|---|
| committer | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-19 15:52:45 -0500 |
| commit | f038a093bc0259bf7d72d86fb95f4a2aebf1a8df (patch) | |
| tree | 25c9ac618e1332eb6d006e44be640f877f005a0a /bootstrap/src/BuildModel.hs | |
| parent | a981372352e881d1cc7d542628959c0ac501e96e (diff) | |
| download | fpm-f038a093bc0259bf7d72d86fb95f4a2aebf1a8df.tar.gz fpm-f038a093bc0259bf7d72d86fb95f4a2aebf1a8df.zip | |
Add test for modules a submodule uses
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 70046d7..db00e0d 100644 --- a/bootstrap/src/BuildModel.hs +++ b/bootstrap/src/BuildModel.hs @@ -54,6 +54,7 @@ data Source = | Submodule { submoduleSourceFileName :: FilePath , submoduleObjectFileName :: FilePath -> FilePath + , submoduleModulesUsed :: [String] } processRawSource :: RawSource -> Source @@ -79,6 +80,7 @@ processRawSource rawSource = else if hasSubmoduleDeclaration parsedContents then Submodule { submoduleSourceFileName = sourceFileName , submoduleObjectFileName = objectFileName + , submoduleModulesUsed = modulesUsed } else undefined |