fndecl.hs 226 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
module Main where


infixr 5 <>
(<>) :: (a -> Maybe b) -> (b -> Maybe c) -> (a -> Maybe c)
(m1 <> m2) a1 = case m1 a1 of
                  Nothing -> Nothing
                  Just a2 -> m2 a2

10
main = print ((Just <> Just) 1)