feat: adds exposed filter function

2 files changed, 18 insertions, 3 deletions

diff --git a/src/eval/index.ts b/src/eval/index.ts
index d5c56c2..6656743 100644
--- a/src/eval/index.ts
+++ b/src/eval/index.ts
@@ -1,5 +1,5 @@
 import { pipe } from 'fp-ts/function'
-import {takeLeftWhile} from 'fp-ts/lib/Array'
+import { takeLeftWhile } from 'fp-ts/lib/Array'
 import { Expr, ListExpr } from '../types'
 import { match } from '../utils'
 
@@ -26,7 +26,7 @@ export const find = <T>([startO, exprs, endO]: ListExpr, list: T[]): any => {
               takeLeftWhile(x => check(expr)(x, i, list)),
             )
             console.log(x)
-            
+
             return true
           },
           _: _ => false,
diff --git a/src/index.ts b/src/index.ts
index 82eefe8..691d676 100644
--- a/src/index.ts
+++ b/src/index.ts
@@ -1,2 +1,17 @@
+import { fold, map } from 'fp-ts/lib/Either'
+import { identity, pipe } from 'fp-ts/lib/function'
+import { find } from './eval'
+import { parser } from './parser'
 
-export * from './parser';
+const toSourceString = (r: string | RegExp): string => typeof r === 'string' ? r : r.source
+
+export const filter = <T>(listExp: string | RegExp, list: T[]): T[] =>
+  pipe(
+    listExp,
+    toSourceString,
+    parser,
+    map(([lxp, _]) => find(lxp, list)),
+    fold(([err, _]) => {
+      throw new Error(err)
+    }, identity),
+  )