webapp: More adjustments to longpoll code to deal with changes in variable quoting in different versions of shakespeare-js.

This commit is contained in:
Joey Hess 2013-01-14 18:35:33 -04:00
parent 3bef53b0f7
commit 5a9f8acb99
3 changed files with 9 additions and 2 deletions

View file

@ -39,7 +39,7 @@ autoUpdate tident geturl ms_delay ms_startdelay = do
#ifdef WITH_OLD_YESOD
let delay = show ms_delay
let startdelay = show ms_startdelay
let ident = tident
let ident = "'" ++ T.unpack tident ++ "'"
#else
let delay = Aeson.String (T.pack (show ms_delay))
let startdelay = Aeson.String (T.pack (show ms_startdelay))