diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-28 12:40:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-28 12:40:05 -0400 |
| commit | 045b051ec10023afc2e62895032527d5b5130495 (patch) | |
| tree | a438d96566ccebbccf5c1ec1d35e43d2c5097578 /Backend | |
| parent | 9c7b3dce9e8f964ed60dd45bca580a46ff8a5ed5 (diff) | |
got rid of almost all 'return ()'
Diffstat (limited to 'Backend')
| -rw-r--r-- | Backend/File.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Backend/File.hs b/Backend/File.hs index 4b9a3b45b..b45354752 100644 --- a/Backend/File.hs +++ b/Backend/File.hs @@ -129,7 +129,7 @@ checkRemoveKey key = do "Could only verify the existence of " ++ (show have) ++ " out of " ++ (show need) ++ " necessary copies" - if (not $ null bad) then showTriedRemotes bad else return () + showTriedRemotes bad showLocations key hint return False @@ -146,7 +146,8 @@ showLocations key = do if (null uuidsf) then showLongNote $ "No other repository is known to contain the file." else showLongNote $ "Try making some of these repositories available:\n" ++ ppuuids - + +showTriedRemotes [] = return () showTriedRemotes remotes = showLongNote $ "I was unable to access these remotes: " ++ (Remotes.list remotes) |