diff options
| author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-15 11:52:11 -0500 |
|---|---|---|
| committer | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-15 11:52:11 -0500 |
| commit | b927218b5690fe7cd4080af53831311d59db6987 (patch) | |
| tree | ef37c5be8d5266fae3717a086d7f7f5279453b5b /bootstrap/src/BuildModel.hs | |
| parent | 29be28f5e7de2d8a3fa405d61ec63e8c8d7ea809 (diff) | |
| download | fpm-b927218b5690fe7cd4080af53831311d59db6987.tar.gz fpm-b927218b5690fe7cd4080af53831311d59db6987.zip | |
Add test for submodule source file name
Diffstat (limited to 'bootstrap/src/BuildModel.hs')
| -rw-r--r-- | bootstrap/src/BuildModel.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/bootstrap/src/BuildModel.hs b/bootstrap/src/BuildModel.hs index f784624..9a9866a 100644 --- a/bootstrap/src/BuildModel.hs +++ b/bootstrap/src/BuildModel.hs @@ -52,6 +52,8 @@ data Source = , moduleProducesSmod :: Bool } | Submodule + { submoduleSourceFileName :: FilePath + } processRawSource :: RawSource -> Source processRawSource rawSource = @@ -74,7 +76,7 @@ processRawSource rawSource = , moduleProducesSmod = hasModuleSubprogramDeclaration parsedContents } else if hasSubmoduleDeclaration parsedContents - then Submodule + then Submodule { submoduleSourceFileName = sourceFileName } else undefined pathSeparatorsToUnderscores :: FilePath -> FilePath |