[cvs-nhc98] Generalise context of readFloat from (RealFloat a) to (Rea