aboutsummaryrefslogtreecommitdiff
path: root/Remote.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-11 01:35:11 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-11 10:48:52 -0400
commitf4dee5a48229d6e17c87b7346509bf37811367d5 (patch)
tree44ec976fed590223c00cf0725bb5d5e28305e592 /Remote.hs
parent82feaf7305d2e40155ffd8e80c5f3bf6c9a71bd6 (diff)
more hlint
Diffstat (limited to 'Remote.hs')
-rw-r--r--Remote.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Remote.hs b/Remote.hs
index f2af025fb..5fc6d1c00 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -189,8 +189,7 @@ prettyUUID u = concat <$> prettyListUUIDs [u]
remoteFromUUID :: UUID -> Annex (Maybe Remote)
remoteFromUUID u = ifM ((==) u <$> getUUID)
( return Nothing
- , do
- maybe tryharder (return . Just) =<< findinmap
+ , maybe tryharder (return . Just) =<< findinmap
)
where
findinmap = M.lookup u <$> remoteMap id