Hello community, here is the log from the commit of package ghc-avers-server for openSUSE:Factory checked in at 2017-08-31 20:46:20 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-avers-server (Old) and /work/SRC/openSUSE:Factory/.ghc-avers-server.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-avers-server" Thu Aug 31 20:46:20 2017 rev:2 rq:513208 version:0.0.19.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-avers-server/ghc-avers-server.changes 2017-05-17 10:49:43.085958752 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-avers-server.new/ghc-avers-server.changes 2017-08-31 20:46:21.804512389 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:12 UTC 2017 - psimons@suse.com + +- Update to version 0.0.19.0. + +------------------------------------------------------------------- Old: ---- avers-server-0.0.18.0.tar.gz avers-server.cabal New: ---- avers-server-0.0.19.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-avers-server.spec ++++++ --- /var/tmp/diff_new_pack.IpwynZ/_old 2017-08-31 20:46:22.932354081 +0200 +++ /var/tmp/diff_new_pack.IpwynZ/_new 2017-08-31 20:46:22.952351274 +0200 @@ -18,14 +18,13 @@ %global pkg_name avers-server Name: ghc-%{pkg_name} -Version: 0.0.18.0 +Version: 0.0.19.0 Release: 0 Summary: Server implementation of the Avers API License: MIT Group: Development/Languages/Other Url: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz -Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/1.cabal#/%{pkg_name}.cabal BuildRequires: ghc-Cabal-devel BuildRequires: ghc-aeson-devel BuildRequires: ghc-avers-api-devel @@ -70,7 +69,6 @@ %prep %setup -q -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++++++ avers-server-0.0.18.0.tar.gz -> avers-server-0.0.19.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/avers-server-0.0.18.0/avers-server.cabal new/avers-server-0.0.19.0/avers-server.cabal --- old/avers-server-0.0.18.0/avers-server.cabal 2017-02-06 19:05:06.000000000 +0100 +++ new/avers-server-0.0.19.0/avers-server.cabal 2017-06-26 11:11:10.000000000 +0200 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/avers-server-0.0.18.0/src/Avers/Server.hs new/avers-server-0.0.19.0/src/Avers/Server.hs --- old/avers-server-0.0.18.0/src/Avers/Server.hs 2017-02-06 18:57:38.000000000 +0100 +++ new/avers-server-0.0.19.0/src/Avers/Server.hs 2017-06-26 11:08:50.000000000 +0200 @@ -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 ----------------------------------------------------------------------------