0

我正在尝试从 SQLite DB ( HDBC.sqlite3) 获取信息，以使用 Scotty 框架提供给 Web 视图。我目前正在尝试完成“全部抓取”，或者更确切地说从表格中选择所有信息，然后将其返回以显示在通过 Scotty 运行的网页上。我遇到了一个错误，我在弄清楚如何修复它时遇到了一些麻烦。

这是我的错误：

Controllers/Home.hs:42:44:
Couldn't match expected type `Data.Text.Lazy.Internal.Text'
            with actual type `IO [[(String, SqlValue)]]'
In the expression: getUsersDB
In the first argument of `mconcat', namely
  `["<p>/users/all</p><p>", getUsersDB, "</p>"]'
In the second argument of `($)', namely
  `mconcat ["<p>/users/all</p><p>", getUsersDB, "</p>"]'

这是我的代码：

import Control.Monad
import Web.Scotty (ScottyM, ActionM, get, html, param, text)
import Data.Monoid (mconcat)
import Controllers.CreateDb (createUserDB)
import Database.HDBC
import Database.HDBC.Sqlite3
import Control.Monad.Trans ( MonadIO(liftIO) )
import Data.Convertible

getAllUsers :: ScottyM()
getAllUsers = get "/users/all" $ do
  html $ mconcat ["<p>/users/all</p><p>", getUsersDB , "</p>"]

getUsersDB = do
  conn <- connectSqlite3 databaseFilePath
  stmt <- prepare conn "SELECT name FROM users VALUES"
  results <- fetchAllRowsAL stmt
  disconnect conn
  return (results)
4

1 回答 1

1

run返回修改的行数： https ://hackage.haskell.org/package/HDBC-2.4.0.0/docs/Database-HDBC.html#v:run

于 2014-10-12T19:05:37.390 回答