module Potoki.Cereal.Produce
where

import Potoki.Cereal.Prelude
import Potoki.Core.Produce
import Data.Serialize
import qualified Data.ByteString.Lazy as A
import qualified Data.ByteString.Lazy.Internal as A


put :: Put -> Produce ByteString
put =
  lazyByteString . runPutLazy