From b927218b5690fe7cd4080af53831311d59db6987 Mon Sep 17 00:00:00 2001
From: Brad Richardson <everythingfunctional@protonmail.com>
Date: Thu, 15 Oct 2020 11:52:11 -0500
Subject: Add test for submodule source file name

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

(limited to 'bootstrap/src/BuildModel.hs')

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
-- 
cgit v1.2.3