feat: adds more parser combinators

1 files changed, 11 insertions, 1 deletions

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