[GHC] #6153: writeChan not properly protecting again async exceptions

[GHC]

#6153: writeChan not properly protecting again async exceptions
------------------------------+---------------------------------------------
 Reporter:  klao              |          Owner:                  
     Type:  bug               |         Status:  new             
 Priority:  normal            |      Component:  libraries/base  
  Version:  7.4.1             |       Keywords:                  
       Os:  Unknown/Multiple  |   Architecture:  Unknown/Multiple
  Failure:  None/Unknown      |       Testcase:                  
Blockedby:                    |       Blocking:                  
  Related:                    |  
------------------------------+---------------------------------------------

Comment(by klao):

 Also, I'm attaching small program that demonstrates this issue. If you
 compile it with -O0 in a way that Control.Concurrent.Chan is ''also''
 compiled with -O0 (for example by copying Control/Concurrent/Chan.hs and
 uncommenting import Chan instead for Control.Concurrent.Chan), then the
 deadlock is consistently reproduced.

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