fishy commit

This commit is contained in:
Joey Hess 2012-06-14 00:01:48 -04:00
parent 89dad12b35
commit e0095b0bdc
7 changed files with 9 additions and 9 deletions

View file

@ -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)