module Flickr.Favorites where
import Flickr.Monad
import Flickr.Types
import Flickr.Types.Import
add :: PhotoID -> FM ()
add pid = withWritePerm $ postMethod $
flickCall_ "flickr.favorites.add"
[ ("photo_id", pid) ]
remove :: PhotoID -> FM ()
remove pid = withWritePerm $ postMethod $
flickCall_ "flickr.favorites.remove"
[ ("photo_id", pid) ]
getList :: Maybe UserID
-> [PhotoInfo]
-> FM (PhotoContext, [Photo])
getList uid ps = withReadPerm $
flickTranslate toPhotoList $
flickrCall "flickr.favorites.getList"
(mbArg "user_id" uid $
lsArg "extras" (map show ps) [])
getPublicList :: UserID
-> [PhotoInfo]
-> FM (PhotoContext, [Photo])
getPublicList uid ps =
flickTranslate toPhotoList $
flickrCall "flickr.favorites.getPublicList"
(lsArg "extras" (map show ps) [("user_id", uid)])