Hello community, here is the log from the commit of package ghc-wai for openSUSE:Factory checked in at 2016-04-22 16:25:15 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-wai (Old) and /work/SRC/openSUSE:Factory/.ghc-wai.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-wai" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-wai/ghc-wai.changes 2016-04-03 23:07:47.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-wai.new/ghc-wai.changes 2016-04-22 16:25:30.000000000 +0200 @@ -1,0 +2,6 @@ +Sat Apr 16 07:45:49 UTC 2016 - mimi...@gmail.com + +- update to 3.2.1 +* add mapResponseStatus + +------------------------------------------------------------------- Old: ---- wai-3.2.0.1.tar.gz New: ---- wai-3.2.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-wai.spec ++++++ --- /var/tmp/diff_new_pack.GXw03A/_old 2016-04-22 16:25:31.000000000 +0200 +++ /var/tmp/diff_new_pack.GXw03A/_new 2016-04-22 16:25:31.000000000 +0200 @@ -21,7 +21,7 @@ %bcond_with tests Name: ghc-wai -Version: 3.2.0.1 +Version: 3.2.1 Release: 0 Summary: Web Application Interface License: MIT ++++++ wai-3.2.0.1.tar.gz -> wai-3.2.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/wai-3.2.0.1/ChangeLog.md new/wai-3.2.1/ChangeLog.md --- old/wai-3.2.0.1/ChangeLog.md 2016-03-29 08:31:37.000000000 +0200 +++ new/wai-3.2.1/ChangeLog.md 2016-04-15 10:55:29.000000000 +0200 @@ -1,3 +1,7 @@ +## 3.2.1 + +* add mapResponseStatus [#532](https://github.com/yesodweb/wai/pull/532) + ## 3.2.0.1 * Add missing changelog entry diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/wai-3.2.0.1/Network/Wai.hs new/wai-3.2.1/Network/Wai.hs --- old/wai-3.2.0.1/Network/Wai.hs 2016-03-29 08:31:37.000000000 +0200 +++ new/wai-3.2.1/Network/Wai.hs 2016-04-15 10:55:29.000000000 +0200 @@ -79,6 +79,7 @@ -- ** Response modifiers , responseToStream , mapResponseHeaders + , mapResponseStatus -- * Middleware composition , ifRequest , modifyResponse @@ -239,6 +240,13 @@ mapResponseHeaders f (ResponseStream s h b) = ResponseStream s (f h) b mapResponseHeaders _ r@(ResponseRaw _ _) = r +-- | Apply the provided function to the response status of the Response. +mapResponseStatus :: (H.Status -> H.Status) -> Response -> Response +mapResponseStatus f (ResponseFile s h b1 b2) = ResponseFile (f s) h b1 b2 +mapResponseStatus f (ResponseBuilder s h b) = ResponseBuilder (f s) h b +mapResponseStatus f (ResponseStream s h b) = ResponseStream (f s) h b +mapResponseStatus _ r@(ResponseRaw _ _) = r + ---------------------------------------------------------------- -- | The WAI application. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/wai-3.2.0.1/wai.cabal new/wai-3.2.1/wai.cabal --- old/wai-3.2.0.1/wai.cabal 2016-03-29 08:31:37.000000000 +0200 +++ new/wai-3.2.1/wai.cabal 2016-04-15 10:55:29.000000000 +0200 @@ -1,5 +1,5 @@ Name: wai -Version: 3.2.0.1 +Version: 3.2.1 Synopsis: Web Application Interface. Description: Provides a common protocol for communication between web applications and web servers. description: API docs and the README are available at <http://www.stackage.org/package/wai>.