fix warning
TH.hs: refactor nullable type