blob: 61ba16d0b92aa0e5a8f88d9d5ccb524053e40786 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
import System( getArgs )
import Text.Printf
import Parse
import Semantic
main = do
args <- getArgs
list <- getLines (head args)
let result = doSemanticCheck (map (stripReturn) list)
printf result
|