haskell - 使用 Conduits 从 rawQuery 中获取数据

Question

我承认，鉴于我有限的 Haskell 知识，我并不是很了解 Conduits。如果有人可以指导我如何完成这项任务，我将不胜感激:我想获取 rawQuery 操作的输出并将其存储在一个变量中，然后我可以在我的 Hamlet 文件中再次使用该变量。例如:

let sql = "SELECT sum(value) as total, category FROM person GROUP BY category ORDER BY total desc;"
   --- ??  how to store this runDB output in a variable?
runDB $ rawQuery sql [] $$ CL.map (convertFromPersistent) 
where 
    convertFromPersistent [] = Nothing
    convertFromPersistent [PersistInt64 sum,PersistInt64 category] = Just (sum,category)
    convertFromPersistent _ = Nothing

当我这样做

runDB $ rawQuery sql [] $$ CL.mapM_ (liftIO. print. convertFromPersistent) 

我在日志文件中看到了输出。但是，我想将输出通过管道传输到元组数组，以便我可以在我的 Hamlet 文件中使用它。感谢您的帮助!

谢谢，

Answer 1

通过反复试验，我发现这是可行的:

res <- runDB $ rawQuery sql [] $$ CL.map (convertFromPersistent) =$ CL.consume