From 4e987026148fe65c323afbc93cd560c07bf06b3f Mon Sep 17 00:00:00 2001
From: Yale AI Dept <ai@nebula.cs.yale.edu>
Date: Wed, 14 Jul 1993 13:08:00 -0500
Subject: Import to github.

---
 progs/lib/hbc/Maybe.hs | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 progs/lib/hbc/Maybe.hs

(limited to 'progs/lib/hbc/Maybe.hs')

diff --git a/progs/lib/hbc/Maybe.hs b/progs/lib/hbc/Maybe.hs
new file mode 100644
index 0000000..f0ada70
--- /dev/null
+++ b/progs/lib/hbc/Maybe.hs
@@ -0,0 +1,6 @@
+module Maybe(Maybe(..), thenM) where
+-- Maybe together with Just and thenM forms a monad, but is more
+-- by accident than by design.
+data Maybe a = Nothing | Just a	deriving (Eq, Ord, Text, Binary)
+Nothing `thenM` _ = Nothing
+Just a  `thenM` f = f a
-- 
cgit v1.2.3