diff options
| -rw-r--r-- | Utility/Url.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Utility/Url.hs b/Utility/Url.hs index a4523d73f..da1a38dd3 100644 --- a/Utility/Url.hs +++ b/Utility/Url.hs @@ -110,6 +110,7 @@ checkBoth :: URLString -> Maybe Integer -> UrlOptions -> IO Bool checkBoth url expected_size uo = do v <- check url expected_size uo return (fst v && snd v) + check :: URLString -> Maybe Integer -> UrlOptions -> IO (Bool, Bool) check url expected_size = go <$$> getUrlInfo url where |