encodeValue :: Value -> Encoding

encodeValue (Object vs) = encodeMapLen (fromIntegral $ HashMap.size vs)
                       <> mconcat [ encodeString k <> encodeValue v
                                  | (k,v) <- HashMap.toList vs ]
encodeValue :: Value -> Encoding
encodeValue (Object vs) = encodeMapLen (fromIntegral $ HashMap.size vs)
                       <> mconcat [ encodeString k <> encodeValue v
                                  | (k,v) <- HashMap.toList vs ]
encodeValue (Object vs) = encodeMapLen (fromIntegral $ HashMap.size vs)
                       <> mconcat [ encodeString k <> encodeValue v
                                  | (k,v) <- HashMap.toList vs ]