+14 -1

src/Applications/UI/Tracks.elm

reviewed

··· 93 93 ) 94 94 95 95 ScrollToNowPlaying -> 96 96 - case model.nowPlaying of 96 96 + let 97 97 + -- The index identifier might be out-of-date, 98 98 + -- so we get the latest version. 99 99 + it = 100 100 + model.nowPlaying 101 101 + |> Maybe.map (Tuple.second >> .id) 102 102 + |> Maybe.andThen 103 103 + (\id -> 104 104 + List.find 105 105 + (Tuple.second >> .id >> (==) id) 106 106 + model.collection.harvested 107 107 + ) 108 108 + in 109 109 + case it of 97 110 Just identifiedTrack -> 98 111 case model.scene of 99 112 List ->

+1 -1

src/Library/Tracks/Collection/Internal/Harvest.elm

reviewed

··· 68 68 else 69 69 identity 70 70 ) 71 71 - |> List.indexedMap (\idx tup -> Tuple.mapFirst (\i -> { i | indexInList = idx }) tup) 71 71 + |> List.indexedMap (\idx -> Tuple.mapFirst (\i -> { i | indexInList = idx })) 72 72 |> (\h -> { collection | harvested = h }) 73 73 |> (\c -> ( deps, c )) 74 74