Bumping version to 1.4.15

forki · Jun 28, 2019 · 71afb9f · 71afb9f
1 parent ab1bd5f
commit 71afb9f
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 7 deletions.
diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md
@@ -1,6 +1,6 @@
 # Release Notes
 
-## 1.4.14 - 2019-06-28
+## 1.4.15 - 2019-06-28
 * Update deps
 * Use --self-contained for Firmware
 * Hook into view

diff --git a/src/Client/ReleaseNotes.fs b/src/Client/ReleaseNotes.fs
@@ -1,13 +1,13 @@
 module internal ReleaseNotes
 
-let Version = "1.4.14"
+let Version = "1.4.15"
 
 let IsPrerelease = false
 
 let Notes = """
 # Release Notes
 
-## 1.4.14 - 2019-06-28
+## 1.4.15 - 2019-06-28
 * Update deps
 * Use --self-contained for Firmware
 * Hook into view

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