+8 -6

src/App/Tracks/Collection/Internal.elm

reviewed

··· 46 46 identify : Parcel -> Parcel 47 47 identify ( model, collection ) = 48 48 let 49 49 + enabledOnly = 50 50 + List.filter 51 51 + (\t -> List.member t.sourceId model.enabledSourceIds) 52 52 + collection.untouched 53 53 + 49 54 ( identifiedUnsorted, missingFavourites ) = 50 55 List.foldl 51 56 (identifier model.favourites model.activeTrackId) 52 57 ( [], model.favourites ) 53 53 - collection.untouched 58 58 + enabledOnly 54 59 in 55 60 identifiedUnsorted 56 61 |> List.append (List.map makeMissingFavouriteTrack missingFavourites) ··· 149 154 collection.identified 150 155 151 156 filters = 152 152 - [ -- Enabled sources only 153 153 - Tuple.second >> .sourceId >> (\id -> List.member id model.enabledSourceIds) 154 154 - 155 155 - -- Favourites / Missing 156 156 - , if model.favouritesOnly then 157 157 + [ -- Favourites / Missing 158 158 + if model.favouritesOnly then 157 159 Tuple.first >> .isFavourite >> (==) True 158 160 else 159 161 Tuple.first >> .isMissing >> (==) False

+1 -1

src/App/Tracks/State.elm

reviewed

··· 88 88 model 89 89 |> (\m -> { m | enabledSourceIds = ids }) 90 90 |> Collection.makeParcel 91 91 - |> Collection.reharvest 91 91 + |> Collection.reidentify 92 92 |> Collection.set 93 93 94 94 -- # Sort