Winhugs crashes

[Martin Bäuml]

Hi,

I just programmed something for a class, when I discovered the following
bug.
I am running "winhugs  +s +t +f -g -G -l +e -. -q -Q +w -k -o -O +u -I +i
+R -H -T -W +X -N" under Windows XP.

My piece of code:

-- code start

data Monat = Januar | Februar | März | April | Mai | Juni | Juli | August |
September | Oktober | November | Dezember deriving Show

instance Enum Monat where
  toEnum 1 = Januar
  toEnum 2 = Februar
  toEnum 3 = März
  toEnum 4 = April
  toEnum 5 = Mai
  toEnum 6 = Juni
  toEnum 7 = Juli
  toEnum 8 = August
  toEnum 9 = September
  toEnum 10 = Oktober
  toEnum 11 = November
  toEnum 12 = Dezember
  fromEnum Januar = 1
  fromEnum Februar = 2
  fromEnum März = 3
  fromEnum April = 4
  fromEnum Mai = 5
  fromEnum Juni = 6
  fromEnum Juli = 7
  fromEnum August = 8
  fromEnum September = 9
  fromEnum Oktober = 10
  fromEnum November = 11
  fromEnum Dezember = 12
  succ m = toEnum (rem (1 + (fromEnum m)) 12)
  pred m | (fromEnum m) == 1 = Dezember
         | otherwise         = (toEnum . subtract 1 . fromEnum) m

data Datum = Datum Int Monat Int deriving Show

instance Eq Datum

instance Ord Datum

-- code end

Now if I ask in Winhugs what

(Datum 12 Januar 2004) == (Datum 12 Januar 2004)

is, it crashes: Process winhugs exited with code 128.


Regards,
Martin