module Network.Lastfm.API.Group
( getHype, getMembers, getWeeklyChartList, getWeeklyAlbumChart, getWeeklyArtistChart, getWeeklyTrackChart
) where
import Network.Lastfm
getHype :: Group -> APIKey -> Lastfm Response
getHype group apiKey = callAPI
[ (#) (Method "group.getHype")
, (#) group
, (#) apiKey
]
getMembers :: Group -> Maybe Page -> Maybe Limit -> APIKey -> Lastfm Response
getMembers group page limit apiKey = callAPI
[ (#) (Method "group.getMembers")
, (#) group
, (#) page
, (#) limit
, (#) apiKey
]
getWeeklyChartList :: Group -> APIKey -> Lastfm Response
getWeeklyChartList group apiKey = callAPI
[ (#) (Method "group.getWeeklyChartList")
, (#) group
, (#) apiKey
]
getWeeklyAlbumChart :: Group -> Maybe From -> Maybe To -> APIKey -> Lastfm Response
getWeeklyAlbumChart group from to apiKey = callAPI
[ (#) (Method "group.getWeeklyAlbumChart")
, (#) group
, (#) from
, (#) to
, (#) apiKey
]
getWeeklyArtistChart :: Group -> Maybe From -> Maybe To -> APIKey -> Lastfm Response
getWeeklyArtistChart group from to apiKey = callAPI
[ (#) (Method "group.getWeeklyArtistChart")
, (#) group
, (#) from
, (#) to
, (#) apiKey
]
getWeeklyTrackChart :: Group -> Maybe From -> Maybe To -> APIKey -> Lastfm Response
getWeeklyTrackChart group from to apiKey = callAPI
[ (#) (Method "group.getWeeklyTrackChart")
, (#) group
, (#) from
, (#) to
, (#) apiKey
]