import parse
import lex
+import AST
from yard import :: Error, instance toString Error
:: Opts = {
printTokens :: [Token] -> String
printTokens ts = concat $ flatten $ map pt ts
where
- pt {line,column,token} = [toString line, ":",
- toString column, ": ", printToString token, "\n"]
+ pt ({line,col},token) = [toString line, ":",
+ toString col, ": ", printToString token, "\n"]
parseArgs :: *World -> (Opts, *World)
parseArgs w