Initial Commit

src/Parse.hs

@@ -0,0 +1,15 @@
+{-# 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