werehamster / github-webhook-handler-snap Goto Github PK

import GitHub.Types                (Payload)
import GitHub.WebHook.Handler      (Error)
import GitHub.WebHook.Handler.Snap (webhookHandler)

main :: IO ()
main = do
    quickHttpServe $
        -- Add a webhook to your organization or repository and configure it
        -- to send the payload to path "/webhook" and use the secret
        -- "secret^key".
        webhookHandler "/webhook" ["secret^key"] handleEvent

handleEvent :: Either Error (UUID, Payload) -> Snap ()
handleEvent (Left e) = do
    -- Send a 4xx or 5xx response.
    return ()

handleEvent (Right (uuid, payload)) =
    case payload of
        (CommitCommentEventPayload e) -> do
            -- Somebody added a comment to a commit.
            return ()

        (DeploymentEventPayload e) -> do
            -- Somebody created a deployment.
            return ()

        _ -> do
            return ()