diff options
Diffstat (limited to 'Command/Assistant.hs')
-rw-r--r-- | Command/Assistant.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/Command/Assistant.hs b/Command/Assistant.hs index 8a916aa55..08e96da07 100644 --- a/Command/Assistant.hs +++ b/Command/Assistant.hs @@ -19,10 +19,12 @@ import Assistant.Install import System.Environment -cmd :: [Command] -cmd = [noRepo checkNoRepoOpts $ dontCheck repoExists $ withOptions options $ - notBareRepo $ command "assistant" paramNothing seek SectionCommon - "automatically sync changes"] +cmd :: Command +cmd = dontCheck repoExists $ withOptions options $ notBareRepo $ + noRepo (withParams checkNoRepoOpts) $ + command "assistant" SectionCommon + "automatically sync changes" + paramNothing (withParams seek) options :: [Option] options = @@ -42,7 +44,7 @@ autoStopOption = flagOption [] "autostop" "stop in known repositories" startDelayOption :: Option startDelayOption = fieldOption [] "startdelay" paramNumber "delay before running startup scan" -seek :: CommandSeek +seek :: CmdParams -> CommandSeek seek ps = do stopdaemon <- getOptionFlag Command.Watch.stopOption foreground <- getOptionFlag Command.Watch.foregroundOption |