You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
463 B
21 lines
463 B
{-# LANGUAGE ImplicitParams #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Main where
|
|
|
|
import PullWatch.PullWatch
|
|
import PullWatch.Types
|
|
import PullWatch.Environment (getPAT)
|
|
import qualified Data.Default as Default (def)
|
|
|
|
doMonitor :: RepoArgs -> IO ()
|
|
doMonitor (RepoArgs owner repo) = do
|
|
-- Set up authentication token from environment
|
|
pat <- getPAT
|
|
let ?pat = pat
|
|
|
|
monitorPRs Default.def [Repo owner repo]
|
|
|
|
return ()
|
|
|
|
main = parseRepoArgs doMonitor
|
|
|