#737: Pattern match failure in coreSyn/CoreUtils.lhs
----------------------------------------+-----------------------------------
Reporter: ekarttun@cs.helsinki.fi | Owner:
Type: bug | Status: new
Priority: normal | Milestone:
Component: Compiler | Version: 6.4.1
Severity: normal | Keywords:
Os: Unknown | Difficulty: Unknown
Architecture: Unknown |
----------------------------------------+-----------------------------------
This seems to fail with 6.4.1, and 6.5 too, works fine in ghci.
{{{
[EMAIL PROTECTED]:~/CONFI/nir$ ghc -c -no-recomp bug.hs
ghc-6.4.2.20060328: panic! (the `impossible' happened, GHC version
6.4.2.20060328):
coreSyn/CoreUtils.lhs:(617,36)-(618,71): Non-exhaustive patterns
in case
Please report this as a compiler bug. See:
http://www.haskell.org/ghc/reportabug
}}}
{{{
{-# OPTIONS -fglasgow-exts -O2 #-}
data IHandler st where
IHandler :: Serialize (TxContext ev) => String -> IO ev -> (res -> IO
()) -> Ev st ev res -> IHandler st
data Ev st ev res = Ev
data TxContext evt = TxContext
data TxConfig = TxConfig
data M a = M a
class Serialize a where
instance Serialize a => Serialize (TxContext a)
instance Serialize Int
instance Serialize ()
data IHR st = forall res ev. Serialize (TxContext ev) => IHR (TxContext
ev)
runHandler :: M (IHR st) -> IHandler st -> IO ()
runHandler queue ih@(IHandler tstring inp out run) = do
runHandler queue ih
main = runHandler undefined $ IHandler "foo" (return ()) undefined
undefined
}}}
--
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/737>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler
_______________________________________________
Glasgow-haskell-bugs mailing list
Glasgow-haskell-bugs@haskell.org
http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs