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

add liftH shim between yesod versions, to avoid needing zillions of ifdefs

Browse source
This commit is contained in:
Joey Hess 2013-06-03 13:51:54 -04:00
parent 79fd677805
commit 31753bad46
16 changed files with 66 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp/DashBoard.hs
View file

@ -30,8 +30,8 @@ import Control.Concurrent
{- A display of currently running and queued transfers. -}
transfersDisplay :: Bool -> Widget
transfersDisplay warnNoScript = do
webapp <- handlerToWidget getYesod
current <- handlerToWidget $ M.toList <$> getCurrentTransfers
webapp <- liftH getYesod
current <- liftH $ M.toList <$> getCurrentTransfers
queued <- take 10 <$> liftAssistant getTransferQueue
autoUpdate ident NotifierTransfersR (10 :: Int) (10 :: Int)
let transfers = simplifyTransfers $ current ++ queued