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

use widgetFile

Browse source
This commit is contained in:
Joey Hess 2012-07-26 22:54:31 -04:00
parent e40f94cbcd
commit 615dc09ffc
2 changed files with 8 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Assistant/Threads/WebApp.hs
View file

@ -21,7 +21,6 @@ import Git
import Yesod
import Yesod.Static
import Text.Hamlet
import Text.Julius
import Network.Socket (PortNumber)
import Text.Blaze.Renderer.String
import Data.Text
@ -90,7 +89,7 @@ autoUpdate poll gethtml home ms_delay ms_startdelay = do
let delay = show ms_delay
let startdelay = show ms_startdelay
addScriptRemote "http://ajax.googleapis.com/ajax/libs/jquery/1.6.2/jquery.min.js"
toWidgetHead $(juliusFile $ juliusTemplate "longpolling")
$(widgetFile "longpolling")
where
ms_to_seconds :: Int -> Int
ms_to_seconds ms = ceiling ((fromIntegral ms :: Double) / 1000)
@ -102,7 +101,7 @@ statusDisplay = do
time <- show <$> liftIO getCurrentTime
poll <- lift newIdent
$(whamletFile $ hamletTemplate "status")
$(widgetFile "status")
autoUpdate poll StatusR HomeR (3000 :: Int) (40 :: Int)