intLiteral :: Parser Int
intLiteral = (read <$> some digitChar) <?> "integer literal"
  where
    read = fromMaybe 0 . readMay -- 0 won’t happen

intLiteral :: Parser Int
intLiteral = (read <$> some digitChar) <?> "integer literal"
  where
    read = fromMaybe 0 . readMay -- 0 won’t happen
intLiteral = (read <$> some digitChar) <?> "integer literal"
  where
    read = fromMaybe 0 . readMay -- 0 won’t happen