Scram.verify.of: def of bend-kit-postgres@0.3.0.0
Import: import bend-kit-postgres@0.3.0.0/scram.bend as Scram
Lines 252-259 of bend-kit-postgres@0.3.0.0/scram.bend: https://jend.leeeet.dev/read.txt?path=bend-kit-postgres@0.3.0.0/scram.bend&start_line=252&end_line=259

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

def verify.of(+sig: String, r: Result<&1, &1, U32 & String, String>) -> IO(Result<&1, &1, U32 & String, Unit>):
  match r:
    case Fail{e}:
      IO.pure(Result<&1, &1, U32 & String, Unit>, Fail{e})
    case Done{+got}:
      do IO<Result<&1, &1, U32 & String, Unit>>:
        ok : Bool <- eq.of(Bytes.from_string(sig), Bytes.from_string(got))
        return verify.ok(ok)

Uses (12):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO.bind
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO.pure
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Pair
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Result
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Unit
  https://jend.leeeet.dev/definition.txt?path=bend-kit-bytes@0.3.3.0/bytes.bend&name=from_string
  https://jend.leeeet.dev/definition.txt?path=bend-kit-postgres@0.3.0.0/scram.bend&name=eq.of
  https://jend.leeeet.dev/definition.txt?path=bend-kit-postgres@0.3.0.0/scram.bend&name=verify.ok