[Template-haskell] example of derive using Template Haskell?