Improve hPutSerialise to use hPutBuilder (fixes #317)

well-typed · Aug 18, 2023 · ba334b8 · ba334b8
1 parent 4149849
commit ba334b8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/serialise/src/Codec/Serialise.hs b/serialise/src/Codec/Serialise.hs
@@ -153,7 +153,7 @@ hPutSerialise :: Serialise a
               => Handle       -- ^ The @'Handle'@ to write to.
               -> a            -- ^ The value to be serialised and written.
               -> IO ()
-hPutSerialise hnd x = BS.hPut hnd (serialise x)
+hPutSerialise hnd x = BS.hPutBuilder hnd (CBOR.Write.toBuilder (encode x))
 
 -- | Serialise a @'BS.ByteString'@ and write it directly to the
 -- specified file.