From: Mart Lubbers Date: Wed, 2 Mar 2016 08:49:47 +0000 (+0100) Subject: hoig X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=0f1c66df34b0f65709756b070884c33b94e6a9ba;p=cc1516.git hoig --- diff --git a/src/lex.icl b/src/lex.icl index b3c76cd..a797b1c 100644 --- a/src/lex.icl +++ b/src/lex.icl @@ -18,6 +18,8 @@ lexProgram :: Parser Char [Token] lexProgram = catMaybes <$> some lexToken <* eof >>= \ts->pure $ (map (\t->(0, 0, t)) ts) +//Of hier een record van maken +//lexToken :: Parser Char (Maybe (Int, Int, Int, TokenValue)) lexToken :: Parser Char (Maybe TokenValue) lexToken = //Comments