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:             | 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 (false|true) [default: true]"
  
  let private templateArg (res : ArgParseResults<Args>) =
      match res.TryGetResult(<@ Template @>) with
  
negative.code:     | ToLower "up" -> Up
      | ToLower "down" -> Down
      | _ -> failwith "invalid direction specified"
  
  let private parser = UnionArgParser.Create<Args>()
  
  