[GHC] #9791: Ghc panics on tiny example, naive try to overload compose

[GHC]

#9791: Ghc panics on tiny example, naive try to overload compose
-------------------------------------+-------------------------------------
       Reporter:  camarao            |                   Owner:
           Type:  bug                |                  Status:  new
       Priority:  normal             |               Milestone:
      Component:  Compiler           |                 Version:  7.4.1
       Keywords:  Overloading        |        Operating System:  Linux
   Architecture:  x86                |         Type of failure:  Compile-
     Difficulty:  Easy (less than 1  |  time crash
  hour)                              |               Test Case:
     Blocked By:                     |                Blocking:
Related Tickets:                     |  Differential Revisions:
-------------------------------------+-------------------------------------
 {-# LANGUAGE MultiParamTypeClasses #-}

 class Compose a b c e f where
   (<.>)::(b -> c)->(a -> e)->(a -> f)

 instance Compose a b c b c where
   (<.>) = (.)

 instance Monad m -> Compose a b c (m b) (m c) where
   (<.>) f g a = g a >>= (return . f)

--
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/9791>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler