diff options
Diffstat (limited to 'Limit.hs')
| -rw-r--r-- | Limit.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -67,7 +67,7 @@ addExclude glob = addLimit $ return . notExcluded addIn :: String -> Annex () addIn name = addLimit $ check $ if name == "." then inAnnex else inremote where - check a f = Backend.lookupFile f >>= handle a + check a = Backend.lookupFile >=> handle a handle _ Nothing = return False handle a (Just (key, _)) = a key inremote key = do @@ -83,7 +83,7 @@ addCopies num = Nothing -> error "bad number for --copies" Just n -> addLimit $ check n where - check n f = Backend.lookupFile f >>= handle n + check n = Backend.lookupFile >=> handle n handle _ Nothing = return False handle n (Just (key, _)) = do us <- keyLocations key |