module Flickr.Photos.Notes where
import Flickr.Monad
import Flickr.Types
import Flickr.Types.Import
add :: PhotoID -> Point -> Size -> String -> FM NoteID
add pid xy wh txt = withWritePerm $ postMethod $
flickTranslate toNoteID $
flickrCall "flickr.photos.notes.add"
[ ("photo_id", pid)
, ("note_x", show $ pointX xy)
, ("note_y", show $ pointY xy)
, ("note_w", show $ sizeW wh)
, ("note_h", show $ sizeH wh)
, ("note_text", txt)
]
delete :: NoteID -> FM ()
delete nid = withWritePerm $ postMethod $
flickCall_ "flickr.photos.notes.delete"
[ ("note_id", nid) ]
edit :: NoteID -> Point -> Size -> String -> FM ()
edit nid xy wh txt = withWritePerm $ postMethod $
flickCall_ "flickr.photos.notes.edit"
[ ("note_id", nid)
, ("note_x", show $ pointX xy)
, ("note_y", show $ pointY xy)
, ("note_w", show $ sizeW wh)
, ("note_h", show $ sizeH wh)
, ("note_text", txt)
]