repro1.fs

open System

let transfers = [| Some 2,1 |]

let FetchInternalTransfers (includeConfirmeds: int) =
    task {

        let! mapPrioritiesTransfers = 
            task {
                if includeConfirmeds > 1 then

                    transfers
                    |> Array.map(fun (loanid,c) -> loanid.Value, 4)
                    |> Array.map(fun (k,vs) -> k, 1)
                    |> Array.map(fun (id,c) -> c,true)
                    |> ignore

            }

        return [| 1 |], 1

    }

let main() =
    let test = FetchInternalTransfers 2
    test.Result |> printfn "%A"
main()