diff options
author | 2013-01-26 17:09:33 +1100 | |
---|---|---|
committer | 2013-01-26 17:09:33 +1100 | |
commit | dc60216eb8fe919acf7ab3984a5f0bf0e0193f6b (patch) | |
tree | 7fb8c8bd0189f1868e732fc1c6047df933333ecf /Assistant/Threads/Merger.hs | |
parent | f0f97334d017eac6d1693bac90c772022fa57aa7 (diff) |
webapp: Now allows restarting any threads that crash.
Diffstat (limited to 'Assistant/Threads/Merger.hs')
-rw-r--r-- | Assistant/Threads/Merger.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Assistant/Threads/Merger.hs b/Assistant/Threads/Merger.hs index c581f8087..d8eea8c84 100644 --- a/Assistant/Threads/Merger.hs +++ b/Assistant/Threads/Merger.hs @@ -17,13 +17,10 @@ import qualified Git import qualified Git.Branch import qualified Command.Sync -thisThread :: ThreadName -thisThread = "Merger" - {- This thread watches for changes to .git/refs/, and handles incoming - pushes. -} mergeThread :: NamedThread -mergeThread = NamedThread "Merger" $ do +mergeThread = namedThread "Merger" $ do g <- liftAnnex gitRepo let dir = Git.localGitDir g </> "refs" liftIO $ createDirectoryIfMissing True dir |