[Template-haskell] query functions