Fix Identity base64 usage to use Unpadded encoding

Author: TristanCacqueray

CHANGELOG.md

@@ -1,5 +1,9 @@
 # Changelog
 
+## 0.1.6.1
+
+- Use Unpadded base64 encoding, as it was done in v0.1.5.0
+
 ## 0.1.6.0
 
 - Support base64-1.0

matrix-client.cabal

@@ -1,6 +1,6 @@
 cabal-version: 2.4
 name: matrix-client
-version: 0.1.6.0
+version: 0.1.6.1
 synopsis: A matrix client library
 description:
   Matrix client is a library to interface with https://matrix.org.

src/Network/Matrix/Identity.hs

@@ -41,7 +41,7 @@ import Control.Monad (mzero)
 import Data.Aeson (FromJSON (..), Value (Object, String), encode, object, (.:), (.=))
 import Data.Base64.Types (extractBase64)
 import Data.ByteString.Lazy (fromStrict)
-import Data.ByteString.Lazy.Base64.URL (encodeBase64)
+import Data.ByteString.Lazy.Base64.URL (encodeBase64Unpadded)
 import Data.Digest.Pure.SHA (bytestringDigest, sha256)
 #if MIN_VERSION_aeson(2,0,0)
 import qualified Data.Aeson.KeyMap as KeyMap
@@ -171,7 +171,7 @@ identitiesLookup session ilr = do
 "4kenr7N9drpCJ4AfalmlGQVsOn3o2RHjkADUpXJWZUc"
 -}
 encodeSHA256 :: Text -> Text
-encodeSHA256 = toStrict . extractBase64 . encodeBase64 . bytestringDigest . sha256 . fromStrict . encodeUtf8
+encodeSHA256 = toStrict . extractBase64 . encodeBase64Unpadded . bytestringDigest . sha256 . fromStrict . encodeUtf8
 
 data Identity = Email Text | Msisdn Text deriving (Show, Eq)