From 952256ae8bf5514a246db8f33bef207f5747b138 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Fri, 11 Aug 2023 17:13:57 +0530
Subject: feat: adds parser for literal numbers

---
 src/utils/parser-comb.ts | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/utils/parser-comb.ts')

diff --git a/src/utils/parser-comb.ts b/src/utils/parser-comb.ts
index e0665f6..f682068 100644
--- a/src/utils/parser-comb.ts
+++ b/src/utils/parser-comb.ts
@@ -73,3 +73,11 @@ export const sepBy = <A>(parser: Parser<A>, sepP: Parser<any>): Parser<Array<A>>
     Err: _ => Result.Ok({ value: [], input: originalInput }),
   })
 
+export const optional = <A>(parser: Parser<A>): Parser<undefined | A> => input => {
+  const result = parser(input)
+  return match(result, {
+    Ok: _ => result,
+    Err: _ => Result.Ok({ value: undefined, input })
+  })
+}
+
-- 
cgit v1.3.1