如何用HDBC填充SQL IN占位符的参数？

Question

我试图做这样的事情与Database.HDBC.PostgreSQL：

run c "update questions set deleted = now() where question_id in (?)" [toSql ids] 

其中IDS是[INT]。但我得到错误

No instance for (Data.Convertible.Base.Convertible [Int] SqlValue) 

你如何填写一个IN占位符与HDBC？

Answer 1

我不认为你可以避免动态构建查询，但你仍然可以避免SQL注入等。

import Control.Applicative ((<$), (<$>)) 
import Data.List (intersperse) 

let query = "update questions set deleted = now() where question_id in (" 
      ++ intersperse ',' ('?' <$ ids) 
      ++ ")" 
in run c query (toSql <$> ids) 

链接文档intersperse，<$>，<$。