What should this look like in the new camlp4 syntax?

EXTEND
   Pcaml.expr: LEVEL "expr1" [
     [ "PGSQL"; "("; dbh = Pcaml.expr; ")"; extras = LIST1 STRING ->
         let query, flags =
           match List.rev extras with
           | [] -> assert false
           | query :: flags -> query, flags in
         pgsql_expand ~flags loc dbh (Token.eval_string loc query)
     ]
   ];
END

	Thanks, Joel

--
http://wagerlabs.com/