[Haskell-beginners] A seemingly simple use-case for Template Haskell