From 9dabe85bb5b50fac0bfc8b40a18f785926ad53dc Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Dec 2016 00:17:36 -0400 Subject: [PATCH] whitespace --- Utility/Url.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Utility/Url.hs b/Utility/Url.hs index a4523d73f7..da1a38dd33 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 -- 2.30.2