Remove getHeader, fixes #77

2014-10-14 10:30:23 -07:00
parent 605c876bf5
commit 80c55789b5
2 changed files with 2 additions and 5 deletions
@@ -75,12 +75,9 @@ rangeHdrs r = [rangeUnit, (hRange, renderByteRange r)]
 rangeUnit :: Header
 rangeUnit = ("Range-Unit" :: CI BS.ByteString, "items")

-getHeader :: CI BS.ByteString -> [Header] -> Maybe BS.ByteString
-getHeader = lookup
-
 matchHeader :: CI BS.ByteString -> String -> [Header] -> Bool
 matchHeader name valRegex headers =
-  maybe False (=~ valRegex) $ getHeader name headers
+  maybe False (=~ valRegex) $ lookup name headers

 authHeader :: String -> String -> Header
 authHeader user pass =