Bumping version to 0.0.26

RELEASE_NOTES.md

@@ -1,5 +1,5 @@
 # Release Notes
 
-## 0.0.25 - 2018-10-05
+## 0.0.26 - 2018-10-05
 
 * Initial release

build.fsx

@@ -162,7 +162,8 @@ Target.create "BundleClient" (fun _ ->
 
     !! (piServerPath </> "*.js") |> Shell.copyFiles piDeployDir
     let targetNodeModules = piDeployDir </> "node_modules"
-    Shell.cleanDirs [targetNodeModules]
+    let audioTarget = deployDir </> "audio"
+    Shell.cleanDirs [targetNodeModules; audioTarget]
     Shell.copyRecursive (piServerPath </> "node_modules") targetNodeModules true |> ignore
 
     System.IO.Compression.ZipFile.CreateFromDirectory(piDeployDir, currentFirmware)
@@ -171,6 +172,8 @@ Target.create "BundleClient" (fun _ ->
     let jsDir = clientDir </> "js"
     let imageDir = clientDir </> "Images"
 
+    Shell.copyRecursive "audio" audioTarget true |> ignore
+    Directory.delete (audioTarget </> "custom")
     !! "src/Client/public/**/*.*" |> Shell.copyFiles publicDir
     !! "src/Client/js/**/*.*" |> Shell.copyFiles jsDir
     !! "src/Client/Images/**/*.*" |> Shell.copyFiles imageDir

src/Client/ReleaseNotes.fs

@@ -1,13 +1,13 @@
 module internal ReleaseNotes
 
-let Version = "0.0.25"
+let Version = "0.0.26"
 
 let IsPrerelease = false
 
 let Notes = """
 # Release Notes
 
-## 0.0.25 - 2018-10-05
+## 0.0.26 - 2018-10-05
 
 * Initial release
 """

src/PiServer/PiServer.fs

@@ -46,6 +46,8 @@ let stop (nodeServices : INodeServices) = task {
         return r
 }
 
+let mutable currentTask = null
+
 let executeAction (nodeServices : INodeServices) (action:TagAction) =
     match action with
     | TagAction.UnknownTag -> 
@@ -59,8 +61,8 @@ let executeAction (nodeServices : INodeServices) (action:TagAction) =
         }
     | TagAction.PlayMusik url -> 
         task {
-            let! _ = stop nodeServices
-            play nodeServices url |> ignore
+            let! r = stop nodeServices
+            currentTask <- play nodeServices url
             return (sprintf "Playing %s" url)
         }