higherkindness/mu-haskell
1
1
Fork 0
mirror of https://github.com/higherkindness/mu-haskell.git synced 2024-10-26 15:49:00 +03:00
Code Issues Projects Releases Wiki Activity

Another attempt at enconding empty values

Browse Source
This commit is contained in:
Alejandro Serrano 2020-05-12 13:46:37 +02:00
parent 821fcf5b39
commit f2409162bf
No known key found for this signature in database
GPG Key ID: A04B82DC1AD554C3
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
grpc/common/src/Mu/GRpc/Avro.hs
View File

@ -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)