anchor.diff:  ///  - `server` - Ftp Server name (ex: "ftp://10.100.200.300:21/")
   ///  - `user` - Ftp Server login name (ex: "joebloggs")
   ///  - `pwd` - Ftp Server login password (ex: "J0Eblogg5")
  -let rec uploadAFolder server user pwd (srcPath:string) (rootDir:string) = 
  +let rec uploadAFolder server user pwd (srcPath : string) (rootDir : string) = 
       logfn "folder to upload=%s" srcPath
       let dirInfo = new DirectoryInfo(srcPath)
  -    if dirInfo.Exists && dirNameIsValid rootDir
  -    then dirInfo.GetFileSystemInfos () |> Seq.iter (fun fsi -> upload server user pwd fsi rootDir)
  +    if dirInfo.Exists && dirNameIsValid rootDir then 
  +        dirInfo.GetFileSystemInfos() |> Seq.iter (fun fsi -> upload server user pwd fsi rootDir)
   
  -and private upload server user pwd (fsi:FileSystemInfo) (rootDir:string) =
  +and private upload server user pwd (fsi : FileSystemInfo) (rootDir : string) = 
       match fsi.GetType().ToString() with
  -        | "System.IO.DirectoryInfo" -> createAFolder server user pwd rootDir 
  -                                       createAFolder server user pwd (sprintf "%s\\%s" rootDir fsi.Name) 
  -                                       uploadAFolder server user pwd fsi.FullName (sprintf "%s\\%s" rootDir fsi.Name)
  -        | "System.IO.FileInfo" -> uploadAFile server user pwd (sprintf "%s\\%s" rootDir fsi.Name) fsi.FullName
  -        | _ -> logfn "unknown object found at %A" fsi
  -
  +    | "System.IO.DirectoryInfo" -> 
  +        createAFolder server user pwd rootDir
  +        createAFolder server user pwd (sprintf "%s\\%s" rootDir fsi.Name)
  +        uploadAFolder server user pwd fsi.FullName (sprintf "%s\\%s" rootDir fsi.Name)
  +    | "System.IO.FileInfo" -> uploadAFile server user pwd (sprintf "%s\\%s" rootDir fsi.Name) fsi.FullName
  +    | _ -> logfn "unknown object found at %A" fsi
  
positive.code: ///  - `server` - Ftp Server name (ex: "ftp://10.100.200.300:21/")
  ///  - `user` - Ftp Server login name (ex: "joebloggs")
  ///  - `pwd` - Ftp Server login password (ex: "J0Eblogg5")
  let isFolderPresent server user pwd (destPath:string) =
      destPath |> lastSlashPos |> destPath.Substring |> checkInExistingDirList server user pwd destPath
  
  /// Creates a matching folder in ftp folder, if not already present
  /// ## Parameters
  
negative.code: /// Uses `Passive Mode` FTP and handles all files as binary (and not ASCII)
  /// Assumes direct network connectivity to destination Ftp server (not via a proxy)
  /// Does not support FTPS and SFTP
  module Fake.FtpHelper
  
  open System
  