From df9dabe0507c74500fd11e70b9a4e2f4fe6594f1 Mon Sep 17 00:00:00 2001 From: Wesley Kerfoot Date: Mon, 15 Apr 2019 20:30:31 -0400 Subject: [PATCH] Make parameters optional --- src/PullWatch/PullWatch.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/PullWatch/PullWatch.hs b/src/PullWatch/PullWatch.hs index 6227b94..96115bd 100644 --- a/src/PullWatch/PullWatch.hs +++ b/src/PullWatch/PullWatch.hs @@ -41,12 +41,11 @@ import qualified GitHub.Endpoints.PullRequests as PR parseRepos :: ParserSpec RepoArgs parseRepos = RepoArgs - `parsedBy` reqPos "owner" - `andBy` reqPos "repo" + `parsedBy` optPos "" "owner" + `andBy` optPos "" "repo" parseRepoArgs = withParseResult parseRepos - -- Helper functions fiveMinutes = 300000000 @@ -74,6 +73,7 @@ getLatest :: (?pat :: (Maybe Auth.Auth)) => Repo -> IO (Maybe PullRequest) +getLatest (Repo "" "") = return Nothing getLatest (Repo owner repo) = do prs <- PR.pullRequestsFor' ?pat owner repo let pr = case prs of