diff options
Diffstat (limited to 'Command/Log.hs')
| -rw-r--r-- | Command/Log.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Command/Log.hs b/Command/Log.hs index 495c43c5a..eb740b249 100644 --- a/Command/Log.hs +++ b/Command/Log.hs @@ -38,11 +38,12 @@ data RefChange = RefChange type Outputter = Bool -> POSIXTime -> [UUID] -> Annex () -cmd :: [Command] -cmd = [withOptions options $ - command "log" paramPaths seek SectionQuery "shows location log"] +cmd :: Command +cmd = withGlobalOptions options $ + command "log" SectionQuery "shows location log" + paramPaths (withParams seek) -options :: [Option] +options :: [GlobalOption] options = passthruOptions ++ [gourceOption] ++ annexedMatchingOptions passthruOptions :: [Option] @@ -56,7 +57,7 @@ passthruOptions = map odate ["since", "after", "until", "before"] ++ gourceOption :: Option gourceOption = flagOption [] "gource" "format output for gource" -seek :: CommandSeek +seek :: CmdParams -> CommandSeek seek ps = do m <- Remote.uuidDescriptions zone <- liftIO getCurrentTimeZone |