avers-server 0.0.18.0 → 0.0.19.0
raw patch · 2 files changed
+10/−6 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- avers-server.cabal +2/−2
- src/Avers/Server.hs +8/−4
avers-server.cabal view
@@ -1,7 +1,7 @@ name: avers-server-version: 0.0.18.0+version: 0.0.19.0 synopsis: Server implementation of the Avers API-description: See README.md+description: Server implementation of the Avers API homepage: http://github.com/wereHamster/avers-server license: MIT license-file: LICENSE
src/Avers/Server.hs view
@@ -218,7 +218,7 @@ ---------------------------------------------------------------------------- serveObjectChanges :: Server ObjectChanges- serveObjectChanges objId _cred req respond = respond $+ serveObjectChanges objId _cred = Tagged $ \req respond -> respond $ case websocketsApp WS.defaultConnectionOptions wsApp req of Nothing -> responseLBS status500 [] "Failed" Just res -> res@@ -260,7 +260,7 @@ ---------------------------------------------------------------------------- serveFeed :: Server Feed- serveFeed _cred req respond = respond $+ serveFeed _cred = Tagged $ \req respond -> respond $ case websocketsApp WS.defaultConnectionOptions wsApp req of Nothing -> responseLBS status500 [] "This is a WebSocket endpoint" Just res -> res@@ -293,8 +293,12 @@ ---------------------------------------------------------------------------- serveChangeSecret :: Server ChangeSecret- serveChangeSecret _ _ = do- throwError err501+ serveChangeSecret cred ChangeSecretBody{..} = do+ reqAvers aversH $ do+ Session{..} <- case cred of+ SessionIdCredential sId -> lookupSession sId++ updateSecret (SecretId $ unObjId sessionObjId) csbNewSecret ----------------------------------------------------------------------------