anchor.diff:                                                  let! rest = oneOrMoreSep dataField ',' 
                                                   let! _ = char ')'
                                                   return rest })
  -                 return (match rest with None -> Data.Value w | Some xs -> Data.Node(w,dict xs)) }
  +                 return (match rest with None -> Data.Value w | Some xs -> Data.DataNode(w,dict xs)) }
           <|>
           parser { let! xs = dataList
                    return Data.List(xs) }
  
positive.code:     /// Get the getFields out of the parsed detailed table description
      let getFields r = 
         [| match r with 
            | Data.Node("Table",d) ->
                match d.["sd"] with 
                | Data.Node("StorageDescriptor",d2) ->
                   match d2.TryGet "cols" with 
                   | Some (Data.List cols) ->
                     for col in cols do 
                         match col with 
                         | Data.Node("FieldSchema",d4) -> 
                             match (d4.TryGet "name", d4.TryGet "type", defaultArg (d4.TryGet "comment") (Data.Value "")) with 
                             | Some (Data.Value nm), Some (Data.Value typ), Data.Value comment -> 
                                yield {Name=nm; Type=parseHiveType typ; Comment=comment}
  
negative.code:     /// Get the partition keys out of the parsed detailed table description
      let getPartitionKeys r = 
         [| match r with 
            | Data.DataNode("Table",d) ->
                match d.TryGet "partitionKeys" with 
                | Some (Data.List d2) -> 
                    for v in d2 do 
                        match v with 
                        | Data.DataNode("FieldSchema",d4) -> 
                              match (d4.TryGet "name", d4.TryGet "type", defaultArg (d4.TryGet "comment") (Data.Value "")) with 
                              | Some (Data.Value nm), Some (Data.Value typ), Data.Value comment -> 
                                yield {Name=nm; Type=parseHiveType typ; Comment=comment}
  