blob: 409fa18d075f7d55df48ddc94b143b57b9433e0b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
import GSA
import qualified Data.Text.IO as T (readFile, writeFile)
import Data.Text (Text)
main :: IO ()
main = do
t <- T.readFile "main.gsa"
let p = case parse "main.gsa" t of
Left s -> error s
Right p' -> p'
print p
T.writeFile "main_out.gsa" $ programPrinter p
|