diff options
author | Joey Hess <joey@kitenet.net> | 2013-01-26 17:09:33 +1100 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-01-26 17:09:33 +1100 |
commit | dc60216eb8fe919acf7ab3984a5f0bf0e0193f6b (patch) | |
tree | 7fb8c8bd0189f1868e732fc1c6047df933333ecf /Assistant/Threads/WebApp.hs | |
parent | f0f97334d017eac6d1693bac90c772022fa57aa7 (diff) |
webapp: Now allows restarting any threads that crash.
Diffstat (limited to 'Assistant/Threads/WebApp.hs')
-rw-r--r-- | Assistant/Threads/WebApp.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs index c4c9fa87a..e2eed4588 100644 --- a/Assistant/Threads/WebApp.hs +++ b/Assistant/Threads/WebApp.hs @@ -38,9 +38,6 @@ import Yesod.Static import Network.Socket (SockAddr) import Data.Text (pack, unpack) -thisThread :: String -thisThread = "WebApp" - mkYesodDispatch "WebApp" $(parseRoutesFile "Assistant/WebApp/routes") type Url = String @@ -76,7 +73,7 @@ webAppThread assistantdata urlrenderer noannex postfirstrun onstartup = thread $ urlfile <- runThreadState st $ fromRepo gitAnnexUrlFile go addr webapp htmlshim (Just urlfile) where - thread = NamedThread thisThread + thread = namedThread "WebApp" getreldir | noannex = return Nothing | otherwise = Just <$> |