diff options
| author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-14 12:32:06 -0500 |
|---|---|---|
| committer | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-14 12:32:06 -0500 |
| commit | ed529804fc47d64f78bdbd3b4e366ff9f632c8d3 (patch) | |
| tree | cf88d1eb12e13f1fcc145036ad6e698b7134d5a2 /bootstrap/src/BuildModel.hs | |
| parent | 0a7eb98dd5083ede9e940a3e9cc424b76968ba4a (diff) | |
| download | fpm-ed529804fc47d64f78bdbd3b4e366ff9f632c8d3.tar.gz fpm-ed529804fc47d64f78bdbd3b4e366ff9f632c8d3.zip | |
Add test for Program source file name
Diffstat (limited to 'bootstrap/src/BuildModel.hs')
| -rw-r--r-- | bootstrap/src/BuildModel.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |