module Flickr.Photos.Comments where
import Flickr.Monad
import Flickr.Types
import Flickr.Types.Import
addComment :: PhotoID -> String -> FM CommentID
addComment pid comm = withWritePerm $ postMethod $
flickTranslate toCommentID $
flickrCall "flickr.photos.comments.addComment"
[ ("photo_id", pid)
, ("comment_text", comm)
]
deleteComment :: CommentID -> FM ()
deleteComment cid = withWritePerm $ postMethod $
flickCall_ "flickr.photos.comments.deleteComment"
[ ("comment_id", cid)
]
editComment :: CommentID -> String -> FM ()
editComment cid comm = withWritePerm $ postMethod $
flickCall_ "flickr.photos.comments.editComment"
[ ("comment_id", cid)
, ("comment_text", comm)
]
getList :: PhotoID -> FM [Comment]
getList pid =
flickTranslate toCommentList $
flickrCall "flickr.photos.comments.getList"
[ ("photo_id", pid)
]