From 8ef91f03fac2bad20fb927fe2ca2782c66fdb513 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Thu, 6 Jan 2022 23:41:32 +0530
Subject: feat: adds more parser combinators

---
 src/index.ts | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'src/index.ts')

diff --git a/src/index.ts b/src/index.ts
index d236473..582f9be 100644
--- a/src/index.ts
+++ b/src/index.ts
@@ -1,5 +1,5 @@
 import { constant, flow, identity, pipe } from 'fp-ts/function'
-import { mapTo, symbol } from './parser'
+import { andThen, delimited, mapTo, optional, pair, symbol } from './parser'
 
 export const start = mapTo(symbol('^'), constant({ tag: 'Start' } as Expr))
 export const end = mapTo(symbol('$'), constant({ tag: 'End' } as Expr))
@@ -27,6 +27,16 @@ type Expr =
   | { tag: 'Truthy' }
   | { tag: 'Falsey' }
 
+export const expressionP = symbol('fuck')
+
+export const parser = pair(
+  pair(
+    optional(start),
+    expressionP,
+  ),
+  optional(end),
+)
+
 /*
 
 ^ $ => start and end of list
-- 
cgit v1.3.1