Advertisement
Guest User

Untitled

a guest
Apr 20th, 2015
190
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 1.01 KB | None | 0 0
  1. | PhoneCoreCommands.ExecuteContactAction(contact, action, callhandle) ->
  2.                     let hdrs =
  3.                         action.headers
  4.                         |> Seq.map (fun x -> (x.key, x.value))
  5.                         |> Map.ofSeq
  6.                     let dialNumber = action.dialPrefix + action.dial
  7.                     match action.name with
  8.                     | "CONTACT_ACT_TRANSFER_VM" ->
  9.                         match status.selectedCalls with
  10.                         | { callHandle = sourceCallHandle } :: t ->
  11.                             [{ callHandle = sourceCallHandle;
  12.                                     actionType = CallActionItemType.Transfer(TransferType.BlindTransfer) }]
  13.                             |> PhoneCoreCommands.SetCallSelection
  14.                             |> actor.Post
  15.                         | _ -> ()
  16.                     | _ -> ()
  17.                     PhoneCoreCommands.MakeCall(dialNumber, [hdrs], Some contact)
  18.                     |> actor.Post
  19.                     return! stay
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement