loop in infix read parser causes stack overflow

[Klemens Hemm]

the :++ infix definition causes the derived read parser to loop until control stack 
overflow in hugs may99.


module Main where

data T = T1 |  T :++ T  deriving (Eq,Show, Read)

t :: T
t = read "T1"

main = print t


Klemens