ghc/tests/programs/jeff-bug/Utilities.hs

   1 module Utilities where
   2
   3 import Maybe
   4
   5
   6 -- Begin Signature -------------------------------------------------
   7
   8 infixr 1 `catchEx`
   9
  10 catchEx :: Maybe a -> a -> a
  11 (><) :: (a -> b,c -> d) -> (a,c) -> (b,d)
  12
  13 -- End Signature -------------------------------------------------
  14
  15 catchEx = flip fromMaybe
  16 (f,g) >< (x,y) = (f x, g y)
  17
  18