writeBuf :: WriteBuffer -> LBS.ByteString -> IO ()
writeBuf w s = modifyMVar_ w $ return . (\builder ->
                 builder `mappend` (BB.fromLazyByteString s))
writeBuf :: WriteBuffer -> LBS.ByteString -> IO ()
writeBuf w s = modifyMVar_ w $ return . (\builder ->
                 builder `mappend` (BB.fromLazyByteString s))
writeBuf w s = modifyMVar_ w $ return . (\builder ->
                 builder `mappend` (BB.fromLazyByteString s))