ghci break w/HEAD

[Sigbjorn Finne]

The following one-liner breaks ghci-HEAD (as spotted
by Mike Thomas):

[Prelude]> let b = Array.array ((1,1),(2,2))
[((i,j),i*j)|i<-[1..2],j<-[1..2]]
[Prelude]> b
array Segmentation fault
foo$

--sigbjorn