-------------------------------------------------------------
parseInteger :: Parser AST.Prim
parseInteger = do
  digits <- Lexer.whiteSpace *> (many1 digit) <* Lexer.whiteSpace
  return $ AST.Integer (read digits)
parseInteger :: Parser AST.Prim
parseInteger = do
  digits <- Lexer.whiteSpace *> (many1 digit) <* Lexer.whiteSpace
  return $ AST.Integer (read digits)
parseInteger = do
  digits <- Lexer.whiteSpace *> (many1 digit) <* Lexer.whiteSpace
  return $ AST.Integer (read digits)