thanks -- now fixed
| -----Original Message----- | From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Wolfgang | Thaller | Sent: 10 February 2004 12:02 | To: [EMAIL PROTECTED] | Subject: Re: cgEvalAlts | | Here's some much simpler code to reproduce it: | | {-# OPTIONS -fno-implicit-prelude -fglasgow-exts -O -fasm #-} | module CgEvalAltsPanic where | import GHC.Prim | | data Exception = Foo | Bar | | bug2 m h err s# = | case putMVar# m h s# of | s2# -> case err of | Foo -> raiseIO# err s2# | _ -> raiseIO# err s2# | | | Cheers, | | Wolfgang | | _______________________________________________ | Cvs-ghc mailing list | [EMAIL PROTECTED] | http://www.haskell.org/mailman/listinfo/cvs-ghc _______________________________________________ Cvs-ghc mailing list [EMAIL PROTECTED] http://www.haskell.org/mailman/listinfo/cvs-ghc
