diff options
author | Joey Hess <joey@kitenet.net> | 2014-03-22 10:42:38 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-03-22 14:12:19 -0400 |
commit | 35419994e9418444dc82e5c90c579203cc4c3616 (patch) | |
tree | 0d4374fbc7f233cfa409e9e142b36f00d12f71f4 /Command/List.hs | |
parent | f2a5858f85f1d6e999d707f4b48cd2ea643197bc (diff) |
add desktop notifications
Motivation: Hook scripts for nautilus or other file managers
need to provide the user with feedback that a file is being downloaded.
This commit was sponsored by THM Schoemaker.
Diffstat (limited to 'Command/List.hs')
-rw-r--r-- | Command/List.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/List.hs b/Command/List.hs index ba6251333..1fa206405 100644 --- a/Command/List.hs +++ b/Command/List.hs @@ -38,7 +38,7 @@ seek ps = do getList :: Annex [(UUID, RemoteName, TrustLevel)] getList = ifM (Annex.getFlag $ optionName allrepos) - ( nubBy ((==) `on` fst3) <$> ((++) <$> getRemotes <*> getAll) + ( nubBy ((==) `on` fst3) <$> ((++) <$> getRemotes <*> getAllUUIDs) , getRemotes ) where @@ -48,7 +48,7 @@ getList = ifM (Annex.getFlag $ optionName allrepos) hereu <- getUUID heretrust <- lookupTrust hereu return $ (hereu, "here", heretrust) : zip3 (map uuid rs) (map name rs) ts - getAll = do + getAllUUIDs = do rs <- M.toList <$> uuidMap rs3 <- forM rs $ \(u, n) -> (,,) <$> pure u |