@@ -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