module Instagram.Comments (
getComments
,postComment
,deleteComment
)where
import Instagram.Monad
import Instagram.Types
import qualified Network.HTTP.Types as HT
import Data.Text (Text)
getComments :: (MonadBaseControl IO m, MonadResource m) => MediaID
-> Maybe OAuthToken
-> InstagramT m (Envelope [Comment])
getComments mid token =getGetEnvelopeM ["/v1/media/",mid,"/comments"] token ([]::HT.Query)
postComment :: (MonadBaseControl IO m, MonadResource m) => MediaID
-> OAuthToken
-> Text
-> InstagramT m (Envelope NoResult)
postComment mid token txt =getPostEnvelope ["/v1/media/",mid,"/comments"] token ["text" ?+ txt]
deleteComment :: (MonadBaseControl IO m, MonadResource m) => MediaID
-> CommentID
-> OAuthToken
-> InstagramT m (Envelope NoResult)
deleteComment mid cid token =getDeleteEnvelope ["/v1/media/",mid,"/comments/",cid] token ([]::HT.Query)