def authorize.of

bend-kit-sigv4@0.11.0.1 · sigv4.bend:364

import Base

364def authorize.of(h: Result<&1, &1, U32 & String, String>, creds: Credentials, +region: String, +service: String, +date: String, +method: String, +path: String, +q: String, +host: String) -> IO(Result<&1, &1, U32 & String, String & String>):
365  match h:
366    case Fail{e}:
367      IO.pure(Result<&1, &1, U32 & String, String & String>, Fail{e})
368    case Done{+phash}:
369      do IO<Result<&1, &1, U32 & String, String & String>>:
370        a : Result<&1, &1, U32 & String, String> <- authorize.hash(creds, region, service, date, method, path, q, host, phash)
371        return authorize.pair(a, phash)