Bump elm-base64 version upper bound

truqu · Aug 16, 2018 · a245831 · a245831
1 parent b0ca42b
commit a245831
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog
 
+## v2.2.1 (2018-08-16) 
+
+- Bump `elm-base64` version upper-bound
+
 ## v2.2.0 (2017-12-22)
 
 - (oversight) Actually expose 'authenticateWithOpts' functions from modules

diff --git a/elm-package.json b/elm-package.json
@@ -1,5 +1,5 @@
 {
-    "version": "2.2.0",
+    "version": "2.2.1",
     "summary": "OAuth 2.0 client-side utils",
     "repository": "https://github.com/truqu/elm-oauth2.git",
     "license": "MIT",
@@ -22,7 +22,7 @@
         "elm-lang/html": "2.0.0 <= v < 3.0.0",
         "elm-lang/http": "1.0.0 <= v < 2.0.0",
         "elm-lang/navigation": "2.1.0 <= v < 3.0.0",
-        "truqu/elm-base64": "1.0.5 <= v < 2.0.0"
+        "truqu/elm-base64": "2.0.0 <= v < 3.0.0"
     },
     "elm-version": "0.18.0 <= v < 0.19.0"
 }
diff --git a/src/Internal.elm b/src/Internal.elm
@@ -123,7 +123,6 @@ authHeader : Maybe Credentials -> List Http.Header
 authHeader credentials =
     credentials
         |> Maybe.map (\{ clientId, secret } -> Base64.encode (clientId ++ ":" ++ secret))
-        |> Maybe.andThen Result.toMaybe
         |> Maybe.map (\s -> [ Http.header "Authorization" ("Basic " ++ s) ])
         |> Maybe.withDefault []