+-- | Traverse a object heirarchy.
+-- This is useful for traversing a JSON object to get to an
+-- appropriate place before parsing.
+(./) :: Value -> Text -> Value
+(Object obj) ./ key = case M.lookup key obj of
-- | Create a 'Value' from a list of name\/value 'Pair's. If duplicate
-- keys arise, earlier keys and their associated values win.
object :: [Pair] -> Value