diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-02 00:42:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-02 00:42:33 -0400 |
| commit | 60da0d6ad28bff7c601ba631a8ec65030f940367 (patch) | |
| tree | 56b137977c3f88c46e406859db8457a08fb80371 /Assistant | |
| parent | 23fe661d37ceb6c7bf754e9dc8fd5dda89793b63 (diff) | |
full autostart support
git annex assistant --autostart will start separate daemons in each
listed autostart repo
running the webapp outside any git-annex repo will open it on the
first listed autostart repo
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/WebApp/Configurators.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Assistant/WebApp/Configurators.hs b/Assistant/WebApp/Configurators.hs index e1fcfcd97..01245b4bc 100644 --- a/Assistant/WebApp/Configurators.hs +++ b/Assistant/WebApp/Configurators.hs @@ -21,6 +21,7 @@ import Init import qualified Git.Construct import qualified Git.Config import qualified Annex +import Locations.UserConfig import Yesod import Data.Text (Text) @@ -159,7 +160,10 @@ makeRepo path = do error "git init failed!" g <- Git.Config.read =<< Git.Construct.fromPath path state <- Annex.new g - Annex.eval state $ initialize $ Just "new repo" + Annex.eval state $ initialize $ Just "new repo" -- TODO better description + autostart <- autoStartFile + createDirectoryIfMissing True (parentDir autostart) + appendFile autostart $ path ++ "\n" getAddRepositoryR :: Handler RepHtml getAddRepositoryR = bootstrap (Just Config) $ do |