diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-29 18:49:02 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-29 18:49:02 -0400 |
| commit | 902bb171212aaf9fc2e748d6ea1466fa2aba095b (patch) | |
| tree | bbc5651d9677f6db565ee21248a32d303b93eb7b /Storage | |
| parent | 6eab061c26ba8652063eaab6a04d710a8cf6be90 (diff) | |
| download | keysafe-902bb171212aaf9fc2e748d6ea1466fa2aba095b.tar.gz | |
minor
Diffstat (limited to 'Storage')
| -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 |