← Back to branch summary

~ubuntu-branches/ubuntu/wily/haskell-wai-extra/wily-proposed

« back to all changes in this revision

Viewing changes to Network/Wai/Middleware/Gzip.hs

  • Committer: Package Import Robot
  • Author(s): Joachim Breitner
  • Date: 2014-08-06 23:17:05 UTC
  • mfrom: (1.1.14)
  • Revision ID: package-import@ubuntu.com-20140806231705-gn3d5uklb2pvk8rw
Tags: 3.0.1.2-1
New upstream release

Show diffs side-by-side

added added

removed removed

Lines of Context:
Network/Wai/Middleware/Gzip.hs
79
79
gzip :: GzipSettings -> Middleware
80
80
gzip set app env sendResponse = app env $ \res ->
81
81
    case res of
 
82
        ResponseRaw{} -> sendResponse res
82
83
        ResponseFile{} | gzipFiles set == GzipIgnore -> sendResponse res
83
84
        _ -> if "gzip" `elem` enc && not isMSIE6 && not (isEncoded res)
84
85
                then