httpd-shed 0.4.1.0 → 0.4.1.1

raw patch · 3 files changed

+8/−7 lines, 3 filessetup-changedPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Network/Shed/Httpd.hs +6/−3
• Setup.hs +0/−2
• httpd-shed.cabal +2/−2

@@ -178,9 +178,12 @@         line <- hGetLine h         case span (/= ':') line of           ("\r","") -> sendRequest h mode uri hds clen-          (name@"Content-Length",':':rest) ->-            readHeaders h mode uri (hds ++ [(name,dropWhile Char.isSpace rest)]) (Just (read rest))-          (name,':':rest) -> readHeaders h mode uri (hds ++ [(name,dropWhile Char.isSpace rest)]) clen+          (name,':':rest) ->+            case map Char.toLower name of+              "content-length" ->+                readHeaders h mode uri (hds ++ [(name,dropWhile Char.isSpace rest)]) (Just (read rest))+              _ ->+                readHeaders h mode uri (hds ++ [(name,dropWhile Char.isSpace rest)]) clen           _ -> hClose h -- strange format        message code = show code ++ " " ++ 

@@ -1,2 +0,0 @@-import Distribution.Simple-main = defaultMain

@@ -1,5 +1,5 @@ Name:           httpd-shed-Version:        0.4.1.0+Version:        0.4.1.1 License:        BSD3 License-File:   LICENSE Author:         Andy Gill, Brandon Moore, Henning Thielemann, John Van Enk.@@ -42,7 +42,7 @@   else      build-depends: network < 2.7   Build-Depends:-    network >=2.3     && <3.1,+    network >=2.3     && <3.2,     network-uri >=2.5 && <2.7,     base >= 4.0 && <5.0   Ghc-Options: -Wall