anchor.diff:                  } 
               ) |> Async.Parallel
           task |> Async.RunSynchronously |> ignore
  -
       | Origin.GitHubLink, Constants.FullProjectSourceFileName ->  
           tracefn "Downloading %O to %s" remoteFile destination
           let fi = FileInfo(destination)
  
positive.code:                     msg |> Seq.iter (tracefn "%s")
              with 
              | exn -> failwithf "Could not run \"%s\".\r\nError: %s" tCommand exn.Message
  
              
      | Origin.GistLink, Constants.FullProjectSourceFileName ->
          tracefn "Downloading %O to %s" remoteFile destination
          let fi = FileInfo(destination)
  
negative.code:         match Path.GetExtension(destination).ToLowerInvariant() with
          | ".zip" ->
              let targetFolder = FileInfo(destination).Directory
              if not targetFolder.Exists then
                  targetFolder.Create()
  
              do! downloadFromUrl(authentication, url) destination
              ZipFile.ExtractToDirectory(destination, targetFolder.FullName)
  