module Main (
    main
    ) where

import SimpleJSON
import PrettyJSON
import Prettify

-- from SimpleResult.hs
result :: JValue
result = JObject [
  ("query", JString "awkward squad haskell"),
  ("estimatedCount", JNumber 3920),
  ("moreResults", JBool True),
  ("results", JArray [
     JObject [
      ("title", JString "Simon Peyton Jones: papers"),
      ("snippet", JString "Tackling the awkward ..."),
      ("url", JString "http://.../marktoberdorf/")
     ]])
  ]

-- main = print result

-- the following will work, but yield an ugly mess
-- main = print $ renderJValue result

-- main = print $ compact $ renderJValue result
main = print $ pretty 40 $ renderJValue result
