anchor.diff:              Init (ProjectInitData.create (path, template)) |> Success
               
           | ToLower "addfile" :: FullPath project :: FullPath file :: Options opts ->
  -            let compile = not (opts.Contains <@ Compile @>) ||
  -                          opts.PostProcessResult(<@ Compile @>, parseCompile)
  +            let compile = opts.GetResult(<@ Compile @>, true)
               AddFile { ProjPath = project
                         FilePath = file
                         Link = opts.TryGetResult <@ Link @>
  
positive.code:     | Direction of string
      | Repeat of int
      | Link of string
      | Compile of string
  with
      interface IArgParserTemplate with
          member s.Usage = 
  
negative.code:     | ToLower "up" -> Up
      | ToLower "down" -> Down
      | _ -> failwith "invalid direction specified"
  
  let private parser = UnionArgParser.Create<Args>()
  
  