diff options
author | 2012-07-30 18:01:41 -0400 | |
---|---|---|
committer | 2012-07-30 18:01:41 -0400 | |
commit | 502bc5d5f84a26bfd2ca700d8f90d78a81c7b1ac (patch) | |
tree | 113863fb55a035b57ef912f01ad974b01a829423 /Assistant/Threads/WebApp.hs | |
parent | d1358cc96f2e719a90e2192a24e61c57ce9ed50c (diff) |
rewrote longpolling, trying to avoid duplication
does not work though. stupid JS
Diffstat (limited to 'Assistant/Threads/WebApp.hs')
-rw-r--r-- | Assistant/Threads/WebApp.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs index e75870e0d..7b96665d3 100644 --- a/Assistant/Threads/WebApp.hs +++ b/Assistant/Threads/WebApp.hs @@ -146,6 +146,7 @@ autoUpdate :: Text -> Route WebApp -> Int -> Int -> Widget autoUpdate ident gethtml ms_delay ms_startdelay = do let delay = show ms_delay let startdelay = show ms_startdelay + addScript $ StaticR longpolling_js $(widgetFile "longpolling") {- A display of currently running and queued transfers. |