summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-09-19 01:57:12 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-09-19 02:04:54 -0400
commit3b2e4620184e2f7cc2dfd72b80e1e9eb8bd1dfef (patch)
tree54c07c483d0e5dd13e95aa6402b7bd5dc048a8e6
parenta4aef6f11508078b6d593ec9daea2c4225e630c4 (diff)
tweak
-rw-r--r--Limit.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/Limit.hs b/Limit.hs
index d8ec4484c..f57895aee 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -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