Heap overflow is not catched

[Marcin 'Qrczak' Kowalczyk]

grepping through sources suggests that nobody tried to implement this,
only the exception constructor exists... OTOH stack overflow works.

import Exception
main:: IO ()
main = print (length (l++l)) `catchAllIO` print
    where l = [0::Int ..]

-- 
 __("<    Marcin Kowalczyk * [EMAIL PROTECTED] http://qrczak.ids.net.pl/
 \__/              GCS/M d- s+:-- a23 C+++$ UL++>++++$ P+++ L++>++++$ E-
  ^^                  W++ N+++ o? K? w(---) O? M- V? PS-- PE++ Y? PGP+ t
QRCZAK                  5? X- R tv-- b+>++ DI D- G+ e>++++ h! r--%>++ y-