summaryrefslogtreecommitdiff
path: root/Network/HTTP/Client/Request.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Network/HTTP/Client/Request.hs')
-rw-r--r--Network/HTTP/Client/Request.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Network/HTTP/Client/Request.hs b/Network/HTTP/Client/Request.hs
index afe2e54..59af287 100644
--- a/Network/HTTP/Client/Request.hs
+++ b/Network/HTTP/Client/Request.hs
@@ -63,7 +63,7 @@ import Network.URI (URI (..), URIAuth (..), parseURI, relativeTo, escapeURIStrin
import Control.Exception (throw, throwIO, IOException)
import qualified Control.Exception as E
import qualified Data.CaseInsensitive as CI
-import qualified Data.ByteArray.Encoding as BAE
+import qualified Data.ByteString.Base64 as B64
import Network.HTTP.Client.Body
import Network.HTTP.Client.Types
@@ -326,7 +326,7 @@ buildBasicAuth ::
-> S8.ByteString -- ^ Password
-> S8.ByteString
buildBasicAuth user passwd =
- S8.append "Basic " (BAE.convertToBase BAE.Base64 (S8.concat [ user, ":", passwd ]))
+ S8.append "Basic " (B64.encode (S8.concat [ user, ":", passwd ]))
-- | Add a Basic Auth header (with the specified user name and password) to the
-- given Request. Ignore error handling: