heap overflow with Bits.shift and Integer
The following few lines produce a GHC panic:
module Main where
import Data.Bits (shift)
badOne :: [Int] -> Integer -- replace Integer by Int and all is good!
badOne is = sum $ zipWith (\n _->shift 1 n) [0..] is
main = return () :: IO ()
The function is stripped down as much as possible, it doesn't perform anything all to meaningful anymore.
The error message is:
ghc: panic! (the 'impossible' happened)
(GHC version 8.4.3 for x86_64-apple-darwin):
heap overflow
All else is off-the-shelf stack lts-12.10 via
stack new bad-one simple
Tested on Mac OS X and Debian.
This has some resemblance with #14959, which was fixed in 8.4.2.