From 440f3b1068a1d0a49dff1307124c4f7f0bcd6f5d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 30 Nov 2013 15:18:40 -0400 Subject: make "git annex help options" work outside a git repo Option parsing for commands that run outside git repos is still screwy, as there is no Annex monad and so the flags cannot be passed in. But, any remaining parameters can be, which is enough for this fix. --- Command/WebApp.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Command/WebApp.hs') diff --git a/Command/WebApp.hs b/Command/WebApp.hs index 70f28a113..a009be15d 100644 --- a/Command/WebApp.hs +++ b/Command/WebApp.hs @@ -82,7 +82,7 @@ start' allowauto listenhost = do else openBrowser browser htmlshim url origout origerr ) auto - | allowauto = liftIO startNoRepo + | allowauto = liftIO $ startNoRepo [] | otherwise = do d <- liftIO getCurrentDirectory error $ "no git repository in " ++ d @@ -93,8 +93,8 @@ start' allowauto listenhost = do {- When run without a repo, start the first available listed repository in - the autostart file. If not, it's our first time being run! -} -startNoRepo :: IO () -startNoRepo = do +startNoRepo :: CmdParams -> IO () +startNoRepo _ = do -- FIXME should be able to reuse regular getopt, but -- it currently runs in the Annex monad. args <- getArgs -- cgit v1.2.3