anchor.diff:      | Direction of string
       | Repeat of int
       | Link of string
  -    | Compile of string
  +    | Compile of bool
   with
       interface IArgParserTemplate with
           member s.Usage = 
  
positive.code:     | ToLower "up" -> Up
      | ToLower "down" -> Down
      | _ -> failwith "invalid direction specified"
  
  let private parseCompile s =
      match s with
      | ToLower "true" -> true
      | ToLower "false" -> false
      | _ -> failwith "invalid compilation option"
  
  let private parser = UnionArgParser.Create<Args>()
  
  
negative.code:             | Repeat _ -> "movefile -- specify the distance [default: 1]"
              | FrameworkVersion _ -> "init-- specify the framework version (4.0|4.5|4.5.1) [default: 4.5]"
              | Link _ -> "addfile -- specify an optional Link attribute"
              | Compile _ -> "addfile -- should the file be compiled or not  [default: true]"
  
  let private templateArg (res : ArgParseResults<Args>) =
      match res.TryGetResult(<@ Template @>) with
  