improve error message

This commit was sponsored by Jack Hill on Patreon.

Annex/Url.hs

@@ -75,11 +75,13 @@ getUrlOptions = Annex.getState Annex.urloptions >>= \case
 				| isLoopbackAddress addr = False
 				| isPrivateAddress addr = False
 				| otherwise = True
+			let connectionrestricted = addrConnectionRestricted 
+				("Configuration of annex.security.allowed-http-addresses does not allow accessing address " ++)
 			let r = Restriction
 				{ addressRestriction = \addr ->
 					if isallowed (addrAddress addr)
 						then Nothing
-						else Just (addrConnectionRestricted addr)
+						else Just (connectionrestricted addr)
 				}
 			(settings, pr) <- liftIO $ 
 				restrictManagerSettings r U.managerSettings

Utility/HttpManagerRestricted.hs

@@ -16,6 +16,7 @@ module Utility.HttpManagerRestricted (
 	ConnectionRestricted(..),
 	addrConnectionRestricted,
 	ProxyRestricted(..),
+	IPAddrString,
 ) where
 
 import Network.HTTP.Client
@@ -34,25 +35,29 @@ data Restriction = Restriction
 	{ addressRestriction :: AddrInfo -> Maybe ConnectionRestricted
 	}
 
+-- | An exception used to indicate that the connection was restricted.
 data ConnectionRestricted = ConnectionRestricted String
 	deriving (Show, Typeable)
 
 instance Exception ConnectionRestricted
 
-addrConnectionRestricted :: AddrInfo -> ConnectionRestricted
+type IPAddrString = String
-addrConnectionRestricted addr = ConnectionRestricted $ unwords
+
-	 [ "Configuration does not allow accessing address"
+-- | Constructs a ConnectionRestricted, passing the function a string
-	 , showSockAddress (addrAddress addr)
+-- containing the IP address.
-	 ]
+addrConnectionRestricted :: (IPAddrString -> String) -> AddrInfo -> ConnectionRestricted
+addrConnectionRestricted mkmessage = 
+	ConnectionRestricted . mkmessage . showSockAddress . addrAddress
 
 data ProxyRestricted = ProxyRestricted
 	deriving (Show)
 
--- | Adjusts a ManagerSettings to enforce a Restriction.
+-- | Adjusts a ManagerSettings to enforce a Restriction. The restriction
+-- will be checked each time a Request is made, and for each redirect
+-- followed.
 --
--- This includes checking the http proxy against the Restriction.
+-- The http proxy is also checked against the Restriction, and if
--- If access to it is blocked, the ManagerSettings will be made to
+-- access to it is blocked, the http proxy will not be used.
--- not use the proxy.
 restrictManagerSettings
 	:: Restriction
 	-> ManagerSettings
@@ -219,7 +224,7 @@ convertConnection conn = makeConnection
 
 -- For ipv4 and ipv6, the string will contain only the IP address,
 -- omitting the port that the Show instance includes.
-showSockAddress :: SockAddr -> String
+showSockAddress :: SockAddr -> IPAddrString
 showSockAddress a@(SockAddrInet _ _) =
 	takeWhile (/= ':') $ show a
 showSockAddress a@(SockAddrInet6 _ _ _ _) =