matrix-client 0.1.6.1 → 0.1.7.0
raw patch · 3 files changed
+8/−4 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Network.Matrix.Client: LoginResponse :: Text -> Text -> Text -> Text -> LoginResponse
+ Network.Matrix.Client: LoginResponse :: Text -> Text -> Maybe Text -> Text -> LoginResponse
- Network.Matrix.Client: [lrHomeServer] :: LoginResponse -> Text
+ Network.Matrix.Client: [lrHomeServer] :: LoginResponse -> Maybe Text
- Network.Matrix.Client: getAccountData :: forall a. AccountData a => ClientSession -> UserID -> MatrixIO a
+ Network.Matrix.Client: getAccountData :: AccountData a => ClientSession -> UserID -> MatrixIO a
- Network.Matrix.Client: setAccountData :: forall a. AccountData a => ClientSession -> UserID -> a -> MatrixIO ()
+ Network.Matrix.Client: setAccountData :: AccountData a => ClientSession -> UserID -> a -> MatrixIO ()
- Network.Matrix.Client: type MatrixM m a = m (Either MatrixError a)
+ Network.Matrix.Client: type MatrixM (m :: Type -> Type) a = m Either MatrixError a
Files
- CHANGELOG.md +4/−0
- matrix-client.cabal +2/−2
- src/Network/Matrix/Internal.hs +2/−2
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Changelog +## 0.1.7.0++- Improve login response by making the home server field optional [#45](https://github.com/softwarefactory-project/matrix-client-haskell/pull/45)+ ## 0.1.6.1 - Use Unpadded base64 encoding, as it was done in v0.1.5.0
matrix-client.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.4 name: matrix-client-version: 0.1.6.1+version: 0.1.7.0 synopsis: A matrix client library description: Matrix client is a library to interface with https://matrix.org.@@ -58,7 +58,7 @@ bytestring >=0.11.3 && <0.13, containers >=0.6.5 && <0.8, exceptions >=0.10.4 && <0.11,- hashable >=1.4.0 && <1.5,+ hashable >=1.4.0 && <1.6, http-client >=0.5.0 && <0.8, http-client-tls >=0.2.0 && <0.4, http-types >=0.10.0 && <0.13,
src/Network/Matrix/Internal.hs view
@@ -37,7 +37,7 @@ data LoginResponse = LoginResponse { lrUserId :: Text , lrAccessToken :: Text- , lrHomeServer :: Text+ , lrHomeServer :: Maybe Text , lrDeviceId :: Text } @@ -45,7 +45,7 @@ parseJSON = withObject "LoginResponse" $ \v -> do userId' <- v .: "user_id" accessToken' <- v .: "access_token"- homeServer' <- v .: "home_server"+ homeServer' <- v .:? "home_server" deviceId' <- v .: "device_id" pure $ LoginResponse userId' accessToken' homeServer' deviceId'