X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FMaybes.lhs;fp=ghc%2Fcompiler%2Futils%2FMaybes.lhs;h=2f6118fc9150c606fa2cb8d129195215d4f128e7;hb=69e14f75a4b031e489b7774914e5a176409cea78;hp=98efdb7fa13446a439185766d7d8231f317e35f4;hpb=c9dfd084e476b18290e964e5e5d66adf0771b9e6;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/Maybes.lhs b/ghc/compiler/utils/Maybes.lhs
index 98efdb7..2f6118f 100644
--- a/ghc/compiler/utils/Maybes.lhs
+++ b/ghc/compiler/utils/Maybes.lhs
@@ -8,6 +8,7 @@ module Maybes (
 --	Maybe(..), -- no, it's in 1.3
 	MaybeErr(..),
 
+	orElse, 
 	mapMaybe,
 	allMaybes,
 	firstJust,
@@ -29,6 +30,9 @@ module Maybes (
 #include "HsVersions.h"
 
 import Maybe( catMaybes, mapMaybe )
+
+
+infixr 4 `orElse`
 \end{code}
 
 
@@ -96,6 +100,10 @@ returnMaybe = Just
 
 failMaybe :: Maybe a
 failMaybe = Nothing
+
+orElse :: Maybe a -> a -> a
+(Just x) `orElse` y = x
+Nothing  `orElse` y = y
 \end{code}
 
 Lookup functions