Bug in codeGen/CgRetConv.lhs

Hello!

GHC nicely asked me to report the bug, so here it goes :)

Compiling this code in GHC 5.04.1 and 5.04.2

  {-# OPTIONS -fglasgow-exts #-}

  module Bug where

  type T a = Int -> (# Int, Int #)

  f :: T a -> T a
  f t = \x -> case t x of r -> r

brings the following error message:

  ghc-5.04.1: panic! (the `impossible' happened, GHC version 5.04.1):
          codeGen/CgRetConv.lhs:83: Non-exhaustive patterns in function
          dataReturnConvPrim


  Please report it as a compiler bug to glasgow-haskell-bugs@xxxxxxxxxxx,
  or http://sourceforge.net/projects/ghc/.

PS. Orignal code what a bit more complicated - this is the simplified
    version.

Best regards,
Tom

-- 
.signature: Too many levels of symbolic links