From ed529804fc47d64f78bdbd3b4e366ff9f632c8d3 Mon Sep 17 00:00:00 2001
From: Brad Richardson <everythingfunctional@protonmail.com>
Date: Wed, 14 Oct 2020 12:32:06 -0500
Subject: Add test for Program source file name

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

(limited to 'bootstrap/src')

diff --git a/bootstrap/src/BuildModel.hs b/bootstrap/src/BuildModel.hs
index 87c45c7..711f977 100644
--- a/bootstrap/src/BuildModel.hs
+++ b/bootstrap/src/BuildModel.hs
@@ -5,7 +5,7 @@ data RawSource = RawSource {
   , rawSourceContents :: String
 }
 
-data Source = Program
+data Source = Program { programSourceFileName :: String}
 
 processRawSource :: RawSource -> Source
-processRawSource _ = Program
+processRawSource rawSource = Program $ rawSourceFilename rawSource
-- 
cgit v1.2.3