vector name v = toJSON . map val . G.toList $ v where
    val i = object [ toKey name .= i ]


-- | Render the elements of two vectors.
vector name v = toJSON . map val . G.toList $ v where
    val i = object [ toKey name .= i ]


-- | Render the elements of two vectors.
vector name v = toJSON . map val . G.toList $ v where
    val i = object [ toKey name .= i ]


-- | Render the elements of two vectors.