(Left e, _) = Left $ toString e
lexProgram :: Parser Char [Token]
-lexProgram = some lexToken <* eof
- >>= \ts->pure $ (map (\t->(0, 0, t)) (catMaybes ts))
+lexProgram = catMaybes <$> some lexToken <* eof
+ >>= \ts->pure $ (map (\t->(0, 0, t)) ts)
lexToken :: Parser Char (Maybe TokenValue)
lexToken =