From 7b33617f83996ff576599aa9233c0e6433f402bd Mon Sep 17 00:00:00 2001 From: Steven Vandevelde Date: Thu, 21 Feb 2019 12:34:20 +0100 Subject: [PATCH] Add missing reply --- src/Applications/UI/UserData.elm | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/Applications/UI/UserData.elm b/src/Applications/UI/UserData.elm index eb147d26..06d8a920 100644 --- a/src/Applications/UI/UserData.elm +++ b/src/Applications/UI/UserData.elm @@ -1,6 +1,7 @@ module UI.UserData exposing (encodedFavourites, encodedSources, encodedTracks, exportEnclosed, importEnclosed, importHypaethral) import Authentication exposing (..) +import Common exposing (Switch(..)) import Json.Decode as Json import Json.Decode.Pipeline exposing (..) import Json.Encode @@ -90,12 +91,21 @@ importTracks model data = , enabledSourceIds = Sources.enabledSourceIds data.sources , favourites = data.favourites } + + addReplyIfNecessary = + case model.searchTerm of + Just _ -> + identity + + Nothing -> + N5.addReply (UI.ToggleLoadingScreen Off) in adjustedModel |> Tracks.makeParcel |> Tracks.identify |> Tracks.resolveParcel adjustedModel |> N5.andThen3 (Tracks.update Tracks.Search) + |> addReplyIfNecessary -- 2.51.2