Merge pull request #78 from begriffs/lookup

Remove getHeader, fixes #77

test/Feature/InsertSpec.hs

@@ -39,7 +39,7 @@ spec = around appWithFixture $ do
             simpleBody p `shouldBe` ""
             simpleHeaders p `shouldSatisfy` matchHeader hLocation "/auto_incrementing_pk\\?id=eq\\.[0-9]+"
             simpleStatus p `shouldBe` created201
-          let Just location = getHeader hLocation $ simpleHeaders p
+          let Just location = lookup hLocation $ simpleHeaders p
           r <- get location
           let [record] = fromJust (JSON.decode $ simpleBody r :: Maybe [IncPK])
           liftIO $ do

test/SpecHelper.hs

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