From b67331e9eb05bed36eb6c0b8ab469590d86d9f3c Mon Sep 17 00:00:00 2001 From: Steffen Forkmann Date: Sat, 15 Dec 2018 11:51:53 +0100 Subject: [PATCH] Bumping version to 0.16.8 --- RELEASE_NOTES.md | 2 +- src/Client/ReleaseNotes.fs | 4 ++-- src/Server/Server.fs | 7 ++++++- 3 files changed, 9 insertions(+), 4 deletions(-) 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 }