mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

more build fixes (remove phantom shutdown page)

Browse source
This commit is contained in:
Joey Hess 2013-11-25 14:33:14 -04:00
parent ab4fd36c0e
commit 8a9928742f
1 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/WebApp/Control.hs
View file

@ -38,8 +38,7 @@ getShutdownConfirmedR = do
- the transfer processes). -} - the transfer processes). -}
ts <- M.keys . currentTransfers <$> getDaemonStatus ts <- M.keys . currentTransfers <$> getDaemonStatus
mapM_ pauseTransfer ts mapM_ pauseTransfer ts
page "Shutdown" Nothing $ do webapp <- getYesod
webapp <- liftH getYesod
let url = T.unpack $ yesodRender webapp (T.pack "") NotRunningR [] let url = T.unpack $ yesodRender webapp (T.pack "") NotRunningR []
{- Signal any other web browsers. -} {- Signal any other web browsers. -}
liftAssistant $ do liftAssistant $ do