fishy commit
This commit is contained in:
parent
89dad12b35
commit
e0095b0bdc
7 changed files with 9 additions and 9 deletions
2
Seek.hs
2
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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue