github-tools-0.1.2: tools/hub-pulls.hs

{-# LANGUAGE OverloadedStrings #-}
module Main (main) where

import qualified Data.ByteString.Char8   as BS8
import qualified Data.Text.IO            as Text
import qualified GitHub
import           System.Environment      (getEnv, lookupEnv)

import           GitHub.Tools.PullStatus


main :: IO ()
main = do
  -- Get auth token from the $GITHUB_TOKEN environment variable.
  auth <- Just . GitHub.OAuth . BS8.pack <$> getEnv "GITHUB_TOKEN"

  -- Check if we need to produce HTML or ASCII art.
  wantHtml <- (/= Nothing) <$> lookupEnv "GITHUB_WANT_HTML"

  Text.putStrLn =<< getPullStatus "TokTok" "TokTok" wantHtml auth