[jhc] "case fell off" for trivial program

[Herbert Valerio Riedel]

Hello,

When compiling and running the following trivial Haskell program below w/ jhc
0.8.2, it aborts right away with a "case fell off" error (see output
below)

As this seems to be a rather visible bug, is this actually a known issue?

--8<---------------cut here---------------start------------->8---
data T2 = T2C1 | T2C2 String
         deriving (Show,Eq)

data T3 = T3C1 | T3C2 | T3C3 String
         deriving (Show,Eq)

main :: IO ()
main = do
    print (T2C2 "works fine")
    print (T3C3 "case falls off")
--8<---------------cut here---------------end--------------->8---


...output when run:

--8<---------------cut here---------------start------------->8---
T2C2 "works fine"

/tmp/jhc_8nHiAa/rts/rts_support.c:887: case fell off
Aborted
--8<---------------cut here---------------end--------------->8---


Cheers,
  hvr