2

由于我对 Haskell 很陌生，有人可以将我推向解决以下问题的正确方向吗...？

我从 Yesod 的脚手架应用程序开始。提供从数据库内容生成的 HTML 工作正常，但是有没有一种优雅的方法来创建遍历数据库表的纯文本响应？使用类似 Handler 的简单纯文本

getTestR = return . RepPlain . toContent ...

也可以，但我想服务：

配置/模型：

File
    path Text
Conf
    key Text
    val Text
    file FileId

作为 SQL 查询中的明文：

select path, key, val from file, conf order by path, key;

由于 hamlet 用于生成 HTML，我想我必须完全在 Haskell 中生成响应（迭代数据库内容）？

如何在数据库实体和文本（或 Int，如果 Row 是 Int 类型）之间进行转换，如何在数据库列 Id 之间进行转换？

4

1 回答 1

2

带有纯文本模板！！''#{expr}'' 允许 Text、String、Int32 或 Int64 表达式作为Text.Shakespeare.Text.ToText的实例

{-# LANGUAGE OverloadedStrings, ConstraintKinds #-} 
module Handler.Plain where

import Import
import qualified Data.List as List
import Database.Persist.Sqlite
import qualified Data.Text as Text
import Control.Monad.Logger (MonadLogger)
import Control.Monad.Trans.Resource (MonadResourceBase)
import Text.Shakespeare.Text                       -- for the plain text template

stmt :: Text
stmt = "SELECT ??, ??  FROM File, Conf ON Conf.file = File.id ORDER BY File.path, Conf.key"

getQryResult :: (PersistQuery SqlPersist m, MonadLogger m, MonadResourceBase m) => () -> SqlPersist m [(Text, Text, Text)]
getQryResult () = do
    result  <- rawSql stmt []

    return $ List.map getMyData (result :: [(Entity File, Entity Conf)])

  where
    getMyData (Entity _ file, Entity _ conf) = (filePath file, confKey conf, confVal conf)

getPlainR :: Handler RepPlain
getPlainR = do
    result <- runDB $ getQryResult ()
    return $ RepPlain $ toContent $ Text.unlines $ List.map formatMyData result
  where
    -- formatMyData (a, b, c) = Text.intercalate ", " [a,b,c]

    -- with a plain text template:
    formatMyData (a, b, c) = [st|
         #{a}, #{b}, #{c} |]
于 2013-02-08T18:32:52.557 回答