From 6994a00f608335fc2e835538dfd84b70aa486d0f Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 7 Jun 2009 11:13:18 -0400
Subject: Start of Option; Basis.current; fix missed cases in Jscomp.isNullable

---
 lib/ur/option.ur | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 lib/ur/option.ur

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

diff --git a/lib/ur/option.ur b/lib/ur/option.ur
new file mode 100644
index 00000000..cb2a6b57
--- /dev/null
+++ b/lib/ur/option.ur
@@ -0,0 +1,6 @@
+datatype t = datatype Basis.option
+
+fun isSome [a] x =
+    case x of
+        None => False
+      | Some _ => True
-- 
cgit v1.2.3