module Network.Lastfm.API.Geo
( getEvents, getMetroArtistChart, getMetroHypeArtistChart, getMetroHypeTrackChart
, getMetroTrackChart, getMetroUniqueArtistChart, getMetroUniqueTrackChart
, getMetroWeeklyChartlist, getMetros, getTopArtists, getTopTracks
) where
import Network.Lastfm
getEvents :: Maybe Latitude
-> Maybe Longitude
-> Maybe Location
-> Maybe Distance
-> Maybe Page
-> Maybe Limit
-> APIKey
-> Lastfm Response
getEvents latitude longitude location distance page limit apiKey = callAPI
[ (#) (Method "geo.getEvents")
, (#) latitude
, (#) longitude
, (#) location
, (#) distance
, (#) page
, (#) limit
, (#) apiKey
]
getMetroArtistChart :: Country -> Metro -> Maybe Start -> Maybe End -> APIKey -> Lastfm Response
getMetroArtistChart = getMetroChart "geo.getMetroArtistChart"
getMetroHypeArtistChart :: Country -> Metro -> Maybe Start -> Maybe End -> APIKey -> Lastfm Response
getMetroHypeArtistChart = getMetroChart "geo.getMetroHypeArtistChart"
getMetroHypeTrackChart :: Country -> Metro -> Maybe Start -> Maybe End -> APIKey -> Lastfm Response
getMetroHypeTrackChart = getMetroChart "geo.getMetroHypeTrackChart"
getMetroTrackChart :: Country -> Metro -> Maybe Start -> Maybe End -> APIKey -> Lastfm Response
getMetroTrackChart = getMetroChart "geo.getMetroTrackChart"
getMetroUniqueArtistChart :: Country -> Metro -> Maybe Start -> Maybe End -> APIKey -> Lastfm Response
getMetroUniqueArtistChart = getMetroChart "geo.getMetroUniqueArtistChart"
getMetroUniqueTrackChart :: Country -> Metro -> Maybe Start -> Maybe End -> APIKey -> Lastfm Response
getMetroUniqueTrackChart = getMetroChart "geo.getMetroUniqueTrackChart"
getMetroWeeklyChartlist :: Metro -> APIKey -> Lastfm Response
getMetroWeeklyChartlist metro apiKey = callAPI
[ (#) (Method "geo.getMetroWeeklyChartlist")
, (#) metro
, (#) apiKey
]
getMetros :: Maybe Country -> APIKey -> Lastfm Response
getMetros country apiKey = callAPI
[ (#) (Method "geo.getMetros")
, (#) country
, (#) apiKey
]
getTopArtists :: Country -> Maybe Page -> Maybe Limit -> APIKey -> Lastfm Response
getTopArtists country page limit apiKey = callAPI
[ (#) (Method "geo.getTopArtists")
, (#) country
, (#) page
, (#) limit
, (#) apiKey
]
getTopTracks :: Country -> Maybe Location -> Maybe Page -> Maybe Limit -> APIKey -> Lastfm Response
getTopTracks country location page limit apiKey = callAPI
[ (#) (Method "geo.getTopTracks")
, (#) country
, (#) location
, (#) page
, (#) limit
, (#) apiKey
]
getMetroChart :: String -> Country -> Metro -> Maybe Start -> Maybe End -> APIKey -> Lastfm Response
getMetroChart method country metro start end apiKey = callAPI
[ (#) (Method method)
, (#) country
, (#) metro
, (#) start
, (#) end
, (#) apiKey
]