Bumping version to 1.4.10

Author: forki

RELEASE_NOTES.md

@@ -1,6 +1,6 @@
 # Release Notes
 
-## 1.4.9 - 2019-06-28
+## 1.4.10 - 2019-06-28
 * Update deps
 * Use --self-contained for Firmware
 * Hook into view

src/Client/ReleaseNotes.fs

@@ -1,13 +1,13 @@
 module internal ReleaseNotes
 
-let Version = "1.4.9"
+let Version = "1.4.10"
 
 let IsPrerelease = false
 
 let Notes = """
 # Release Notes
 
-## 1.4.9 - 2019-06-28
+## 1.4.10 - 2019-06-28
 * Update deps
 * Use --self-contained for Firmware
 * Hook into view

src/PiServer/Elmish.Audio.fs

@@ -74,8 +74,8 @@ module Program =
                     with _ -> ()
         }
 
-        let mapView view model dispatch =
-            let (v:Audio) = view model dispatch
+        let mapSetState setState model dispatch =
+            let (v:Audio) = Program.view program model dispatch
             match lastView with
             | Some r when r = v -> ()
             | Some r ->
@@ -96,7 +96,7 @@ module Program =
                 | _ -> ()
 
             lastView <- Some v
-            v
+            setState model dispatch
 
         program
-        |> Program.map id id mapView id id
+        |> Program.map id id id mapSetState id