pass Text into julius
May fix http://git-annex.branchable.com/bugs/3.20121112:_build_error_in_assistant/
This commit is contained in:
parent
a9633d3e70
commit
b0a76592c3
1 changed files with 2 additions and 2 deletions
|
@ -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")
|
||||
|
||||
|
|
Loading…
Reference in a new issue