diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Log.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Command/Log.hs b/Command/Log.hs index d59c8efd8..4a2bb7a7f 100644 --- a/Command/Log.hs +++ b/Command/Log.hs @@ -37,13 +37,13 @@ def = [withOptions options $ command "log" paramPaths seek "shows location log"] options :: [Option] -options = - [ Option.field [] "since" paramDate "show log since date" - , Option.field [] "after" paramDate "show log after date" - , 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" +options = map odate ["since", "after", "until", "before"] ++ + [ 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 = [withValue (concat <$> mapM getoption options) $ \os -> |