[GHC] #12654: Panic on interrupting the evaluation of foldl (\x a -> if x > 100 then 100 else x+a) 0 [1..]

[GHC]

#12654: Panic on interrupting the evaluation of foldl (\x a -> if x > 100 then 100
else x+a) 0 [1..]
-------------------------------------+-------------------------------------
           Reporter:  Kuros          |             Owner:
               Type:  bug            |            Status:  new
           Priority:  normal         |         Milestone:
          Component:  GHCi           |           Version:  8.0.1
           Keywords:  ghci panic     |  Operating System:  Windows
  mvar thread block                  |
       Architecture:  x86_64         |   Type of failure:  GHCi crash
  (amd64)                            |
          Test Case:                 |        Blocked By:
           Blocking:                 |   Related Tickets:
Differential Rev(s):                 |         Wiki Page:
-------------------------------------+-------------------------------------
 Full log below (it only interrupted about a minute after i pressed ctrl-C,
 and I pressed it several times since it didn't respond):

 *Main> foldl (\x a -> if x > 100 then 100 else x+a) 0  [1..]
 Interrupted.
 *Main>
 ghc.exe: panic! (the 'impossible' happened)
   (GHC version 8.0.1 for x86_64-unknown-mingw32):
         thread blocked indefinitely in an MVar operation

 Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug

--
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/12654>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler