{-# LANGUAGE ImportQualifiedPost #-}

module Parse where

import Lib (Parser)

import Text.Megaparsec qualified as M
import Text.Megaparsec.Char qualified as MC
import Text.Megaparsec.Char.Lexer qualified as MCL

someLines :: Parser a -> Parser [a]
someLines p = p `M.sepEndBy1` MC.newline

number :: Parser Int
number = MCL.decimal