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

@ -65,14 +65,13 @@ addExclude glob = addLimit $ return . notExcluded
{- Adds a limit to skip files not believed to be present
- in a specfied repository. -}
addIn :: String -> Annex ()
addIn name = do
u <- Remote.nameToUUID name
addLimit $ if name == "." then check inAnnex else check (remote u)
addIn name = addLimit $ check $ if name == "." then inAnnex else inremote
where
check a f = Backend.lookupFile f >>= handle a
handle _ Nothing = return False
handle a (Just (key, _)) = a key
remote u key = do
inremote key = do
u <- Remote.nameToUUID name
us <- keyLocations key
return $ u `elem` us