diff options
author | Joey Hess <joey@kitenet.net> | 2012-09-13 00:57:52 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-09-13 00:57:52 -0400 |
commit | df337bb63b4ed6e5d2ce563ec89d28d192e791db (patch) | |
tree | 638813a415727b8a5441ba450e20e6dc2632c970 /Assistant/MakeRemote.hs | |
parent | a3913f52e52777b18bd8e50ff593a4f4085e8b93 (diff) |
hlint
Diffstat (limited to 'Assistant/MakeRemote.hs')
-rw-r--r-- | Assistant/MakeRemote.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/MakeRemote.hs b/Assistant/MakeRemote.hs index 1b3e6dd7d..8e9867b2c 100644 --- a/Assistant/MakeRemote.hs +++ b/Assistant/MakeRemote.hs @@ -52,7 +52,7 @@ makeSshRemote st dstatus scanremotes forcersync sshdata = do addRemote :: Annex String -> Annex Remote addRemote a = do name <- a - void $ remoteListRefresh + void remoteListRefresh maybe (error "failed to add remote") return =<< Remote.byName (Just name) {- Inits a rsync special remote, and returns the name of the remote. -} @@ -84,7 +84,7 @@ makeGitRemote basename location = makeRemote basename location $ \name -> makeRemote :: String -> String -> (String -> Annex ()) -> Annex String makeRemote basename location a = do r <- fromRepo id - if (null $ filter samelocation $ Git.remotes r) + if not (any samelocation $ Git.remotes r) then do let name = uniqueRemoteName r basename 0 a name |