module FriendFeed.Subscribe where
import FriendFeed.Types
import FriendFeed.Types.Import ()
import FriendFeed.Monad
subscribeUser :: UserName -> FFm ()
subscribeUser u = authCall $
ffeedCall_ ["user",u,"subscribe"] []
unsubscribeUser :: UserName -> FFm ()
unsubscribeUser u = authCall $
ffeedCall_ ["user",u,"subscribe"] [("unsubscribe","1")]
subscribeRoom :: RoomName -> FFm ()
subscribeRoom r = authCall $
ffeedCall_ ["room",r,"subscribe"] []
unsubscribeRoom :: RoomName -> FFm ()
unsubscribeRoom r = authCall $
ffeedCall_ ["room",r,"subscribe"] [("unsubscribe","1")]