bootstrap/src/BuildModel.hs


1
2
3
4
5
6
7
8
9
10
11

module BuildModel where

data RawSource = RawSource {
    rawSourceFilename :: FilePath
  , rawSourceContents :: String
}

data Source = Program { programSourceFileName :: String}

processRawSource :: RawSource -> Source
processRawSource rawSource = Program $ rawSourceFilename rawSource