minor syntax changes

This commit is contained in:
Joey Hess 2011-10-11 14:43:45 -04:00
parent 025ded4a2d
commit b505ba83e8
19 changed files with 78 additions and 95 deletions

View file

@ -48,7 +48,7 @@ gen r u _ = do
(False, "") -> tryGitConfigRead r
_ -> return r
u' <- getUUID r'
u' <- getRepoUUID r'
let defcst = if cheap then cheapRemoteCost else expensiveRemoteCost
cst <- remoteCost r' defcst