Update TH.hs

datatype of instance