Haskell有像ActiveRecord或Sequel这样的SQL查询合成库吗？

Question

使用Ruby的ActiveRecord或Sequel，您可以逐步构建SQL查询，根据运行时的条件向查询添加where、join或order子句。

下面是一个取自ASCIIcasts的简单示例

def index  
  @articles = Article.order('name')  

  if params[:hidden]  
    @articles = @articles.where(:hidden =>(params[:hidden] == "1"))  
  end  

  respond_to do |format|  
    format.html # index.html.erb  
    format.xml  { render :xml => @articles }  
  end  
end

该示例展示了如果名为hidden的HTTP请求查询参数等于1，如何将WHERE子句附加到articles表的底层SQL查询中。

我一直在研究Haskell中的HDBC和postgresql-simple。似乎postgresql-simple故意使从动态连接的部分构建SQL查询变得困难，以防止SQL注入。HDBC似乎足够灵活，可以在运行时根据条件构建不同结构的SQL查询，但它似乎没有提供ActiveRecord或Sequel所提供的抽象级别。

有没有人能推荐一种好的方法来使用Haskell数据库来模拟ActiveRecord的动态查询构建功能？

如果HDBC是一条可行的道路，我可以接受。但是，如果有插图，我们将不胜感激。

我想我想要的是在PostgreSQL后端上动态编写查询的能力。

Answer 1

你可能想要Persistent，你可能想要HaskellDB，你可能想要像Esqueleto这样的东西。

下面是对两者权衡的很好的讨论：http://blog.felipe.lessa.nom.br/?p=68

Answer 2

您可能会发现http://hackage.haskell.org/package/esqueleto对这个应用程序很有趣。