15 lines
374 B
Plaintext
15 lines
374 B
Plaintext
import ServerSentEventGenerator
|
|
import ServerSentEventGenerator.Server.Snap -- or whatever is appropriate
|
|
import Data.Time ( getCurrentTime )
|
|
import Data.Text ( pack )
|
|
|
|
now <- getCurrentTime
|
|
let
|
|
txt = mconcat [
|
|
"<div id=\"time\" data-on-interval__duration.5s=\"@get('/endpoint')\">"
|
|
, (pack . show) now
|
|
, "</div>" ]
|
|
send $ mergeFragments txt def def def def
|
|
|
|
|