Hello community, here is the log from the commit of package ghc-wai-extra for openSUSE:Factory checked in at 2016-03-26 15:26:20 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-wai-extra (Old) and /work/SRC/openSUSE:Factory/.ghc-wai-extra.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-wai-extra" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-wai-extra/ghc-wai-extra.changes 2016-03-16 10:33:46.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-wai-extra.new/ghc-wai-extra.changes 2016-03-26 15:26:24.000000000 +0100 @@ -1,0 +2,7 @@ +Fri Mar 18 08:35:50 UTC 2016 - mimi.vx@gmail.com + +- update to 3.0.14.3 +* Add missing requestHeaderReferer and requestHeaderUserAgent fields to CGI +* Case insensitive multipart request header lookup + +------------------------------------------------------------------- Old: ---- wai-extra-3.0.14.1.tar.gz New: ---- wai-extra-3.0.14.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-wai-extra.spec ++++++ --- /var/tmp/diff_new_pack.TxooqJ/_old 2016-03-26 15:26:25.000000000 +0100 +++ /var/tmp/diff_new_pack.TxooqJ/_new 2016-03-26 15:26:25.000000000 +0100 @@ -21,7 +21,7 @@ %bcond_with tests Name: ghc-wai-extra -Version: 3.0.14.1 +Version: 3.0.14.3 Release: 0 Summary: Provides some basic WAI handlers and middleware License: MIT ++++++ wai-extra-3.0.14.1.tar.gz -> wai-extra-3.0.14.3.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/wai-extra-3.0.14.1/ChangeLog.md new/wai-extra-3.0.14.3/ChangeLog.md --- old/wai-extra-3.0.14.1/ChangeLog.md 2016-02-29 09:16:01.000000000 +0100 +++ new/wai-extra-3.0.14.3/ChangeLog.md 2016-03-16 13:47:43.000000000 +0100 @@ -1,3 +1,11 @@ +## 3.0.14.3 + +* Add missing `requestHeaderReferer` and `requestHeaderUserAgent` fields to CGI [yesod#1186](https://github.com/yesodweb/yesod/issues/1186) + +## 3.0.14.2 + +* Case insensitive multipart request header lookup [#518](https://github.com/yesodweb/wai/pull/518) + ## 3.0.14.1 * Doc update for logStdout and logStdoutDev [#515](https://github.com/yesodweb/wai/issues/515) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/wai-extra-3.0.14.1/Network/Wai/Handler/CGI.hs new/wai-extra-3.0.14.3/Network/Wai/Handler/CGI.hs --- old/wai-extra-3.0.14.1/Network/Wai/Handler/CGI.hs 2016-02-29 09:16:01.000000000 +0100 +++ new/wai-extra-3.0.14.3/Network/Wai/Handler/CGI.hs 2016-03-16 13:47:43.000000000 +0100 @@ -118,6 +118,10 @@ , requestBodyLength = KnownLength $ fromIntegral contentLength , requestHeaderHost = lookup "host" reqHeaders , requestHeaderRange = lookup hRange reqHeaders +#if MIN_VERSION_wai(3,2,0) + , requestHeaderReferer = lookup "referer" reqHeaders + , requestHeaderUserAgent = lookup "user-agent" reqHeaders +#endif } void $ app env $ \res -> case (xsendfile, res) of diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/wai-extra-3.0.14.1/Network/Wai/Parse.hs new/wai-extra-3.0.14.3/Network/Wai/Parse.hs --- old/wai-extra-3.0.14.1/Network/Wai/Parse.hs 2016-02-29 09:16:01.000000000 +0100 +++ new/wai-extra-3.0.14.3/Network/Wai/Parse.hs 2016-03-16 13:47:43.000000000 +0100 @@ -45,6 +45,7 @@ import Control.Monad.Trans.Resource (allocate, release, register, InternalState, runInternalState) import Data.IORef import Network.HTTP.Types (hContentType) +import Data.CaseInsensitive (mk) breakDiscard :: Word8 -> S.ByteString -> (S.ByteString, S.ByteString) breakDiscard w s = @@ -94,7 +95,7 @@ tempFileBackEnd :: InternalState -> ignored1 -> ignored2 -> IO S.ByteString -> IO FilePath tempFileBackEnd = tempFileBackEndOpts getTemporaryDirectory "webenc.buf" --- | Same as 'tempFileSink', but use configurable temp folders and patterns. +-- | Same as 'tempFileBackEnd', but use configurable temp folders and patterns. tempFileBackEndOpts :: IO FilePath -- ^ get temporary directory -> String -- ^ filename pattern -> InternalState @@ -300,11 +301,11 @@ (wasFound, ()) <- sinkTillBound bound iter seed src when wasFound (loop src) where - contDisp = S8.pack "Content-Disposition" - contType = S8.pack "Content-Type" + contDisp = mk $ S8.pack "Content-Disposition" + contType = mk $ S8.pack "Content-Type" parsePair s = let (x, y) = breakDiscard 58 s -- colon - in (x, S.dropWhile (== 32) y) -- space + in (mk $ x, S.dropWhile (== 32) y) -- space data Bound = FoundBound S.ByteString S.ByteString | NoBound diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/wai-extra-3.0.14.1/wai-extra.cabal new/wai-extra-3.0.14.3/wai-extra.cabal --- old/wai-extra-3.0.14.1/wai-extra.cabal 2016-02-29 09:16:01.000000000 +0100 +++ new/wai-extra-3.0.14.3/wai-extra.cabal 2016-03-16 13:47:43.000000000 +0100 @@ -1,5 +1,5 @@ Name: wai-extra -Version: 3.0.14.1 +Version: 3.0.14.3 Synopsis: Provides some basic WAI handlers and middleware. description: Provides basic WAI handler and middleware functionality: