anchor.diff:      if not (execProcess3 (fun info ->  
           info.FileName <- parameters.ToolPath
           info.WorkingDirectory <- parameters.WorkingDir
  -        info.Arguments <- sprintf "/qb /l* %s /i %s" parameters.LogFile setup) parameters.TimeOut)
  +        info.Arguments <- sprintf "/qb /l* %s /i %s" parameters.LogFile setup) parameters.TimeOut) && parameters.ThrowIfSetupFails 
       then
           failwith "MSI-Install failed."
                     
  
positive.code:     if not (execProcess3 (fun info ->  
          info.FileName <- parameters.ToolPath
          info.WorkingDirectory <- parameters.WorkingDir
          info.Arguments <- sprintf "/qb /l* %s /x %s" parameters.LogFile setup) parameters.TimeOut)
      then
          failwith "MSI-Uninstall failed."
                    
  
negative.code: module Fake.MSIHelper
  
  open System
  
  type MSIParams =
      { ToolPath: string
        WorkingDir:string
        LogFile:string
        ThrowIfSetupFails: bool;
        TimeOut: TimeSpan}
  
  /// MSI default params  
  