Fix Trac #2386: exceesive trimming of data types with Template Haskell