mirror of
https://github.com/higherkindness/mu-haskell.git
synced 2024-10-26 15:49:00 +03:00
Another attempt at enconding empty values
This commit is contained in:
parent
821fcf5b39
commit
f2409162bf
@ -76,8 +76,11 @@ instance GRPCOutput AvroRPC () where
|
||||
encodeEmpty :: Compression -> Builder
|
||||
encodeEmpty compression =
|
||||
mconcat [ singleton (if _compressionByteSet compression then 1 else 0)
|
||||
, putWord32be 0
|
||||
, putWord32be (fromIntegral $ ByteString.length bin)
|
||||
, fromByteString bin
|
||||
]
|
||||
where
|
||||
bin = _compressionFunction compression ""
|
||||
|
||||
instance forall (sch :: Schema') (sty :: Symbol) (i :: Type).
|
||||
( HasAvroSchema (WithSchema sch sty i)
|
||||
|
Loading…
Reference in New Issue
Block a user