blob: 7e7fd29c8ef8c7fb4246007d8d210e50e36a6405 (
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
|