diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md index ab7954e..be95494 100644 --- a/RELEASE_NOTES.md +++ b/RELEASE_NOTES.md @@ -1,5 +1,9 @@ # Release Notes +## 0.1.0 - 2018-10-05 + +* Stream from Azure Blob Storage + ## 0.0.37 - 2018-10-05 * Initial release \ No newline at end of file diff --git a/src/Client/ReleaseNotes.fs b/src/Client/ReleaseNotes.fs index 09a72f0..83d719d 100644 --- a/src/Client/ReleaseNotes.fs +++ b/src/Client/ReleaseNotes.fs @@ -1,12 +1,16 @@ module internal ReleaseNotes -let Version = "0.0.37" +let Version = "0.1.0" let IsPrerelease = false let Notes = """ # Release Notes +## 0.1.0 - 2018-10-05 + +* Stream from Azure Blob Storage + ## 0.0.37 - 2018-10-05 * Initial release diff --git a/src/PiServer/PiServer.fs b/src/PiServer/PiServer.fs index 9516528..6afa50c 100644 --- a/src/PiServer/PiServer.fs +++ b/src/PiServer/PiServer.fs @@ -70,7 +70,7 @@ let executeAction (nodeServices : INodeServices) (action:TagAction) = | TagAction.PlayBlobMusik guid -> task { let! r = stop nodeServices - let url = sprintf "%s/audio/%O" tagServer guid + let url = sprintf "%s/api/audio/%O" tagServer guid currentTask <- play nodeServices url return (sprintf "Playing %s" url) } diff --git a/src/Server/Server.fs b/src/Server/Server.fs index 07fc04c..7c0cb4e 100644 --- a/src/Server/Server.fs +++ b/src/Server/Server.fs @@ -46,7 +46,6 @@ let blobMusikEndpoint mediaID = let blobClient = connection.CreateCloudBlobClient() let mediaContainer = blobClient.GetContainerReference("media") let! _x = mediaContainer.CreateIfNotExistsAsync() - let blockBlob = mediaContainer.GetBlockBlobReference(mediaID) use stream = new MemoryStream() do! blockBlob.DownloadToStreamAsync(stream) @@ -75,7 +74,7 @@ let startupEndpoint = pipeline { set_header "Content-Type" "application/json" plug (fun next ctx -> task { - let actions = [TagAction.PlayMusik (sprintf @"%s/%s" URLs.mp3Server "d97cdddb-8a19-4690-8ba5-b8ea43d3641f")] + let actions = [TagAction.PlayBlobMusik (System.Guid "d97cdddb-8a19-4690-8ba5-b8ea43d3641f")] let txt = actions