Template Haskell: improve lifting for strings