p_unicode :: CharParser () Char
p_unicode = char 'u' *> (decode <$> count 4 hexDigit)
    where decode x = toEnum code
              where ((code,_):_) = N.readHex x

-- result :: JValue
-- result = JObject . JObj $ [
--   ("query", JString "awkward squad haskell"),
--   ("estimatedCount", JNumber 3920),
--   ("moreResults", JBool True),
--   ("results", JArray . JAry $ [
--      JObject . JObj $ [
--       ("title", JString "Simon Peyton Jones: papers"),
--       ("snippet", JString "Tackling the awkward ..."),
--       ("url", JString "http://.../marktoberdorf/")
--      ]])
--   ]
p_unicode :: CharParser () Char
p_unicode = char 'u' *> (decode <$> count 4 hexDigit)
    where decode x = toEnum code
              where ((code,_):_) = N.readHex x

-- result :: JValue
-- result = JObject . JObj $ [
--   ("query", JString "awkward squad haskell"),
--   ("estimatedCount", JNumber 3920),
--   ("moreResults", JBool True),
--   ("results", JArray . JAry $ [
--      JObject . JObj $ [
--       ("title", JString "Simon Peyton Jones: papers"),
--       ("snippet", JString "Tackling the awkward ..."),
--       ("url", JString "http://.../marktoberdorf/")
--      ]])
--   ]
p_unicode = char 'u' *> (decode <$> count 4 hexDigit)
    where decode x = toEnum code
              where ((code,_):_) = N.readHex x

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