tsoding/haskell-json

2 questions

Opened this issue · 4 comments

danielbom commented

  1. What happening if I use this input? { "a": 1, "a": 2 }

  2. How I can get a value from parsed JSON?
    Ex:
    jsonParsed = runParser $ jsonValue "{ "config": { "mode": "dev" } }"
    jsonGet jsonParsed "config.mode"

dan323 commented

to query a JsonValue, you can implement a jmespath in haskell 👍

danielbom commented

A simple 'jsonValueByKey objectJson stringKey' it's enough to me.

dan323 commented

The json might not be a jsonObject, so we need something more involved than that. Nevertheless, at the end of the youtube video, if I remeber correctly, there are examples to query the json.

danielbom commented

Seeing ramda js, and sanctuary, I believe which a function to retrieve data from Json with this definition, it's a good improvement:

jsonPath :: JsonValue -> [String] -> Maybe JsonValue
jsonPath (JsonObject []) _ = Nothing
jsonPath (JsonObject (x:xs)) keys@(k:ks) =
  if k == fst x
  then jsonPath (snd x) ks
  else jsonPath (JsonObject xs) keys
jsonPath val [] = Just val
jsonPath _ _ = Nothing

Where the array of strings ('[String]') is the a array of keys to the value