/usr/web/sources/contrib/fernan/nhc98/tests/conformance98/infix/fndecl/Main.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/infix/fndecl/Main.hs


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

main = print ((const Nothing <> Just) 1)

(Return to Plan 9 Home Page)