pass Text into julius

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

View file

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