From 7dfa1842859b408d0eadd4d79a5b1ce0267a13b2 Mon Sep 17 00:00:00 2001 From: bringert Date: Wed, 30 Nov 2005 20:27:01 +0000 Subject: Added bind operators, do-notation, a cons operator and list sytnax. --- transfer/lib/maybe.tr | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 transfer/lib/maybe.tr (limited to 'transfer/lib/maybe.tr') diff --git a/transfer/lib/maybe.tr b/transfer/lib/maybe.tr deleted file mode 100644 index 2b7beee9a..000000000 --- a/transfer/lib/maybe.tr +++ /dev/null @@ -1,24 +0,0 @@ -import prelude - -data Maybe : Type -> Type where - Nothing : (A : Type) -> Maybe A - Just : (A : Type) -> A -> Maybe A - -fromMaybe : (A : Type) -> A -> Maybe A -> A -fromMaybe _ x Nothing = x -fromMaybe _ _ (Just x) = x - -maybe : (A : Type) -> (B : Type) -> B -> (A -> B) -> Maybe A -> A -maybe _ _ x _ Nothing = x -maybe _ _ _ f (Just x) = f x - --- Instances: - -monad_Maybe : Monad Maybe -monad_Maybe = - rec return = Just - bind = \A -> \B -> \m -> \k -> - case m of - Nothing _ -> Nothing B - Just _ x -> k x - -- cgit v1.2.3