diff options
author | Joey Hess <joey@kitenet.net> | 2014-10-09 15:35:19 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-10-09 15:46:05 -0400 |
commit | f3d197128322981d58677ba165f7d33158e07940 (patch) | |
tree | d73f043118c4b50313fc8475222df6245eac2beb /Remote.hs | |
parent | cfc51c5e4ec04f9d5088c42922217cf90b63c903 (diff) |
hlint
Diffstat (limited to 'Remote.hs')
-rw-r--r-- | Remote.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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) |