module Flickr.Groups.Pools where
import Flickr.Monad
import Flickr.Types
import Flickr.Types.Import
import Control.Monad ( liftM )
add :: PhotoID -> GroupID -> FM ()
add pid gid = withWritePerm $ postMethod $ do
flickCall_ "flickr.groups.pools.add"
[ ("photo_id", pid)
, ("group_id", gid)
]
getContext :: PhotoID -> GroupID -> FM (Photo,Photo)
getContext pid gid =
flickTranslate toPhotoPair $
flickrCall "flickr.groups.pools.getContext"
[ ("photo_id", pid)
, ("group_id", gid)
]
getGroups :: FM [Group]
getGroups =
flickTranslate toGroupList $
flickrCall "flickr.groups.pools.getGroups"
[]
getPhotos :: GroupID -> [Tag] -> Maybe UserID -> [PhotoInfo] -> FM [Photo]
getPhotos gid ts uid ps = liftM snd $
flickTranslate toPhotoList $
flickrCall "flickr.groups.Pools.getPhotos"
(lsArg "tags" ts $
mbArg "user_id" uid $
lsArg "extras" (map show ps)
[ ("group_id", gid) ])
remove :: PhotoID -> GroupID -> FM ()
remove pid gid = withWritePerm $ postMethod $
flickCall_ "flickr.groups.pools.remove"
[ ("photo_id", pid)
, ("group_id", gid)
]