Skip to content

Instantly share code, notes, and snippets.

@dsyme
Created June 29, 2022 13:55
Show Gist options
  • Save dsyme/0e748fbab29e0ba4ca15cfefdf88055b to your computer and use it in GitHub Desktop.
Save dsyme/0e748fbab29e0ba4ca15cfefdf88055b to your computer and use it in GitHub Desktop.
open System
let transfers =[| Some (Guid.NewGuid()),DateTime.Now |]
let FetchInternalTransfers (includeConfirmeds: bool) (transferStep: string) =
task {
let totalCount = transfers.Length
let! mapPrioritiesTransfers =
task {
if transferStep = "All" then
let minOrder =
transfers
|> Array.map(fun (loanid,c) -> loanid.Value, 4)
|> Array.map(fun (k,vs) -> k, 1)
let mappedTransfers =
transfers |> Array.map(fun (id,c) -> c,includeConfirmeds)
return [| 1 |]
else
return [| |]
}
return mapPrioritiesTransfers, totalCount
}
let main() =
let test = FetchInternalTransfers false "All"
test.Result |> printfn "%A"
main()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment