Add support for auth github requests

As anonymous ones reach the api limit quickly
Via a unique argument with a github oauth token

Author: jneira

GenChangelogs.hs

@@ -1,18 +1,20 @@
 #!/usr/bin/env cabal
 {- cabal:
-build-depends: base, process, text, github, time >= 1.9
+build-depends: base, bytestring, process, text, github, time >= 1.9
 -}
 
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards   #-}
 
 import           Control.Monad
+import qualified Data.ByteString.Char8    as BS
 import           Data.List
 import           Data.Maybe
 import qualified Data.Text                as T
 import           Data.Time.Format.ISO8601
 import           Data.Time.LocalTime
 import           GitHub
+import           System.Environment
 import           System.Process
 
 main = do
@@ -23,7 +25,11 @@ main = do
   lastDateStr <- last . lines <$> readProcess "git" ["show", "-s", "--format=%cI", "-1", last tags] ""
   lastDate <- zonedTimeToUTC <$> iso8601ParseM lastDateStr
 
-  prs <- github' $ pullRequestsForR "haskell" "haskell-language-server" stateClosed FetchAll
+  args <- getArgs
+  let githubReq = case args of
+                    []      -> github'
+                    token:_ -> github (OAuth $ BS.pack token)
+  prs <- githubReq $ pullRequestsForR "haskell" "haskell-language-server" stateClosed FetchAll
   let prsAfterLastTag = either (error . show)
                         (foldMap (\pr -> [pr | inRange pr]))
                         prs