-- Hoogle documentation, generated by Haddock -- See Hoogle, http://www.haskell.org/hoogle/ -- | Parse development platform web hook messages. -- @package vcs-web-hook-parse @version 0.1.0.0 module Web.Hook.Gogs type CommitID = Text type Url = Text data User User :: Text -> Text -> Text -> User userName :: User -> Text userEmail :: User -> Text userUsername :: User -> Text data Commit Commit :: CommitID -> Text -> Url -> User -> Commit commitId :: Commit -> CommitID commitMessage :: Commit -> Text commitUrl :: Commit -> Url commitAuthor :: Commit -> User data Repository Repository :: Int -> Text -> Url -> Text -> Url -> Int -> User -> Bool -> Repository repoId :: Repository -> Int repoName :: Repository -> Text repoUrl :: Repository -> Url repoDescription :: Repository -> Text repoWebsite :: Repository -> Url repoWatchers :: Repository -> Int repoOwner :: Repository -> User repoPrivate :: Repository -> Bool data Push Push :: Text -> Text -> [Commit] -> Repository -> User -> CommitID -> CommitID -> Url -> Push pushSecret :: Push -> Text pushRef :: Push -> Text pushCommits :: Push -> [Commit] pushRepository :: Push -> Repository pushPusher :: Push -> User pushBefore :: Push -> CommitID pushAfter :: Push -> CommitID pushCompareUrl :: Push -> Url -- | Parse a JSON string (the body of the HTTP request) into event -- information. If parsing fails, return Left an error message. parse :: ByteString -> Either String Push instance Show User instance Show Commit instance Show Repository instance Show Push instance FromJSON Push instance FromJSON Repository instance FromJSON Commit instance FromJSON User module Web.Hook.GitLab type CommitID = Text type Url = Text data Author Author :: Text -> Text -> Author authorName :: Author -> Text authorEmail :: Author -> Text data User User :: Text -> Text -> Url -> User userName :: User -> Text userUsername :: User -> Text userAvatar :: User -> Url data Commit Commit :: CommitID -> Text -> Text -> Url -> Author -> Commit commitId :: Commit -> CommitID commitMessage :: Commit -> Text commitTimestamp :: Commit -> Text commitUrl :: Commit -> Url commitAuthor :: Commit -> Author data MergeEndpoint MergeEndpoint :: Text -> Url -> Url -> Int -> Text -> MergeEndpoint mepName :: MergeEndpoint -> Text mepSshUrl :: MergeEndpoint -> Url mepHttpurl :: MergeEndpoint -> Url mepVisibility :: MergeEndpoint -> Int mepNamespace :: MergeEndpoint -> Text data Repository Repository :: Text -> Url -> Text -> Url -> Url -> Url -> Int -> Repository repoName :: Repository -> Text repoUrl :: Repository -> Url repoDesc :: Repository -> Text repoHomepage :: Repository -> Url repoGitHttpUrl :: Repository -> Url repoGitSshUrl :: Repository -> Url repoVisibility :: Repository -> Int data Issue Issue :: Int -> Text -> Int -> Int -> Int -> Text -> Text -> Int -> Maybe Text -> Text -> Maybe Int -> Text -> Int -> Url -> Issue issueInternalId :: Issue -> Int issueTitle :: Issue -> Text issueAssigneeId :: Issue -> Int issueAuthorId :: Issue -> Int issueProjectId :: Issue -> Int issueCreatedAt :: Issue -> Text issueUpdatedAt :: Issue -> Text issuePosition :: Issue -> Int issueBranch :: Issue -> Maybe Text issueDescription :: Issue -> Text issueMilestoneId :: Issue -> Maybe Int issueState :: Issue -> Text issueId :: Issue -> Int issueUrl :: Issue -> Url data MergeRequest MergeRequest :: Int -> Text -> Text -> Int -> Int -> Maybe Int -> Text -> Text -> Text -> Maybe Int -> Text -> Text -> Int -> Int -> Text -> MergeEndpoint -> MergeEndpoint -> Commit -> Url -> MergeRequest mrInternalId :: MergeRequest -> Int mrTargetBranch :: MergeRequest -> Text mrSourceBranch :: MergeRequest -> Text mrSourceProjectId :: MergeRequest -> Int mrAuthorId :: MergeRequest -> Int mrAssigneeId :: MergeRequest -> Maybe Int mrTitle :: MergeRequest -> Text mrCreatedAt :: MergeRequest -> Text mrUpdatedAt :: MergeRequest -> Text mrMilestoneId :: MergeRequest -> Maybe Int mrState :: MergeRequest -> Text mrMergeStatus :: MergeRequest -> Text mrTargetProjectId :: MergeRequest -> Int mrId :: MergeRequest -> Int mrDescription :: MergeRequest -> Text mrSource :: MergeRequest -> MergeEndpoint mrTarget :: MergeRequest -> MergeEndpoint mrLastCommit :: MergeRequest -> Commit mrUrl :: MergeRequest -> Url data Push Push :: CommitID -> CommitID -> Text -> Int -> Text -> Text -> Int -> Repository -> [Commit] -> Int -> Push pushBefore :: Push -> CommitID pushAfter :: Push -> CommitID pushRef :: Push -> Text pushUserId :: Push -> Int pushUserName :: Push -> Text pushUserEmail :: Push -> Text pushProjectId :: Push -> Int pushRepository :: Push -> Repository pushCommits :: Push -> [Commit] pushCommitsTotal :: Push -> Int data IssueEvent IssueEvent :: User -> Issue -> Text -> IssueEvent ieUser :: IssueEvent -> User ieIssue :: IssueEvent -> Issue ieAction :: IssueEvent -> Text data MergeRequestEvent MergeRequestEvent :: User -> MergeRequest -> Text -> MergeRequestEvent mreUser :: MergeRequestEvent -> User mreRequest :: MergeRequestEvent -> MergeRequest mreAction :: MergeRequestEvent -> Text data Event EventPush :: Push -> Event EventPushTag :: Push -> Event EventIssue :: IssueEvent -> Event EventMergeRequest :: MergeRequestEvent -> Event -- | Parse a JSON string (the body of the HTTP request) into event -- information. If parsing fails, return Left an error message. parse :: ByteString -> Either String Event instance FromJSON Event instance FromJSON MergeRequestEvent instance FromJSON IssueEvent instance FromJSON Push instance FromJSON MergeRequest instance FromJSON Issue instance FromJSON Repository instance FromJSON MergeEndpoint instance FromJSON Commit instance FromJSON User instance FromJSON Author