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