[JsonObject JsonValue] doesn't act like a list in all instances about compiler

[evancz]

Can you show me the JSON object you are working with? findString returns an empty string (i.e. empty list) when the key is not found. Same with findArray which returns an empty list when the key is not found.

[jhickner]

The json I'm testing with is the result returned from http://www.reddit.com/r/cinemagraphs/hot.json. Which I've downloaded and named downloaded.json.

Here's my test code:

import HTTP
import JSON

redditURL = "downloaded.json"

extract res = 
  case res of
  { Success str -> JSON.fromString str
  ; _           -> empty }

getUrls res = 
  let { json = extract res
      ; children = findArray "children" . findObject "data" $ json
      ; urls = map (findString "url" . findObject "data") children
      }
  in urls

main = lift (plainText . show) . lift getUrls . send . constant $ get redditURL

I'm just using plainText to print the result. It prints as:

[[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[]]

The format of the json is like this (with a bunch elided):

{
  "data":  {
    "children: [
      {"data": {"url": some url}},
      {"data": {"url": some url}},
      {"data": {"url": some url}},
      {"data": {"url": some url}},
    ]
  }
}

[evancz]

Ok, this is actually a bug in the type checker. The program you sent should have thrown a type error at compile time, so I'll look into what is going on.

The issue was that findObject :: String -> JsonObject JsonValue -> JsonObject was given a JsonValue as its second argument. JsonValue has a constructor JsonObject (JsonObject JsonValue), meaning that you have to extract the actual object. The first JsonObject is a type constructor and the second is a type.

This level of indirection is needed so that JsonNull, (JsonNumber 4) and JsonObject empty can all have the same type without all being valid arguments to things like findObject and findArray.

This should work:

import HTTP
import JSON

redditURL = "downloaded.json"

extract res = 
  case res of
  { Success str -> JSON.fromString str
  ; _           -> empty }

valueToObj v = case v of { JsonObject obj -> obj ; _ -> empty }

getUrls res = 
  let { json = extract res
      ; children = findArray "children" . findObject "data" $ json
      ; urls = map (findString "url" . findObject "data" . valueToObj) children
      }
  in urls

main = lift (flow down . map asText) . lift getUrls . sendGet $ constant redditURL

By the way, this is totally awesome! I had it output everything as images and it was really cool :D

You might be interested in something like this:

groups n lst =
  case lst of
  { [] -> [] ; x:xs -> take n lst : groups n (drop n lst) }

tile w tiles =
  flow down . intersperse (spacer 10 10) . map (flow right) $ groups (w `div` tileSize) tiles

[jhickner]

Thanks! Wow, I hadn't messed much with the flow stuff yet! So coo!

[evancz]

No problem!

See the other issue on fittedImage. If you do that fix, try adding replacing main with:

main = lift (flow down . map (fittedImage 300 200)) . lift getUrls . sendGet $ constant redditURL

Again, very cool idea! I'd love to see what it ends up looking like!