diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md index 14dd334..cf6e5e8 100644 --- a/RELEASE_NOTES.md +++ b/RELEASE_NOTES.md @@ -1,6 +1,6 @@ # Release Notes -## 0.16.6 - 2018-12-15 +## 0.16.8 - 2018-12-15 * Update to ASP.NET 2.2 ## 0.15.11 - 2018-11-05 diff --git a/src/Client/ReleaseNotes.fs b/src/Client/ReleaseNotes.fs index dbe07bd..db6854b 100644 --- a/src/Client/ReleaseNotes.fs +++ b/src/Client/ReleaseNotes.fs @@ -1,13 +1,13 @@ module internal ReleaseNotes -let Version = "0.16.6" +let Version = "0.16.8" let IsPrerelease = false let Notes = """ # Release Notes -## 0.16.6 - 2018-12-15 +## 0.16.8 - 2018-12-15 * Update to ASP.NET 2.2 ## 0.15.11 - 2018-11-05 diff --git a/src/Server/Server.fs b/src/Server/Server.fs index 25df5b3..2984219 100644 --- a/src/Server/Server.fs +++ b/src/Server/Server.fs @@ -150,14 +150,19 @@ let discoverYoutubeLink (youtubeURL:string) = task { proc.StartInfo <- startInfo proc.Start() |> ignore + while not proc.StandardOutput.EndOfStream do let! line = proc.StandardOutput.ReadLineAsync() lines.Add line + while not proc.StandardError.EndOfStream do + let! line = proc.StandardError.ReadLineAsync() + lines.Add line + let lines = Seq.toArray lines let links = lines - |> Array.filter (fun x -> x.Contains "&mime=audio") + // |> Array.filter (fun x -> x.Contains "&mime=audio") return youtubeURL,links }