anchor.diff:  module Fake.MSIHelper
   
   open System
  -open System.IO
   
   type MSIParams =
       { ToolPath: string
         WorkingDir:string
         LogFile:string
  +      ThrowIfSetupFails: bool;
         TimeOut: TimeSpan}
   
   /// MSI default params  
  
positive.code:     { ToolPath = "msiexec "
        WorkingDir = "."
        LogFile = "InstallLog.txt"
        TimeOut = TimeSpan.FromMinutes 5. }
  
  let Install setParams setup = 
  
negative.code:     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) && parameters.ThrowIfSetupFails 
      then
          failwith "MSI-Install failed."
                    
  