playing with >=>

Apparently in haskell if you teach a man to fish, he'll write
more pointfree code.

1 files changed, 2 insertions, 2 deletions

diff --git a/Limit.hs b/Limit.hs
index 490577e80..3ae949bfb 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -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