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

[ghc-hetmet.git] / ghc / tests / reader / should_compile / read026.hs

diff --git a/ghc/tests/reader/should_compile/read026.hs b/ghc/tests/reader/should_compile/read026.hs
deleted file mode 100644 (file)
index 0ea695d..0000000
--- a/ghc/tests/reader/should_compile/read026.hs
+++ /dev/null
@@ -1,6 +0,0 @@
-module ShouldCompile where
-
-(<>)          :: (a -> Maybe b) -> (b -> Maybe c) -> (a -> Maybe c)
-(m1 <> m2) a1  =  case m1 a1 of
-                      Nothing -> Nothing
-                      Just a2 -> m2 a2