anchor.diff:        TimeOut = TimeSpan.FromMinutes 5.
         Version = null
         ReleaseNotes = null
  +      BuildConfig = null
  +      TemplateFile = null
         WorkingDir = "."
         OutputPath = "./temp" }
   
  
positive.code:       TimeOut : TimeSpan
        Version : string
        ReleaseNotes : string
        WorkingDir : string
        OutputPath : string }
  
  
negative.code: 
      let version = if String.IsNullOrWhiteSpace parameters.Version then "" else " version " + toParam parameters.Version
      let releaseNotes = if String.IsNullOrWhiteSpace parameters.ReleaseNotes then "" else " releaseNotes " + toParam (xmlEncode parameters.ReleaseNotes)
      let buildConfig = if String.IsNullOrWhiteSpace parameters.BuildConfig then "" else " buildconfig " + toParam parameters.BuildConfig
      let templateFile = if String.IsNullOrWhiteSpace parameters.TemplateFile then "" else " templatefile " + toParam parameters.TemplateFile
        
      let packResult = 
          ExecProcess 
              (fun info -> 
              info.FileName <- parameters.ToolPath
              info.Arguments <- sprintf "pack output %s%s%s%s%s" parameters.OutputPath version releaseNotes buildConfig templateFile) parameters.TimeOut
      
      if packResult <> 0 then failwithf "Error during packing %s." parameters.WorkingDir
      traceEndTask "PaketPack" parameters.WorkingDir
  