anchor.diff:    allParameters
     |> separated " "
   
  -
  +/// Execute the MAGE tool. Adds some parameters, dependent on the MAGE command
   let mageCall (action : MageCall) (mp : MageParams) =
     let magePath = mp.ToolsPath @@ "mage.exe"
     let call =
  
positive.code:       info.Arguments <- args) System.TimeSpan.MaxValue
    if result <> 0 then failwithf "Error during mage call "
  
  let MageCreateApp (mp : MageParams) =
    mageCall NewApp mp
  
  let MageUpdateApp (mp : MageParams) =
    mageCall UpdateApp mp
  
  let MageSignManifest (mp : MageParams) =
    mageCall Sign mp
  
  let MageDeployApp (mp : MageParams) =
    mageCall Deploy mp
  
  let MageUpdateDeploy (mp : MageParams) =
    mageCall UpdateDeploy mp
  
  let MageSignDeploy (mp : MageParams) =
    mageCall SignDeploy mp
  
  let MageRun (mp : MageParams) =
    traceStartTask "Mage-Tool" mp.ApplicationFile
    MageCreateApp mp
  
negative.code:     ProviderURL : string 
      SupportURL : string option}
  
  /// Convert the parameter structure into command line arguments of MAGE
  let MageSerializeParams (action: MageCall) (mp : MageParams) =
    let processorStr =
      match mp.Processor with
      | MSIL -> "msil"
      | X86 -> "x86"
      | IA64 -> "ia64"
      | AMD64 -> "amd64"
    
    let processor = "-p " + processorStr
    let name = if isNullOrEmpty mp.Name then "" else "-n \"" + mp.Name + "\""
  