From 2a59d420ce08046f0af76ecfa505910bfe30efe4 Mon Sep 17 00:00:00 2001 From: Wesley Kerfoot Date: Mon, 15 Apr 2019 21:44:37 -0400 Subject: [PATCH] Use repo yaml config --- app/Main.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index c13ba87..d468407 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -5,7 +5,7 @@ module Main where import PullWatch.PullWatch import PullWatch.Types -import PullWatch.Environment (getPAT) +import PullWatch.Environment (getPAT, getRepoConfig) import qualified Data.Default as Default (def) doMonitor :: RepoArgs -> IO () @@ -14,7 +14,12 @@ doMonitor (RepoArgs owner repo) = do pat <- getPAT let ?pat = pat - monitorPRs Default.def [Repo owner repo] + repoConfig <- getRepoConfig + + case repoConfig of + Nothing -> monitorPRs Default.def [Repo owner repo] + (Just repos) -> monitorPRs Default.def $ [Repo owner repo] ++ repos + return ()