From 081ffce5929240505b4755210d91eb7d26472d3e Mon Sep 17 00:00:00 2001
From: Tom Keyser <tkeyser@boomtownroi.com>
Date: Tue, 20 Jan 2015 12:46:52 -0500
Subject: [PATCH] adding SpecificMachines option to OctoTools

---
 src/app/FakeLib/OctoTools.fs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/app/FakeLib/OctoTools.fs b/src/app/FakeLib/OctoTools.fs
index beee19c608c..0fea5d99d62 100644
--- a/src/app/FakeLib/OctoTools.fs
+++ b/src/app/FakeLib/OctoTools.fs
@@ -29,7 +29,8 @@ type DeployReleaseOptions = {
     Force                       : bool
     WaitForDeployment           : bool
     DeploymentTimeout           : TimeSpan option
-    DeploymentCheckSleepCycle   : TimeSpan option }
+    DeploymentCheckSleepCycle   : TimeSpan option
+    SpecificMachines            : string option }
 
 /// Options for deleting a range of releases in a project
 type DeleteReleaseOptions = {
@@ -66,7 +67,7 @@ let releaseOptions = {
 /// Default options for 'DeployRelease'
 let deployOptions = {
     Project = ""; DeployTo = ""; Version = ""; Force = false; WaitForDeployment = false; 
-    DeploymentTimeout = None; DeploymentCheckSleepCycle = None }
+    DeploymentTimeout = None; DeploymentCheckSleepCycle = None; SpecificMachines = None }
 
 /// Default options for 'DeleteReleases'
 let deleteOptions = { 
@@ -119,7 +120,8 @@ let deployCommandLine (opts:DeployReleaseOptions) =
       (flag "force" opts.Force)
       (flag "waitfordeployment" opts.WaitForDeployment)
       (optionalObjParam "deploymenttimeout" opts.DeploymentTimeout)
-      (optionalObjParam "deploymentchecksleepcycle" opts.DeploymentCheckSleepCycle) ] 
+      (optionalObjParam "deploymentchecksleepcycle" opts.DeploymentCheckSleepCycle)
+      (optionalStringParam "specificmachines" opts.SpecificMachines) ] 
     |> List.fold (+) ""
 
 /// [omit]