summaryrefslogtreecommitdiff
path: root/Seek.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-06-14 00:01:48 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-06-14 00:01:48 -0400
commite0095b0bdc88147a081f3539975f20096fd0ea3c (patch)
treefff3ef6f2684ccbb6d8b2b2d988c20bcba5ffca6 /Seek.hs
parent89dad12b3510f2540c6678e68145d922c7db5a7b (diff)
fishy commit
Diffstat (limited to 'Seek.hs')
-rw-r--r--Seek.hs2
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)