diff options
Diffstat (limited to 'Command/WebApp.hs')
-rw-r--r-- | Command/WebApp.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/WebApp.hs b/Command/WebApp.hs index e872d4be0..dab8e1e5b 100644 --- a/Command/WebApp.hs +++ b/Command/WebApp.hs @@ -37,10 +37,10 @@ import Control.Concurrent.STM import Network.Socket (HostName) import System.Environment (getArgs) -cmd :: [Command] -cmd = [ withOptions [listenOption] $ +cmd :: Command +cmd = withOptions [listenOption] $ noCommit $ noRepo startNoRepo $ dontCheck repoExists $ notBareRepo $ - command "webapp" paramNothing seek SectionCommon "launch webapp"] + command "webapp" paramNothing seek SectionCommon "launch webapp" listenOption :: Option listenOption = fieldOption [] "listen" paramAddress |