[Hugs-bugs] internal error

[fool at sdf-eu.org]

$ cat bug.hs
bla = (if True then (+) else (+)) 0 0
$ hugs bug.hs
__   __ __  __  ____   ___      _________________________________________
||   || ||  || ||  || ||__      Hugs 98: Based on the Haskell 98 standard
||___|| ||__|| ||__||  __||     Copyright (c) 1994-2003
||---||         ___||           World Wide Web: http://haskell.org/hugs
||   ||                         Report bugs to: hugs-bugs at haskell.org
||   || Version: November 2003  _________________________________________

Haskell 98 mode: Restart with command line option -98 to enable extensions

Type :? for help
Main> bla
primPlusInteger
Main> bla+0

INTERNAL ERROR: Bignum expected
Main>