anchor.diff:      | None ->
           let parseResult = parseSchemaItem item false
           match parseResult with
  -        | SchemaParseResult.Name -> 
  -            makeUnique item, None
  +        | SchemaParseResult.Name name -> 
  +            makeUnique name, None
           | SchemaParseResult.NameAndUnit (name, unit) -> 
               // store the original header because the inferred type might not support units of measure
               (makeUnique item) + "\n" + (makeUnique name), Some unit
  
positive.code: // Compiled regex is not supported in Silverlight
  let private regexOptions = 
  #if FX_NO_REGEX_COMPILATION
    RegexOptions.None
  #else
    RegexOptions.Compiled
  #endif
  let private nameAndTypeRegex = new Regex(@"^(?<name>.+)\((?<type>.+)\)$", regexOptions)
  let private typeAndUnitRegex = new Regex(@"^(?<type>.+)<(?<unit>.+)>$", regexOptions)
  let private overrideByNameRegex = new Regex(@"^(?<name>.+)=(?<type>.+)$", regexOptions)
    
  [<RequireQualifiedAccess>]
  type private SchemaParseResult =
    | Name
    | NameAndUnit of string * Type
    | Full of PrimitiveInferedProperty
    | FullByName of PrimitiveInferedProperty
  
  let private asOption = function true, x -> Some x | false, _ -> None
  
  
negative.code:           | _ -> 
                PrimitiveInferedProperty.Create(field.Name.Split('\n').[0], typeof<string>, preferOptionals) )
            
    | _ -> failwithf "inferFields: Expected record type, got %A" inferedType
  