[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / programs / jeff-bug / Utilities.hs

diff --git a/ghc/tests/programs/jeff-bug/Utilities.hs b/ghc/tests/programs/jeff-bug/Utilities.hs
deleted file mode 100644 (file)
index 6b0ba79..0000000
--- a/ghc/tests/programs/jeff-bug/Utilities.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-module Utilities where
-
-import Maybe
-
-
--- Begin Signature -------------------------------------------------
-
-infixr 1 `catchEx`
-
-catchEx :: Maybe a -> a -> a
-(><) :: (a -> b,c -> d) -> (a,c) -> (b,d)
-
--- End Signature -------------------------------------------------
-
-catchEx = flip fromMaybe
-(f,g) >< (x,y) = (f x, g y)
-
-