Restricted Template Haskell