Fix sort videos

This commit is contained in:
Thomas Forgione 2020-10-04 23:13:38 +02:00
parent af6afdc1dc
commit 8176884124
1 changed files with 5 additions and 4 deletions

View File

@ -77,14 +77,14 @@ videoMiniatureUrl video =
video.url ++ "miniature-050.png"
sortPlaylist : Playlist -> Playlist
sortPlaylist playlist =
{ playlist | videos = List.sort playlist.videos |> List.reverse }
sortPlaylistWithVideos : PlaylistWithVideos -> PlaylistWithVideos
sortPlaylistWithVideos playlist =
{ playlist | videos = List.sortBy .url playlist.videos |> List.reverse }
sortPlaylists : List Playlist -> List Playlist
sortPlaylists playlists =
List.sortBy .url (List.map sortPlaylist playlists) |> List.reverse
List.sortBy .url playlists |> List.reverse
fetchPlaylists : Task x ( List Playlist, Time.Zone )
@ -127,6 +127,7 @@ fetchPlaylistWithVideos name =
fetchPlaylistVideoPaths name
|> Task.andThen (\c -> fetchVideos name c)
|> Task.map (PlaylistWithVideos name a)
|> Task.map sortPlaylistWithVideos
)