[Haskell-cafe] Using Template Haskell to make type-safe database access