From e0095b0bdc88147a081f3539975f20096fd0ea3c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 14 Jun 2012 00:01:48 -0400
Subject: fishy commit

---
 Seek.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Seek.hs')

diff --git a/Seek.hs b/Seek.hs
index eed4a8155..2cf0d8d46 100644
--- a/Seek.hs
+++ b/Seek.hs
@@ -95,7 +95,7 @@ withValue v a params = do
  -}
 withField :: Option -> (Maybe String -> Annex a) -> (a -> CommandSeek) -> CommandSeek
 withField option converter = withValue $
-	converter =<< Annex.getField (Option.name option)
+	converter <=< Annex.getField $ Option.name option
 
 withFlag :: Option -> (Bool -> CommandSeek) -> CommandSeek
 withFlag option = withValue $ Annex.getFlag (Option.name option)
-- 
cgit v1.2.3