diff options
| -rw-r--r-- | Semantic.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Semantic.hs b/Semantic.hs index a177d08..ed25c91 100644 --- a/Semantic.hs +++ b/Semantic.hs @@ -347,7 +347,7 @@ doSemanticCheck list = main = do - args <- getArgs - list <- getLines $ head args - let result = doSemanticCheck (map (stripReturn) list) - printf result + args <- getArgs + list <- getLines $ head args + let result = doSemanticCheck (map (stripReturn) list) + printf result |