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