get rid of head

cachix · Jan 3, 2024 · 57f1e2a · 57f1e2a
1 parent 32b7af0
commit 57f1e2a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Stamina/HTTP.hs b/src/Stamina/HTTP.hs
@@ -36,7 +36,7 @@ handler =
 
     -- https://developer.mozilla.org/en-US/docs/Web/HTTP/Headers/Retry-After
     lookupRetryAfter :: HTTP.Response body -> Maybe RetryAfterHeader
-    lookupRetryAfter = readMaybe . show . snd . head . filter ((== hRetryAfter) . fst) . HTTP.responseHeaders
+    lookupRetryAfter body = lookup hRetryAfter (HTTP.responseHeaders body) >>= readMaybe . show
 
 data RetryAfterHeader
   = RetryAfterDate UTCTime