Bumping version to 1.0.6

forki · Dec 21, 2018 · 2803e3e · 2803e3e
1 parent f04ee57
commit 2803e3e
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 3 deletions.
diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md
@@ -1,6 +1,6 @@
 # Release Notes
 
-## 1.0.5 - 2018-12-21
+## 1.0.6 - 2018-12-21
 * Christmas edition
 
 ## 0.16.25 - 2018-12-18

diff --git a/src/Client/ReleaseNotes.fs b/src/Client/ReleaseNotes.fs
@@ -1,13 +1,13 @@
 module internal ReleaseNotes
 
-let Version = "1.0.5"
+let Version = "1.0.6"
 
 let IsPrerelease = false
 
 let Notes = """
 # Release Notes
 
-## 1.0.5 - 2018-12-21
+## 1.0.6 - 2018-12-21
 * Christmas edition
 
 ## 0.16.25 - 2018-12-18

diff --git a/src/Server/Server.fs b/src/Server/Server.fs
@@ -199,6 +199,18 @@ let youtubeEndpoint =
     pipeline {
         set_header "Content-Type" "application/json"
         plug (fun next ctx -> task {
+
+            let! tags = getAllTags()
+            for tag in tags do
+                match tag.Action with
+                | TagAction.PlayYoutube url ->
+                    let! _,urls = discoverYoutubeLink url
+                    let urls =
+                        urls
+                        |> Array.filter (fun x -> x.Contains "&mime=audio")
+                    let! _ = saveLinks tag urls
+                    ()
+                | _ -> ()
             let! _,urls = discoverYoutubeLink "https://www.youtube.com/watch?v=DeTePthFfDY"
             let txt = sprintf "%A" urls
             return! setBodyFromString txt next ctx
@@ -261,4 +273,6 @@ let discoverTask = task {
     return ()
 }
 
+discoverTask.Start()
+
 run app