From 902bb171212aaf9fc2e748d6ea1466fa2aba095b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 29 Aug 2016 18:49:02 -0400 Subject: minor --- Storage/Network.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Storage') diff --git a/Storage/Network.hs b/Storage/Network.hs index c124761..a1802e6 100644 --- a/Storage/Network.hs +++ b/Storage/Network.hs @@ -82,7 +82,7 @@ serverRequest -> (r -> a) -> (Maybe ProofOfWork -> Manager -> BaseUrl -> ExceptT ServantError IO (ProofOfWorkRequirement r)) -> IO a -serverRequest srv onerr onsuccess a = go Nothing =<< newManager torableManager +serverRequest srv onerr onsuccess a = go Nothing =<< torableManager where url = serverUrl srv go pow manager = do @@ -94,8 +94,8 @@ serverRequest srv onerr onsuccess a = go Nothing =<< newManager torableManager Right needpow -> error "NEEDPOW" -- loop with pow -- | HTTP Manager supporting tor .onion and regular hosts -torableManager :: ManagerSettings -torableManager = defaultManagerSettings +torableManager :: IO Manager +torableManager = newManager $ defaultManagerSettings { managerRawConnection = return conn } where -- cgit v1.2.3