Deriving Show takes a very long time

[Mark P Jones]

Hugs (any recent version) goes into an infinite loop when
it tries to load the following program:

  data Fruit f a = Bat (f a) | Flies a (Fruit f (f a))
   deriving Show

Please add this to the list of unresolved bugs.

All the best,
Mark