mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

tweak

Browse source
This commit is contained in:
Joey Hess 2012-01-06 21:51:39 -04:00
parent 2557bb8764
commit 64f9d00bed
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Command/Log.hs
View file

@ -37,13 +37,13 @@ def = [withOptions options $
command "log" paramPaths seek "shows location log"] command "log" paramPaths seek "shows location log"]
options :: [Option] options :: [Option]
options = options = map odate ["since", "after", "until", "before"] ++
[ Option.field [] "since" paramDate "show log since date" [ Option.field ['n'] "max-count" paramNumber
, Option.field [] "after" paramDate "show log after date" "limit number of logs displayed"
, Option.field [] "until" paramDate "show log until date"
, Option.field [] "before" paramDate "show log before date"
, Option.field ['n'] "max-count" paramNumber "limit number of logs displayed"
] ]
where
odate n = Option.field [] n paramDate $
"show log " ++ n ++ " date"
seek :: [CommandSeek] seek :: [CommandSeek]
seek = [withValue (concat <$> mapM getoption options) $ \os -> seek = [withValue (concat <$> mapM getoption options) $ \os ->