p_text :: CharParser () JValue
p_text = space *> text <?> "JSON text"
    where text = JObject <$> p_object
             <|> JArray <$> p_array
p_text :: CharParser () JValue
p_text = space *> text <?> "JSON text"
    where text = JObject <$> p_object
             <|> JArray <$> p_array
p_text = space *> text <?> "JSON text"
    where text = JObject <$> p_object
             <|> JArray <$> p_array