15 lines
332 B
Haskell
15 lines
332 B
Haskell
|
{-# 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
|