tforgione
/
elm-twitch
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Twitch.elm
View File

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