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 /Command/InitRemote.hs | |
| parent | cfc51c5e4ec04f9d5088c42922217cf90b63c903 (diff) | |
hlint
Diffstat (limited to 'Command/InitRemote.hs')
| -rw-r--r-- | Command/InitRemote.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/InitRemote.hs b/Command/InitRemote.hs index dc54023cc..2112c52f9 100644 --- a/Command/InitRemote.hs +++ b/Command/InitRemote.hs @@ -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 |