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

lifyH getYesod, to work with older version

Browse source
This commit is contained in:
Joey Hess 2013-11-25 12:54:59 -04:00
parent 46ee2ea2e6
commit 7dc02b0c91
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Control.hs
View file

@ -39,7 +39,7 @@ getShutdownConfirmedR = do
ts <- M.keys . currentTransfers <$> getDaemonStatus ts <- M.keys . currentTransfers <$> getDaemonStatus
mapM_ pauseTransfer ts mapM_ pauseTransfer ts
page "Shutdown" Nothing $ do 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