diff options
| -rw-r--r-- | Storage/Network.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |