diff options
author | Joey Hess <joey@kitenet.net> | 2011-09-19 01:57:12 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-09-19 02:04:54 -0400 |
commit | 3b2e4620184e2f7cc2dfd72b80e1e9eb8bd1dfef (patch) | |
tree | 54c07c483d0e5dd13e95aa6402b7bd5dc048a8e6 | |
parent | a4aef6f11508078b6d593ec9daea2c4225e630c4 (diff) |
tweak
-rw-r--r-- | Limit.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -43,10 +43,10 @@ getMatcher' = do {- Adds something to the limit list, which is built up reversed. -} 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 - append (Left ls) = Left $ l:ls - append _ = error "internal" + prepend (Left ls) = Left $ l:ls + prepend _ = error "internal" {- Adds a new limit. -} addlimit :: (FilePath -> Annex Bool) -> Annex () @@ -65,7 +65,7 @@ addExclude glob = addlimit $ return . notExcluded regex = '^':wildToRegex glob {- Adds a limit to skip files not believed to be present - - on a specfied repository. -} + - in a specfied repository. -} addIn :: String -> Annex () addIn name = do u <- Remote.nameToUUID name |