on master help sign in
Update README.lhs (and README.md)
commitfc4b92a88bea9b9114da72a51b907427b413e2dd authorSimon Hengel <sol@typeful.net> dateWed 1 Feb 2012, 10:43 (15 years ago) parente173f3b
2 files changed+4−2
wai/README.lhs+2−1 wai/README.md+2−1
wai/README.lhs+2−1
@@ -99,10 +99,11 @@ works without GHC extensions:
9999
100100 import qualified Data.ByteString.Char8 as B8
101101 import qualified Data.ByteString.Lazy.Char8 as LB8
102+ import Data.CaseInsensitive (mk)
102103
103104 notFound = responseLBS
104105 status404
105− [("Content-Type", B8.pack "text/plain")]
106+ [(mk $ B8.pack "Content-Type", B8.pack "text/plain")]
106107 (LB8.pack "404 - Not Found")
107108
108109
wai/README.md+2−1
@@ -94,10 +94,11 @@ For the sake of efficiency, WAI uses the [bytestring] package. We used GHCs [ov
9494
9595 import qualified Data.ByteString.Char8 as B8
9696 import qualified Data.ByteString.Lazy.Char8 as LB8
97+ import Data.CaseInsensitive (mk)
9798
9899 notFound = responseLBS
99100 status404
100− [("Content-Type", B8.pack "text/plain")]
101+ [(mk $ B8.pack "Content-Type", B8.pack "text/plain")]
101102 (LB8.pack "404 - Not Found")
102103
103104