diff options
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" |