mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

hlint

Browse source
This commit is contained in:
Joey Hess 2014-10-09 15:35:19 -04:00
parent dd667844b6
commit b61c6bc2ff
18 changed files with 50 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/InitRemote.hs
View file

@ -63,7 +63,7 @@ findExisting name = do
return $ headMaybe matches
newConfig :: String -> R.RemoteConfig
newConfig name = M.singleton nameKey name
newConfig = M.singleton nameKey
findByName :: String -> M.Map UUID R.RemoteConfig -> [(UUID, R.RemoteConfig)]
findByName n = filter (matching . snd) . M.toList