Advertisement
Guest User

kakaka

a guest
Nov 1st, 2017
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 0.84 KB | None | 0 0
  1.         tryRetrieve
  2.             service
  3.             (ColumnSet
  4.                 [| "evry kjede"
  5.                    "evry_kommune" |])
  6.             (EntityReference
  7.                 (executionContext.PrimaryEntityName,
  8.                     executionContext.PrimaryEntityId))
  9.         >>= checkAttribute<EntityReference> "evry_kommune"
  10.         >>= checkAttribute<OptionSetValue> "evry_kjede"
  11.         <!> makeTeamQuery
  12.         >>= tryRetrieveMultiple service
  13.         >>= fun x ->
  14.             match Seq.tryHead x.Entities with
  15.             | Some s -> Ok s
  16.             | None -> Error "none found"
  17.         |> function
  18.             | Ok o ->
  19.                 this.QueueRef.Set
  20.                     (context,
  21.                      getAttributeValue "queueid" o)
  22.             | Error e ->
  23.                 InvalidWorkflowException e
  24.                 |> raise
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement