From 71afb9f1e6d7b0cf44d7da00f28ad3003b5738b6 Mon Sep 17 00:00:00 2001 From: Steffen Forkmann Date: Fri, 28 Jun 2019 15:46:21 +0200 Subject: [PATCH] Bumping version to 1.4.15 --- RELEASE_NOTES.md | 2 +- src/Client/ReleaseNotes.fs | 4 ++-- src/PiServer/Elmish.Audio.fs | 8 ++++---- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md index adf9153..5f64aad 100644 --- 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 index 0a92e15..59cbeac 100644 --- 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 index b9ef2a1..86be690 100644 --- 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