diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2012-08-09 05:15:01 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2012-08-09 05:15:01 +1000 |
| commit | 12b3e97d0ee4b7d1fa6560b91d14ef7be110bdff (patch) | |
| tree | cc3936ee04ef9c9f9b22733117228182632e1da1 /Syntactic.hs | |
| parent | 455df475317d4cf59e854fdb329d4f8a470474f3 (diff) | |
Compilation now automated
Diffstat (limited to 'Syntactic.hs')
| -rw-r--r-- | Syntactic.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Syntactic.hs b/Syntactic.hs index 6502c43..fb629ba 100644 --- a/Syntactic.hs +++ b/Syntactic.hs @@ -1,5 +1,7 @@ import System( getArgs ) import Text.Printf +import Parse + scan :: String -> String @@ -43,7 +45,7 @@ doScan = map (scan . stripReturn) main = do args <- getArgs - list <- getLines $ head args + list <- getLines (head args) plist <- return $ doScan list - printf $ if (list == plist) then "Scan OK\n" else "Syntax error\n" + printf $ if (args == plist) then "Scan OK\n" else "Syntax error\n" |