Update typeclass.hs