anchor.diff:              |> deleteQ "r"
   
           | UpdateNode (node, data) ->
  -            let query, dataParameter = query |> withParamQ "data" data
  -
               query
               |> mergeNodeIdQ "node" node
  -            |> setQ (sprintf "node = %s" dataParameter)
  +            |> updateNodeQ "node" node data
   
       let graphActionSeqToQuery (graphClient : ICypherGraphClient) (graphName : string) actions =
           let folder (query, isFirst) action =
  
positive.code:         let query, clause = query |> withNodeWhereClauseQ name nodeId
          query |> addWhere clause
      
  
      let getNode (graphClient : ICypherGraphClient) (graphName : string) (nodeId : NodeId) =
          async {
  
negative.code:                 |> returnQ "node"
                  |> resultsAsyncQ
                  
              let noneOneMany =
                  results
                  |> Seq.truncate 2
                  |> Seq.toList
  
              return
                  match noneOneMany with
                  | [] -> None
                  | [ result ] -> Some result
                  | _ -> failwith (sprintf "Multiple nodes found in graph %s that match id %A" graphName nodeId)
          }
  
      // All results currently have to be of the same type.
  