From d672e2597dbde8de18b6255d8dda36db7da46574 Mon Sep 17 00:00:00 2001
From: Shaun Sharples <shaun.sharples@gmail.com>
Date: Mon, 18 Feb 2019 16:59:15 +0200
Subject: [PATCH] Extended Auth to include a Bearer token

---
 src/GitHub/Auth.hs    | 1 +
 src/GitHub/Request.hs | 1 +
 2 files changed, 2 insertions(+)

diff --git a/src/GitHub/Auth.hs b/src/GitHub/Auth.hs
index c197fb4a..314f9b14 100644
--- a/src/GitHub/Auth.hs
+++ b/src/GitHub/Auth.hs
@@ -19,6 +19,7 @@ data Auth
     | EnterpriseOAuth Text    -- custom API endpoint without
                               -- trailing slash
                       Token   -- token
+    | Bearer Token -- ^ bearer token
     deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
 instance NFData Auth where rnf = genericRnf
diff --git a/src/GitHub/Request.hs b/src/GitHub/Request.hs
index e723287f..d60a358b 100644
--- a/src/GitHub/Request.hs
+++ b/src/GitHub/Request.hs
@@ -279,6 +279,7 @@ makeHttpSimpleRequest auth r = case r of
     getOAuthHeader :: Auth -> RequestHeaders
     getOAuthHeader (OAuth token)             = [("Authorization", "token " <> token)]
     getOAuthHeader (EnterpriseOAuth _ token) = [("Authorization", "token " <> token)]
+    getOAuthHeader (Bearer token)            = [("Authorization", "Bearer " <> token)]
     getOAuthHeader _                         = []
 
 -- | Query @Link@ header with @rel=next@ from the request headers.