小编Ani*_*esh的帖子

我是一名新手haskell程序员,我正在尝试编写一些Haskell cgi,它将从MySQL DB中读取并输出JSON.我能够生成正确的JSON,但无法正确获取数据类型以便能够正确输出JSON.我也认为我主要是在考虑势在必行.这是我的代码.请注意,getTopBrands提供了json输出.

我的问题是我无法弄清楚如何从getTopBrands返回"[Char]"而不是"IO [Char]".在我看来,我仍在思考当务之急.任何指针,解决这个问题的建议将不胜感激.如果我需要提供其余的代码,请告诉我.

RODB.hs:

{-# LANGUAGE RecordWildCards, OverloadedStrings, PackageImports #-}

module Main where

import RODB
import ROOutput
import System.Environment
import Database.HDBC
import Network.Socket(withSocketsDo)
import Network.CGI
import Text.XHtml
import qualified "bytestring" Data.ByteString.Lazy.Char8 as LBS
import Data.Aeson

page :: Html
page = body << h1 << str

main = runCGI $ handleErrors cgiMain

cgiMain :: CGI CGIResult
cgiMain =
    do out <- getTopBrands 10 1
       setHeader "Content-type" "application/json"
       output $ renderHtml page out

getTopBrands :: Integer -> Integer -> IO …