From f038a093bc0259bf7d72d86fb95f4a2aebf1a8df Mon Sep 17 00:00:00 2001
From: Brad Richardson <everythingfunctional@protonmail.com>
Date: Mon, 19 Oct 2020 15:52:45 -0500
Subject: Add test for modules a submodule uses

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

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

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