github-0.9: samples/Repos/Webhooks/EditWebhook.hs

module EditWebhook where

import Github.Repos.Webhooks
import qualified Github.Auth as Auth
import Github.Data.Definitions

main :: IO ()
main = do
  let auth = Auth.GithubOAuth "oauthtoken"
  let editWebhookDef = EditRepoWebhook {
        editRepoWebhookRemoveEvents = Just ["*"],
        editRepoWebhookAddEvents = Just ["commit_comment"],
        editRepoWebhookConfig = Nothing,
        editRepoWebhookEvents = Nothing,
        editRepoWebhookActive = Just True
      }
  newWebhook <- editRepoWebhook' auth "repoOwner" "repoName" 123 editWebhookDef
  case newWebhook of
    (Left err) -> putStrLn $ "Error: " ++ (show err)
    (Right webhook) -> putStrLn $ formatRepoWebhook webhook

formatRepoWebhook :: RepoWebhook -> String
formatRepoWebhook (RepoWebhook _ _ _ name _ _ _ _ _ _) = show name