#10176: Invalid core generated with GHC 7.10 RC3 -------------------------------------+------------------------------------- Reporter: NeilMitchell | Owner: Type: bug | Status: new Priority: high | Milestone: 7.10.1 Component: Compiler | Version: 7.10.1-rc3 Resolution: | Keywords: Operating System: Unknown/Multiple | Architecture: Type of failure: None/Unknown | Unknown/Multiple Blocked By: | Test Case: Related Tickets: | Blocking: | Differential Revisions: -------------------------------------+------------------------------------- Comment (by hvr): Fwiw, I see GHC 7.8.4 producing similiar Core (with `-dsuppress-all -dsuppress-uniques`): {{{#!hs a = \ fun unit1 bool eta -> case bool of _ { False -> case fun unit1 of _ { False -> (# eta, () #); True -> case m of wild2 { } }; True -> case hPutStr2 stdout shows3 True eta of _ { (# ipv, ipv1 #) -> case fun unit1 of _ { False -> (# ipv, () #); True -> case m of wild2 { } } } } }}} -- Ticket URL: http://ghc.haskell.org/trac/ghc/ticket/10176#comment:4 GHC http://www.haskell.org/ghc/ The Glasgow Haskell Compiler