anchor.diff:      let connString = getStringParam "cs" rh.ConnectionString
       let connStringAdmin = getStringParam "csa" rh.ConnectionStringAdmin
       let cmdTimeout = getIntParam "ct" rh.CommandTimeout
  +    let cmdTimeoutAdmin = getIntParam "ct" rh.CommandTimeoutAdmin
  +    let dbType = getStringParam "dt" rh.DatabaseType
  +    let outPath = getStringParam "o" rh.OutputPath
  +    let versionFile = getStringParam "vf" rh.VersionFile
  +    let versionXPath = getStringParam "vx" rh.VersionXPath
  +    let repoPath = getStringParam "r" rh.RepositoryPath
  +    let env = getStringParam "env" rh.Environment
  +    let customCreateScript = getStringParam "cds" rh.CustomCreateScript
  +    let restoreFilePath = getStringParam "rfp" rh.RestoreFilePath
  +    let alterFolderPath = getStringParam "ad" rh.AlterDatabaseFolderName
  +    let runAfterOtherTimeFolderPath = getStringParam "ra" rh.RunAfterOtherAnyTimeScriptsFolderName
  +    let runAfterCreateFolderPath = getStringParam "racd" rh.RunAfterCreateDatabaseFolderName
  +    let runBeforeUpFolderPath = getStringParam "rb" rh.RunBeforeUpFolderName
  +    let upFolderPath = getStringParam "u" rh.UpFolderName
  +    let runFirstAfterUpdateFolderPath = getStringParam "rf" rh.RunFirstAfterUpdateFolderName
  +    let funcFolderPath = getStringParam "fu" rh.FunctionsFolderName
  +    let viewsFolderPath = getStringParam "vw" rh.ViewsFolderName
  +    let sprocsFolderPath = getStringParam "sp" rh.SprocsFolderName
  +    let indexFolderPath = getStringParam "ix" rh.IndexesFolderName
  +    let permissionsFolderPath = getStringParam "p" rh.PermissionsFolderName
       let drop = getBoolParam "drop" rh.Drop
       let simple = getBoolParam "simple" rh.Simple
       let transaction = getBoolParam "t" rh.WithTransaction
  
positive.code:     let silent = getBoolParam "silent" rh.Silent
      let warn = getBoolParam "w" rh.WarnOnOneTimeScriptChanges
  
  
  
  /// This task to can be used to run [RoundhousE](http://projectroundhouse.org/) for database migrations.
  
negative.code: let private getStringParam k (v : string)=
      match isNullOrEmpty v with
      | true -> None
      | false -> Some (k, sprintf "\"%s\"" v) //string escape
  
  let private getBoolParam k (v : bool) =
      match v with
      | true -> Some (k, String.Empty)
      | false -> None
  
  let private getIntParam k (v : int) =
      Some(k, v.ToString())
  
  let private formatArgs args pre split delim =
      args
      |> Seq.filter Option.isSome
      |> Seq.map (function 
             | None -> ""
             | Some(k, v) -> 
                 pre + k + (if isNullOrEmpty v then ""
                            else sprintf "%s%s" split v))
      |> separated delim
  
  let private serializeArgs args =
      formatArgs args "/" "=" " "   
  
  let private getParamPairs (rh: RoundhouseParams) =
      let dbName = getStringParam "d" rh.DatabaseName
  