buildBlock :: Block -> Builder
buildBlock (Block bs) =
    case BSL.toChunks bs of
      [] -> buildMiniblock $ Miniblock $ BS.empty
      xs -> mconcat $ Prelude.map (buildMiniblock . Miniblock) xs
buildBlock :: Block -> Builder
buildBlock (Block bs) =
    case BSL.toChunks bs of
      [] -> buildMiniblock $ Miniblock $ BS.empty
      xs -> mconcat $ Prelude.map (buildMiniblock . Miniblock) xs
buildBlock (Block bs) =
    case BSL.toChunks bs of
      [] -> buildMiniblock $ Miniblock $ BS.empty
      xs -> mconcat $ Prelude.map (buildMiniblock . Miniblock) xs