我有
样式的JSON请求{"command":"get","params":{"something":"something else"}}
和yesod book的此代码段
{-# LANGUAGE OverloadedStrings #-}
import Network.Wai (Response, responseLBS, Application, requestBody)
import Network.HTTP.Types (status200, status400)
import Network.Wai.Handler.Warp (run)
import Data.Aeson.Parser (json)
import Data.Conduit.Attoparsec (sinkParser)
import Control.Monad.IO.Class (liftIO)
import Data.Aeson (Value(..), encode, object, (.=))
import Control.Exception (SomeException)
import Data.ByteString (ByteString)
import Data.Conduit (ResourceT, ($$))
import Control.Exception.Lifted (handle)
main :: IO ()
main = run 3000 app
app :: Application
app req = handle invalidJson $ do
value <- requestBody req $$ sinkParser json
newValue <- liftIO $ modValue value
return $ responseLBS
status200
[("Content-Type", "application/json")]
$ encode newValue
invalidJson :: SomeException -> ResourceT IO Response
invalidJson ex = return $ responseLBS
status400
[("Content-Type", "application/json")]
$ encode $ object
[ ("message" .= show ex)
]
-- Application-specific logic would go here.
modValue :: Value -> IO Value
modValue (Object o)
| -- key "command" corresponds to value "get"
| otherwise = fail "Invalid command"
,但我无法围绕如何破坏生成的价值数据结构。我该如何获取密钥的值等。我意识到我可以分析明确定义的数据结构,但这会给我的用例带来其他类型的问题。
在ModValue中,我发表了评论,我无法弄清楚要放什么。我尝试将其视为地图,因为这是Aeson内部实现的方式,但显然不会输入检查。
编辑:
将data.hashmap添加到导入并使用该行
| M.lookup "command" o == Just "get" = return $ object [("result" .= (String "YAY"))]
给出以下错误消息。
main.hs:39:26:
Couldn't match expected type `M.Map k0 a0'
with actual type `aeson-0.6.0.2:Data.Aeson.Types.Internal.Object'
In the second argument of `M.lookup', namely `o'
In the first argument of `(==)', namely `M.lookup "command" o'
In the expression: M.lookup "command" o == Just "get"
edit2:
在突然的直觉上,我追踪了我早些时候收到的错误消息,涉及"无序的统治者"。这是Aeson使用的软件包。但是我意识到我还安装了软件包hashmap,该软件包被导入为data.hashmap。来自无序包机的哈希图被导入为data.hashmap.strict或lazy!
将行import qualified Data.HashMap as M
更改为import qualified Data.HashMap.Strict as M
。现在给定的答案有效!
由于aeson json对象是hashmap,因此您可以使用hasmap接口,在这种情况下为 lookup
。
import qualified Data.HashMap.Strict as M
M.lookup "command" o == Just "get"