如何用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，<$>，<$。