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

pass Text into julius

Browse source 
May fix
http://git-annex.branchable.com/bugs/3.20121112:_build_error_in_assistant/
This commit is contained in:
Joey Hess 2012-11-17 16:19:54 -04:00
parent a9633d3e70
commit b0a76592c3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp/Notifications.hs
View file

@ -33,8 +33,8 @@ import qualified Data.Text as T
-} -}
autoUpdate :: Text -> Route WebApp -> Int -> Int -> Widget autoUpdate :: Text -> Route WebApp -> Int -> Int -> Widget
autoUpdate ident geturl ms_delay ms_startdelay = do autoUpdate ident geturl ms_delay ms_startdelay = do
let delay = show ms_delay let delay = T.pack (show ms_delay)
let startdelay = show ms_startdelay let startdelay = T.pack (show ms_startdelay)
addScript $ StaticR longpolling_js addScript $ StaticR longpolling_js
$(widgetFile "notifications/longpolling") $(widgetFile "notifications/longpolling")