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

tweak

Browse source
This commit is contained in:
Joey Hess 2011-09-19 01:57:12 -04:00
parent a4aef6f115
commit 3b2e462018
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Limit.hs
View file

@ -43,10 +43,10 @@ getMatcher' = do
{- Adds something to the limit list, which is built up reversed. -} {- Adds something to the limit list, which is built up reversed. -}
add :: Limit -> Annex () add :: Limit -> Annex ()
add l = Annex.changeState $ \s -> s { Annex.limit = append $ Annex.limit s } add l = Annex.changeState $ \s -> s { Annex.limit = prepend $ Annex.limit s }
where where
append (Left ls) = Left $ l:ls prepend (Left ls) = Left $ l:ls
append _ = error "internal" prepend _ = error "internal"
{- Adds a new limit. -} {- Adds a new limit. -}
addlimit :: (FilePath -> Annex Bool) -> Annex () addlimit :: (FilePath -> Annex Bool) -> Annex ()
@ -65,7 +65,7 @@ addExclude glob = addlimit $ return . notExcluded
regex = '^':wildToRegex glob regex = '^':wildToRegex glob
{- Adds a limit to skip files not believed to be present {- Adds a limit to skip files not believed to be present
- on a specfied repository. -} - in a specfied repository. -}
addIn :: String -> Annex () addIn :: String -> Annex ()
addIn name = do addIn name = do
u <- Remote.nameToUUID name u <- Remote.nameToUUID name