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 /Annex/SpecialRemote.hs | |
| parent | f013f71cb5d3f7eee3afb3eb8f01a33206d717c4 (diff) | |
more lambda-case conversion
Diffstat (limited to 'Annex/SpecialRemote.hs')
| -rw-r--r-- | Annex/SpecialRemote.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Annex/SpecialRemote.hs b/Annex/SpecialRemote.hs index c215208db..23b0f582f 100644 --- a/Annex/SpecialRemote.hs +++ b/Annex/SpecialRemote.hs @@ -81,8 +81,7 @@ autoEnable = do (Just name, Right t) -> whenM (canenable u) $ do showSideAction $ "Auto enabling special remote " ++ name dummycfg <- liftIO dummyRemoteGitConfig - res <- tryNonAsync $ setup t (Enable c) (Just u) Nothing c dummycfg - case res of + tryNonAsync (setup t (Enable c) (Just u) Nothing c dummycfg) >>= \case Left e -> warning (show e) Right _ -> return () _ -> return () |