def zl.head

bend-kit-zlib@0.5.1.0 · zlib.bend:739

import Base
import bend-kit-bytes@0.3.3.0/bytes.bend as Bytes

739def zl.head(r: Bytes.Bytes & Maybe<&2, U32>) -> Maybe<&1, Bytes.Bytes>:
740  (b, m) = r
741  match m:
742    case None{}:
743      None{}
744    case Some{+h}:
745      zl.go(zl.ok(U32.shrn(h, 8n), U32.and(h, 255)), b)