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

finished hlint pass

Browse source
This commit is contained in:
Joey Hess 2011-07-15 12:47:14 -04:00
parent 185f0b6870
commit 6c396a256c
29 changed files with 114 additions and 115 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/Web.hs
View file

@ -52,7 +52,7 @@ webUUID = "00000000-0000-0000-0000-000000000001"
gen :: Git.Repo -> UUID -> Maybe RemoteConfig -> Annex (Remote Annex)
gen r _ _ =
return $ Remote {
return Remote {
uuid = webUUID,
cost = expensiveRemoteCost,
name = Git.repoDescribe r,
@ -111,7 +111,7 @@ checkKey' (u:us) = do
if e then return e else checkKey' us
urlexists :: URLString -> IO Bool
urlexists url = do
urlexists url =
case parseURI url of
Nothing -> return False
Just u -> do