Update TH.hs

change `-- | @ declareFields = 'declareFieldsWith' 'defaultFieldRules' @` to `-- | @ declareFields = 'declareLensesWith' 'defaultFieldRules' @`
Merge pull request #477 from mfeyg/patch-1

Documentation fix in TH.hs