@@ -309,11 +309,11 @@ deepMerge = LS.foldl' go mempty
309309 merge _ b = b
310310
311311
312−statusCodeIs :: Int -> Reply -> Bool
313−statusCodeIs n resp = NHTS.statusCode (responseStatus resp) == n
312+statusCodeIs :: (Int, Int) -> Reply -> Bool
313+statusCodeIs r resp = inRange r $ NHTS.statusCode (responseStatus resp)
314314
315315respIsTwoHunna :: Reply -> Bool
316−respIsTwoHunna = statusCodeIs 200
316+respIsTwoHunna = statusCodeIs (200, 299)
317317
318318existentialQuery :: MonadBH m => Text -> m (Reply, Bool)
319319existentialQuery url = do