module Flickr.Groups where
import Flickr.Monad
import Flickr.Types
import Flickr.Types.Import
browse :: Maybe CategoryID -> FM Category
browse cid = withReadPerm $
flickTranslate toCategory $
flickrCall "flickr.groups.browse"
(mbArg "cat_id" cid [])
getInfo :: GroupID -> Maybe String -> FM Group
getInfo gid lang =
flickTranslate toGroup $
flickrCall "flickr.groups.getInfo"
(mbArg "lang" lang [("group_id", gid)])
search :: String
-> FM [Group]
search txt =
flickTranslate toGroupList $
flickrCall "flickr.groups.search"
[("text", txt)]