A
Size: a a a
A
DL
A
A
getDigestV2 image = manifestRequest image
<&> setRequestMethod "HEAD"
>>= performRequest
<&> drop 7 . C8.unpack . head . getResponseHeader "Docker-Content-Digest"
ND
(->> something
(>=> f1)
(>=> f2)
(>=> f3))
ND
DL
A
A
DL
DL
A
A
DL
DL
A
request <- manifestRequest image
let request' = setRequestMethod "HEAD" request
result <- performRequest request'
let digest = drop 7 (C8.unpack (head (getResponseHeader "Docker-Content-Digest")))
pure digest
DL
A
A