我有以下代码:
data Friend = Friend
{ friend_name :: Text
, friend_inTwitter :: Bool
, friend_twitterName :: Maybe Text
}
$(deriveJSON (drop 6) ''Friend)
这段 JSON 正在被发布到处理程序,但我很难获取它。我尝试过不同的方法,但让我将其中之一放在这里来生成建议:
postTestR :: Handler RepPlain
postTestR = do
value <- parseJsonBody_
return $ RepPlain $ friend_name value
这是行不通的,我可以看到类型不匹配,但我不确定用什么来替换它。我还想看看如何解析以 JSON 形式发布的好友列表。
Thanks!
好吧,事实证明,我需要在其中添加一个“toContent”调用以从文本转换为内容。这是一段有效的代码:
data Person = Person
{ person_firstName :: Text
, person_lastName :: Text
, person_fullName :: Text
, person_friends :: [Friend]
}
data Friend = Friend
{ friend_name :: Text
, friend_inTwitter :: Bool
, friend_twitterName :: Text
}
$(deriveJSON (drop 7) ''Person)
$(deriveJSON (drop 7) ''Friend)
postKnockoutR :: Handler RepPlain
postKnockoutR = do
value <- parseJsonBody_
let (f:fs) = person_friends value
return $ RepPlain $ toContent $ friend_name f
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)