From ce1ac2937c37ea7c594e0f08b4419857670d8739 Mon Sep 17 00:00:00 2001 From: Steffen Forkmann Date: Fri, 28 Jun 2019 13:24:59 +0200 Subject: [PATCH] Bumping version to 1.4.10 --- 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 faddbcd..ce5ccab 100644 --- a/RELEASE_NOTES.md +++ b/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 diff --git a/src/Client/ReleaseNotes.fs b/src/Client/ReleaseNotes.fs index eacd57b..47dfd88 100644 --- a/src/Client/ReleaseNotes.fs +++ b/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 diff --git a/src/PiServer/Elmish.Audio.fs b/src/PiServer/Elmish.Audio.fs index 86be690..b9ef2a1 100644 --- a/src/PiServer/Elmish.Audio.fs +++ b/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