Parsing JSON haskell

Question

J'essaie d'accéder à l'intérieur Object dans ma demande. Voici mon code:

{-# LANGUAGE OverloadedStrings #-} 


import Network.Wreq 
import Control.Lens 
import Data.Aeson 

import Data.Map as Map 

type Resp = Response (Map String Value) 


main = do 
    r <- asJSON =<< get "https://bittrex.com/api/v1.1/public/getticker?market=BTC-LTC" :: IO Resp 
    let result = (r ^. responseBody)  
    print result 

Ceci est mon résultat:

fromList [("message",String ""),("result",Object (fromList [("Bid",Number 1.441e-2),("Ask",Number 1.44101e-2),("Last",Number 1.441e-2)])),("success",Bool True)] 

Je suis en train d'accéder à la clé de l'objet « résultat », puis accéder aux valeurs à l'intérieur de là. Je ne suis pas sûr de savoir comment le faire, je me suis trompé avec AESON et ^? opérateur que wreq fournit mais ça ne fonctionne pas pour moi.

Answer 1

{-# LANGUAGE OverloadedStrings #-} 

import Control.Lens 
import Network.Wreq 
import Data.Aeson.Lens 

import Data.HashMap.Lazy (HashMap) 
import Data.Text (Text) 

main = do 
    r <- asValue =<< get "https://bittrex.com/api/v1.1/public/getticker?market=BTC-LTC" 
    let result = 
     (r :: Response Value) 
      -- get the Value out of the Response 
      ^? responseBody 
      -- The Value must be an Object, then unwrap the contained (HashMap Text Value) 
      . _Object 
      -- In the map {"message": ..., "result": ...}, get the "result". 
      . ix "result" 
      -- This must be an Object, unwrap the (HashMap Text Value) 
      . _Object 
    print (result :: HashMap Text Value) 

-- How types line up: 
-- 
-- responseBody . _Object . ix "result" . _Object 
--   :: Traversal' (Response Value)         (HashMap Text Value) 

-- 
-- responseBody :: Lens' (Response Value) Value 
-- _Object  ::    Traversal' Value (HashMap Text Value) 
-- ix "result" ::     Traversal' (HashMap Text Value) Value 
-- _Object  ::          Traversal' Value (HashMap Text Value)