diff --git a/src/deploy.web/Fake.Deploy.Web/Modules/Api.Package.fs b/src/deploy.web/Fake.Deploy.Web/Modules/Api.Package.fs index dbce2e1952d..50f59f2a3cc 100644 --- a/src/deploy.web/Fake.Deploy.Web/Modules/Api.Package.fs +++ b/src/deploy.web/Fake.Deploy.Web/Modules/Api.Package.fs @@ -22,17 +22,6 @@ type ApiPackage (dataProvider : IDataProvider) as http = let packageTemp = Path.Combine(appdata.FullName, "Package_Temp") - let deploy packageFileName agent = - let toStr (msgs:seq) = - msgs |> Seq.map(fun msg -> sprintf "%s: %s" (msg.Timestamp.ToString("yyyy-MM-dd HH:mm:ss")) msg.Message ) - - let url = Uri(agent.Address, "/fake/") - let response = postDeploymentPackage url.AbsoluteUri packageFileName [||] - match response with - | Failure x -> { Agent = agent.Name; Messages = toStr x.Messages; Success = not <| x.IsError; Error = x.Exception.ToString() } - | Success x -> { Agent = agent.Name; Messages = toStr x.Messages; Success = not <| x.IsError; Error = "" } - | _ -> { Agent = agent.Name; Messages = []; Success = false; Error = "Unexpected response from agent" } - do http.post "/rollback" (fun p -> let body = http.Bind()