printTokens :: [Token] -> String
printTokens ts = concat $ flatten $ map pt ts
where
- pt ({line,col},token) = [toString line, ":",
+ pt ({line,col},token) = [toString line, ":",
toString col, ": ", printToString token, "\n"]
parseArgs :: *World -> (Opts, *World)