从Yesod持久化的Sqllite中提取数值的方法如下:
下面是一个示例代码,演示了如何从Yesod持久化的Sqllite中提取数值:
import Database.Persist.Sqlite
import Database.Persist.TH
share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
Person
name String
age Int
deriving Show
|]
main :: IO ()
main = do
-- 创建数据库连接
conn <- withSqliteConn "test.db" $ \conn -> do
-- 执行数据库查询
person <- runSqlConn $ selectList [PersonName ==. "John"] []
-- 提取数值字段
let age = personAge $ entityVal person
-- 打印结果
print age
-- 关闭数据库连接
close conn
请注意,上述代码中的"test.db"是Sqllite数据库文件的路径,你需要根据实际情况进行修改。
希望以上信息能帮助到你。如果需要了解更多关于Yesod、Sqllite和持久化数据的知识,可以参考腾讯云的文档和产品介绍:
领取专属 10元无门槛券
手把手带您无忧上云