diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-12-05 15:00:50 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-12-05 15:00:50 -0400 |
commit | 236c467da19f34edb08f124e37fd26eb62c43fcf (patch) | |
tree | f4e488f77fb954812e4d48f399fc2ecab072afea /Command/EnableTor.hs | |
parent | f013f71cb5d3f7eee3afb3eb8f01a33206d717c4 (diff) |
more lambda-case conversion
Diffstat (limited to 'Command/EnableTor.hs')
-rw-r--r-- | Command/EnableTor.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/EnableTor.hs b/Command/EnableTor.hs index 72fa50448..b73d00277 100644 --- a/Command/EnableTor.hs +++ b/Command/EnableTor.hs @@ -91,8 +91,7 @@ checkHiddenService = bracket setup cleanup go g <- Annex.gitRepo -- Connect but don't bother trying to auth, -- we just want to know if the tor circuit works. - cv <- liftIO $ tryNonAsync $ connectPeer g addr - case cv of + liftIO (tryNonAsync $ connectPeer g addr) >>= \case Left e -> do warning $ "Unable to connect to hidden service. It may not yet have propigated to the Tor network. (" ++ show e ++ ") Will retry.." liftIO $ threadDelaySeconds (Seconds 2) |