funlhs

[Ralf Hinze]

GHC 4.04 (Glasgow Haskell Compiler, version 4.04, for Haskell 98)
doesn't like the following definition:

> (<>)          :: (a -> Maybe b) -> (b -> Maybe c) -> (a -> Maybe c)
> (m1 <> m2) a1 =  case m1 a1 of
>                      Nothing -> Nothing
>                      Just a2 -> m2 a2

complaining 

        Map.lhs:23: Parse error in pattern

I guess it's because of the lhs, which is, however, legal Haskell 98
(see rule for `funlhs').

Cheers, Ralf