Haskell Aeson解构泛型解析

Question

我有一个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中，我在我不知道该放什么的地方放了一个注释。我试着把它当做一个Map，因为这是它在伊森内部实现的方式，但这显然不会进行类型检查。

编辑：

将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：

在一个突然的预感中，我追踪到了我之前收到的一条错误消息，该消息涉及“unordered containers”。这是Aeson使用的包。但我意识到我还安装了包hashmap，它被导入为Data.HashMap。来自无序容器的哈希图被导入为Data.HashMap.Strict或Lazy！

将行import qualified Data.HashMap as M更改为import qualified Data.HashMap.Strict as M无论如何都会修复它。现在，给定的答案起作用了！

Answer 1

因为是aeson JSON object is a Hashmap，所以可以使用Hasmap interface，在本例中是lookup。

import qualified Data.HashMap.Strict as M

M.lookup "command" o == Just "get"