From 59454c9766685b381603aaf116bb43a9515dbdba Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Wed, 1 Feb 2017 09:24:17 -0500
Subject: Option.app

---
 lib/ur/option.ur | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/ur/option.ur')

diff --git a/lib/ur/option.ur b/lib/ur/option.ur
index 05c50d1f..baa08466 100644
--- a/lib/ur/option.ur
+++ b/lib/ur/option.ur
@@ -40,6 +40,11 @@ fun mp [a] [b] f x =
         None => None
       | Some y => Some (f y)
 
+fun app [m] [a] (_ : monad m) (f : a -> m {}) x =
+    case x of
+        None => return ()
+      | Some y => f y
+
 fun bind [a] [b] f x =
     case x of
         None => None
-- 
cgit v1.2.3