encodeValue (Array  vs) = encodeListLen (fromIntegral $ Vec.length vs)
                       <> mconcat [ encodeValue v | v <- Vec.toList vs ]
encodeValue (Array  vs) = encodeListLen (fromIntegral $ Vec.length vs)
                       <> mconcat [ encodeValue v | v <- Vec.toList vs ]
encodeValue (Array  vs) = encodeListLen (fromIntegral $ Vec.length vs)
                       <> mconcat [ encodeValue v | v <- Vec.toList vs ]