reduced-repro.fs

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()