From a981372352e881d1cc7d542628959c0ac501e96e Mon Sep 17 00:00:00 2001
From: Brad Richardson <everythingfunctional@protonmail.com>
Date: Mon, 19 Oct 2020 15:42:22 -0500
Subject: Add test for submodule object file name

---
 bootstrap/src/BuildModel.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'bootstrap/src')

diff --git a/bootstrap/src/BuildModel.hs b/bootstrap/src/BuildModel.hs
index 9a9866a..70046d7 100644
--- a/bootstrap/src/BuildModel.hs
+++ b/bootstrap/src/BuildModel.hs
@@ -53,6 +53,7 @@ data Source =
     }
   | Submodule
     { submoduleSourceFileName :: FilePath
+    , submoduleObjectFileName :: FilePath -> FilePath
     }
 
 processRawSource :: RawSource -> Source
@@ -76,7 +77,9 @@ processRawSource rawSource =
             , moduleProducesSmod = hasModuleSubprogramDeclaration parsedContents
             }
           else if hasSubmoduleDeclaration parsedContents
-            then Submodule { submoduleSourceFileName = sourceFileName }
+            then Submodule { submoduleSourceFileName = sourceFileName
+                           , submoduleObjectFileName = objectFileName
+                           }
             else undefined
 
 pathSeparatorsToUnderscores :: FilePath -> FilePath
-- 
cgit v1.2.3