1 files changed, 1 insertions, 1 deletions
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)