module Reddit.Actions.Flair
( getFlairList
, getFlairList'
, addLinkFlair
, flairCSV ) where
import Reddit.Routes.Flair
import Reddit.Types.Empty
import Reddit.Types.Flair
import Reddit.Types.Options
import Reddit.Types.Reddit
import Reddit.Types.Subreddit
import Reddit.Types.User
import Control.Monad
import Data.Aeson hiding (Options(..))
import Data.Default.Class
import Data.Text (Text)
getFlairList :: Monad m => SubredditName -> RedditT m FlairListing
getFlairList = getFlairList' def
getFlairList' :: Monad m => Options UserID -> SubredditName -> RedditT m FlairListing
getFlairList' opts r = liftM flistToListing $ runRoute (flairList opts r)
addLinkFlair :: Monad m
=> SubredditName
-> Text
-> Text
-> Bool
-> RedditT m ()
addLinkFlair r c l e =
nothing $ runRoute $ addLinkFlairTemplate r c l e
flairCSV :: Monad m => SubredditName -> [(Username, Text, Text)] -> RedditT m Value
flairCSV r sets =
runRoute $ flairCSVRoute r sets