From 0cadb1a719bc515af2449ac966e545a6599aee4d Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sat, 14 Apr 2018 15:15:07 -0400
Subject: List.findM

---
 lib/ur/list.urs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/ur/list.urs')

diff --git a/lib/ur/list.urs b/lib/ur/list.urs
index 37cbe442..fe730152 100644
--- a/lib/ur/list.urs
+++ b/lib/ur/list.urs
@@ -60,6 +60,8 @@ val mem : a ::: Type -> eq a -> a -> t a -> bool
 
 val find : a ::: Type -> (a -> bool) -> t a -> option a
 
+val findM : m ::: (Type -> Type) -> monad m -> a ::: Type -> (a -> m bool) -> t a -> m (option a)
+
 val search : a ::: Type -> b ::: Type -> (a -> option b) -> t a -> option b
 
 val all : a ::: Type -> (a -> bool) -> t a -> bool
-- 
cgit v1.2.3