Network.Reddit.Types.Comment

Documentation

data Comment

A Reddit comment

Constructors

Comment

Fields

• commentID :: CommentID
• author :: Username
• body :: Body
• bodyHTML :: Body
• replies :: Seq ChildComment

  This field will be empty unless the comment was obtained via withReplies

• score :: Maybe Integer
• ups :: Maybe Integer
• downs :: Maybe Integer
• created :: UTCTime
• edited :: Maybe UTCTime
• subreddit :: SubredditName
• subredditID :: SubredditID
• gilded :: Int
• scoreHidden :: Maybe Bool
• linkID :: SubmissionID
• linkURL :: Maybe URL
• linkAuthor :: Maybe Username
• permaLink :: URL
• userReports :: Seq ItemReport
• modReports :: Seq ItemReport
• numReports :: Maybe Integer
• distinguished :: Maybe Distinction
• isSubmitter :: Bool

  Whether the author of the comment is also the submission author

• stickied :: Bool

Instances

Eq Comment

Defined in Network.Reddit.Types.Comment

Methods

(==) :: Comment -> Comment -> Bool

(/=) :: Comment -> Comment -> Bool

Show Comment

Defined in Network.Reddit.Types.Comment

Methods

showsPrec :: Int -> Comment -> ShowS

show :: Comment -> String

showList :: [Comment] -> ShowS

Generic Comment

Defined in Network.Reddit.Types.Comment

Associated Types

type Rep Comment :: Type -> Type

Methods

from :: Comment -> Rep Comment x

to :: Rep Comment x -> Comment

FromJSON Comment

Defined in Network.Reddit.Types.Comment

Methods

parseJSON :: Value -> Parser Comment

parseJSONList :: Value -> Parser [Comment]

Paginable Comment

Defined in Network.Reddit.Types.Comment

Associated Types

type PaginateOptions Comment

type PaginateThing Comment

Methods

defaultOpts :: PaginateOptions Comment

getFullname :: Comment -> PaginateThing Comment

optsToForm :: PaginateOptions Comment -> Form

FromJSON (PostedItem Comment)

Defined in Network.Reddit.Types.Item

Methods

parseJSON :: Value -> Parser (PostedItem Comment)

parseJSONList :: Value -> Parser [PostedItem Comment]

type Rep Comment

Defined in Network.Reddit.Types.Comment

