spec: delete dead code

PostgREST · Oct 6, 2023 · b575ae2 · b575ae2
1 parent 763887b
commit b575ae2
Showing 1 changed file with 0 additions and 6 deletions.
diff --git a/test/spec/SpecHelper.hs b/test/spec/SpecHelper.hs
@@ -59,12 +59,6 @@ matchHeaderAbsent name = MatchHeader $ \headers _body ->
     Just _  -> Just $ "unexpected header: " <> toS (original name) <> "\n"
     Nothing -> Nothing
 
-matchHeaderPresent :: HeaderName -> MatchHeader
-matchHeaderPresent name = MatchHeader $ \headers _body ->
-  case lookup name headers of
-    Just _  -> Nothing
-    Nothing -> Just $ "missing header: " <> toS (original name) <> "\n"
-
 -- | Matches Server-Timing header has a well-formed metric with the given name
 matchServerTimingHasTiming :: String -> MatchHeader
 matchServerTimingHasTiming metric = MatchHeader $ \headers _body ->