[GHC] #5475: Unthrown exceptions

[GHC]

#5475: Unthrown exceptions
----------------------------------+-----------------------------------------
    Reporter:  daniel.is.fischer  |        Owner:  simonpj     
        Type:  bug                |       Status:  new         
    Priority:  high               |    Milestone:  7.4.1       
   Component:  Compiler           |      Version:  7.3         
    Keywords:                     |     Testcase:              
   Blockedby:                     |   Difficulty:              
          Os:  Unknown/Multiple   |     Blocking:              
Architecture:  Unknown/Multiple   |      Failure:  None/Unknown
----------------------------------+-----------------------------------------
Changes (by igloo):

  * owner:  => simonpj
  * priority:  normal => high
  * milestone:  => 7.4.1


Comment:

 Hmm, with `q.hs`:
 {{{
 module Main (main) where

 main :: IO ()
 main = do local <- testPackage
           case (local, False) of
                ([x], _)     -> putStrLn "X"
                (_,   True)  -> putStrLn "Y"
                ([],  False) -> error "A"
                (as,  bs)    -> error "B"

 testPackage :: IO [Int]
 testPackage = return []
 }}}
 and HEAD I get:
 {{{
 $ ghc -fforce-recomp -dcore-lint -dcmm-lint -O --make q
 [1 of 1] Compiling Main             ( q.hs, q.o )
 Linking q ...
 $ ./q
 $ echo $?
 0
 }}}

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/5475#comment:1>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler