haskell - Yesod 自定义 RawSql

Question

是否可以在 yesod 中创建自定义 rawSQL？

例如我有一个图像模型

Images
    filename String
    description Text Maybe
    date UTCTime
    deriving Show

我有一个 rawSQL 查询

selectImages :: Handler [Entity Images]
selectImages = do
      runDB $ rawSql s []
      where s =  "SELECT ?? from images;"

但不是这个字符串查询代码SELECT ?? from images;。我愿意SELECT id, CONCAT('upload/', filename) as path from images;。

希望你能帮助我提前谢谢你。

Answer 1

我使用这个链接解决了这个问题toJSON，这个链接在 IRC #haskell、#yesod 频道的帮助下也帮助了我很多。