type Rep Comment = D1 ('MetaData "Comment" "Network.Reddit.Types.Comment" "heddit-0.0.3-9exHQM39kJOAEFyIAgEDk1" 'False) (C1 ('MetaCons "Comment" 'PrefixI 'True) ((((S1 ('MetaSel ('Just "commentID") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 CommentID) :*: (S1 ('MetaSel ('Just "author") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Username) :*: S1 ('MetaSel ('Just "body") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Body))) :*: (S1 ('MetaSel ('Just "bodyHTML") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Body) :*: (S1 ('MetaSel ('Just "replies") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Seq ChildComment)) :*: S1 ('MetaSel ('Just "score") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe Integer))))) :*: ((S1 ('MetaSel ('Just "ups") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe Integer)) :*: (S1 ('MetaSel ('Just "downs") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe Integer)) :*: S1 ('MetaSel ('Just "created") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 UTCTime))) :*: (S1 ('MetaSel ('Just "edited") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe UTCTime)) :*: (S1 ('MetaSel ('Just "subreddit") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 SubredditName) :*: S1 ('MetaSel ('Just "subredditID") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 SubredditID))))) :*: (((S1 ('MetaSel ('Just "gilded") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :*: (S1 ('MetaSel ('Just "scoreHidden") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe Bool)) :*: S1 ('MetaSel ('Just "linkID") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 SubmissionID))) :*: (S1 ('MetaSel ('Just "linkURL") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe URL)) :*: (S1 ('MetaSel ('Just "linkAuthor") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe Username)) :*: S1 ('MetaSel ('Just "permaLink") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 URL)))) :*: ((S1 ('MetaSel ('Just "userReports") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Seq ItemReport)) :*: (S1 ('MetaSel ('Just "modReports") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Seq ItemReport)) :*: S1 ('MetaSel ('Just "numReports") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe Integer)))) :*: (S1 ('MetaSel ('Just "distinguished") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe Distinction)) :*: (S1 ('MetaSel ('Just "isSubmitter") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Bool) :*: S1 ('MetaSel ('Just "stickied") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Bool)))))))

type PaginateOptions Comment

Defined in Network.Reddit.Types.Comment

type PaginateOptions Comment = ItemOpts Comment

type PaginateThing Comment

Defined in Network.Reddit.Types.Comment

type PaginateThing Comment = CommentID

newtype CommentID

A Comment ID

Constructors

CommentID Text

Instances

Eq CommentID

Defined in Network.Reddit.Types.Comment

Methods

(==) :: CommentID -> CommentID -> Bool

(/=) :: CommentID -> CommentID -> Bool

Ord CommentID

Defined in Network.Reddit.Types.Comment

Methods

compare :: CommentID -> CommentID -> Ordering

(<) :: CommentID -> CommentID -> Bool

(<=) :: CommentID -> CommentID -> Bool

(>) :: CommentID -> CommentID -> Bool

(>=) :: CommentID -> CommentID -> Bool

max :: CommentID -> CommentID -> CommentID

min :: CommentID -> CommentID -> CommentID

Show CommentID

Defined in Network.Reddit.Types.Comment

Methods

showsPrec :: Int -> CommentID -> ShowS

show :: CommentID -> String

showList :: [CommentID] -> ShowS

Generic CommentID

Defined in Network.Reddit.Types.Comment

Associated Types

type Rep CommentID :: Type -> Type

Methods

from :: CommentID -> Rep CommentID x

to :: Rep CommentID x -> CommentID

FromJSON CommentID

Defined in Network.Reddit.Types.Comment

Methods

parseJSON :: Value -> Parser CommentID

parseJSONList :: Value -> Parser [CommentID]

ToHttpApiData CommentID

Defined in Network.Reddit.Types.Comment

Methods

toUrlPiece :: CommentID -> Text

toEncodedUrlPiece :: CommentID -> Builder

toHeader :: CommentID -> ByteString

toQueryParam :: CommentID -> Text

Thing CommentID

Defined in Network.Reddit.Types.Comment

Methods

fullname :: CommentID -> Text

type Rep CommentID

Defined in Network.Reddit.Types.Comment

type Rep CommentID = D1 ('MetaData "CommentID" "Network.Reddit.Types.Comment" "heddit-0.0.3-9exHQM39kJOAEFyIAgEDk1" 'True) (C1 ('MetaCons "CommentID" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

data MoreComments

A link to load more children Comments

Constructors

MoreComments

Fields

• childIDs :: Seq CommentID
• count :: Integer

  The number of "collapsed" comments that can be loaded

Instances

Eq MoreComments

Defined in Network.Reddit.Types.Comment

Methods

(==) :: MoreComments -> MoreComments -> Bool

(/=) :: MoreComments -> MoreComments -> Bool

Show MoreComments

Defined in Network.Reddit.Types.Comment

Methods

showsPrec :: Int -> MoreComments -> ShowS

show :: MoreComments -> String

showList :: [MoreComments] -> ShowS

Generic MoreComments

Defined in Network.Reddit.Types.Comment

Associated Types

type Rep MoreComments :: Type -> Type

Methods

from :: MoreComments -> Rep MoreComments x

to :: Rep MoreComments x -> MoreComments

FromJSON MoreComments

Defined in Network.Reddit.Types.Comment

Methods

parseJSON :: Value -> Parser MoreComments

parseJSONList :: Value -> Parser [MoreComments]

type Rep MoreComments

Defined in Network.Reddit.Types.Comment

type Rep MoreComments = D1 ('MetaData "MoreComments" "Network.Reddit.Types.Comment" "heddit-0.0.3-9exHQM39kJOAEFyIAgEDk1" 'False) (C1 ('MetaCons "MoreComments" 'PrefixI 'True) (S1 ('MetaSel ('Just "childIDs") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Seq CommentID)) :*: S1 ('MetaSel ('Just "count") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Integer)))

data ChildComment

Represents a comments on a submission or replies to a comment, which can be actual Comments, or a list of children corresponding to "load more" or "continue this thread" links on Reddit's UI

Constructors

TopLevel Comment

More MoreComments

Instances

Eq ChildComment

Defined in Network.Reddit.Types.Comment

Methods

(==) :: ChildComment -> ChildComment -> Bool

(/=) :: ChildComment -> ChildComment -> Bool

Show ChildComment

Defined in Network.Reddit.Types.Comment

Methods

showsPrec :: Int -> ChildComment -> ShowS

show :: ChildComment -> String

showList :: [ChildComment] -> ShowS

Generic ChildComment

Defined in Network.Reddit.Types.Comment

Associated Types

type Rep ChildComment :: Type -> Type

Methods

from :: ChildComment -> Rep ChildComment x

to :: Rep ChildComment x -> ChildComment

FromJSON ChildComment

Defined in Network.Reddit.Types.Comment

Methods

parseJSON :: Value -> Parser ChildComment

parseJSONList :: Value -> Parser [ChildComment]

type Rep ChildComment

Defined in Network.Reddit.Types.Comment

type Rep ChildComment = D1 ('MetaData "ChildComment" "Network.Reddit.Types.Comment" "heddit-0.0.3-9exHQM39kJOAEFyIAgEDk1" 'False) (C1 ('MetaCons "TopLevel" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Comment)) :+: C1 ('MetaCons "More" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MoreComments)))

data WithChildren

This wraps the ChildComments of a Submission

Instances

Eq WithChildren

Defined in Network.Reddit.Types.Comment

Methods

(==) :: WithChildren -> WithChildren -> Bool

(/=) :: WithChildren -> WithChildren -> Bool

Show WithChildren

Defined in Network.Reddit.Types.Comment

Methods

showsPrec :: Int -> WithChildren -> ShowS

show :: WithChildren -> String

showList :: [WithChildren] -> ShowS

Generic WithChildren

Defined in Network.Reddit.Types.Comment

Associated Types

type Rep WithChildren :: Type -> Type

Methods

from :: WithChildren -> Rep WithChildren x

to :: Rep WithChildren x -> WithChildren

FromJSON WithChildren

Defined in Network.Reddit.Types.Comment

Methods

parseJSON :: Value -> Parser WithChildren

parseJSONList :: Value -> Parser [WithChildren]

type Rep WithChildren

Defined in Network.Reddit.Types.Comment

type Rep WithChildren = D1 ('MetaData "WithChildren" "Network.Reddit.Types.Comment" "heddit-0.0.3-9exHQM39kJOAEFyIAgEDk1" 'True) (C1 ('MetaCons "WithChildren" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Seq ChildComment))))

data WithReplies

This wraps a Comment which has been fetched with its ChildComments

Instances

Eq WithReplies

Defined in Network.Reddit.Types.Comment

Methods

(==) :: WithReplies -> WithReplies -> Bool

(/=) :: WithReplies -> WithReplies -> Bool

Show WithReplies

Defined in Network.Reddit.Types.Comment

Methods

showsPrec :: Int -> WithReplies -> ShowS

show :: WithReplies -> String

showList :: [WithReplies] -> ShowS

Generic WithReplies

Defined in Network.Reddit.Types.Comment

Associated Types

type Rep WithReplies :: Type -> Type

Methods

from :: WithReplies -> Rep WithReplies x

to :: Rep WithReplies x -> WithReplies

FromJSON WithReplies

Defined in Network.Reddit.Types.Comment

Methods

parseJSON :: Value -> Parser WithReplies

parseJSONList :: Value -> Parser [WithReplies]

type Rep WithReplies

Defined in Network.Reddit.Types.Comment

type Rep WithReplies = D1 ('MetaData "WithReplies" "Network.Reddit.Types.Comment" "heddit-0.0.3-9exHQM39kJOAEFyIAgEDk1" 'True) (C1 ('MetaCons "WithReplies" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Comment)))

commentP :: Object -> Parser Comment

Parse a Comment

data LoadedChildren

Instances

Eq LoadedChildren

Defined in Network.Reddit.Types.Comment

Methods

(==) :: LoadedChildren -> LoadedChildren -> Bool

(/=) :: LoadedChildren -> LoadedChildren -> Bool

Show LoadedChildren

Defined in Network.Reddit.Types.Comment

Methods

showsPrec :: Int -> LoadedChildren -> ShowS

show :: LoadedChildren -> String

showList :: [LoadedChildren] -> ShowS

Generic LoadedChildren

Defined in Network.Reddit.Types.Comment

Associated Types

type Rep LoadedChildren :: Type -> Type

Methods

from :: LoadedChildren -> Rep LoadedChildren x

to :: Rep LoadedChildren x -> LoadedChildren

FromJSON LoadedChildren

Defined in Network.Reddit.Types.Comment

Methods

parseJSON :: Value -> Parser LoadedChildren

parseJSONList :: Value -> Parser [LoadedChildren]

type Rep LoadedChildren

Defined in Network.Reddit.Types.Comment

type Rep LoadedChildren = D1 ('MetaData "LoadedChildren" "Network.Reddit.Types.Comment" "heddit-0.0.3-9exHQM39kJOAEFyIAgEDk1" 'True) (C1 ('MetaCons "LoadedChildren" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Seq ChildComment))))