Fix sort videos
This commit is contained in:
parent
af6afdc1dc
commit
8176884124
|
@ -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
|
||||
)
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue