A quasiquoter for SQL. Antiquoting is a bit inconsistent. The splice variable names must be all lower case because of a limitation in the parser.

Example:

 
 import Database.HsSqlPpp.Ast
 import Database.HsSqlPpp.Quote
 import Database.HsSqlPpp.Annotation

 test :: Statement
 test = [$sqlStmt|

   create table $(tablename) (
    $(varname) $(typename)
   );

         |]
   where
     tablename = "my_table"
     varname = "my_field"
     typename = "text"

See http://jakewheat.github.com/hssqlppp/QuasiQuoteTests.html for more simple examples