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