summaryrefslogtreecommitdiff
path: root/Remote.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Remote.hs')
-rw-r--r--Remote.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Remote.hs b/Remote.hs
index 0e725c215..37dfafa1f 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -103,12 +103,12 @@ byNameWithUUID = checkuuid <=< byName
where
checkuuid Nothing = return Nothing
checkuuid (Just r)
- | uuid r == NoUUID =
+ | uuid r == NoUUID = error $
if remoteAnnexIgnore (gitconfig r)
- then error $ noRemoteUUIDMsg r ++
+ then noRemoteUUIDMsg r ++
" (" ++ show (remoteConfig (repo r) "ignore") ++
" is set)"
- else error $ noRemoteUUIDMsg r
+ else noRemoteUUIDMsg r
| otherwise = return $ Just r
byName' :: RemoteName -> Annex (Either String Remote)