summaryrefslogtreecommitdiff
path: root/Remote.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-10-09 15:35:19 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-10-09 15:46:05 -0400
commitf3d197128322981d58677ba165f7d33158e07940 (patch)
treed73f043118c4b50313fc8475222df6245eac2beb /Remote.hs
parentcfc51c5e4ec04f9d5088c42922217cf90b63c903 (diff)
hlint
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)