anchor.diff:          parser { let! _ = char '{'
                    let! rest = zeroOrMoreSep recordField ',' 
                    let! _ = char '}'
  -                 return Data.Node("Record",dict rest) }
  +                 return Data.DataNode("Record",dict rest) }
   
       /// Parse a {...a=b...} field
       and recordField = 
  
positive.code:     /// Get the 'comment' field out of the parsed detailed table description
      let getComment r = 
          match r with 
          | Data.Node("Table",d) ->
              match d.TryGet "parameters" with 
              | Some (Data.Node(_,d2)) ->
                  match d2.TryGet "comment" with 
                  | Some (Data.Value comment) -> comment
                  | _ ->  ""
  
negative.code:     /// Get the getFields out of the parsed detailed table description
      let getFields r = 
         [| match r with 
            | Data.DataNode("Table",d) ->
                match d.["sd"] with 
                | Data.DataNode("StorageDescriptor",d2) ->
                   match d2.TryGet "cols" with 
                   | Some (Data.List cols) ->
                     for col in cols do 
                         match col 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}
  