namespace MauiDotnetFlake

open System
open System.IO
open System.Security.Cryptography

[<RequireQualifiedAccess>]
module Hash =
    let getAsync (stream : Stream) =
        async {
            use c = SHA256.Create ()
            let! ct = Async.CancellationToken
            stream.Seek (0, SeekOrigin.Begin) |> ignore
            let! hash = c.ComputeHashAsync (stream, ct) |> Async.AwaitTask
            return
                hash
                |> Convert.ToBase64String
                |> HashString
        }