ghc/tests/reader/should_compile/read026.hs

   1 module ShouldCompile where
   2
   3 (<>)          :: (a -> Maybe b) -> (b -> Maybe c) -> (a -> Maybe c)
   4 (m1 <> m2) a1   =  case m1 a1 of
   5                       Nothing -> Nothing
   6                       Just a2 -> m2 a2