typeable/wai
1
0
Fork 0
mirror of https://github.com/typeable/wai.git synced 2024-12-28 16:46:28 +03:00
Code Issues Projects Releases Wiki Activity

adjust wai-extra example program

Browse Source
This commit is contained in:
Michael Karg 2018-03-12 16:44:48 +01:00
parent b7bf7c9138
commit b2274a566d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
wai-extra/example/Main.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Blaze.ByteString.Builder.Char.Utf8 (fromString)
import Data.ByteString.Builder (string8)
import Control.Concurrent (forkIO, threadDelay)
import Control.Concurrent.Chan
import Control.Monad
@ -27,15 +27,15 @@ eventChan :: Chan ServerEvent -> IO ()
eventChan chan = forever $ do
threadDelay 1000000
time <- getPOSIXTime
writeChan chan (ServerEvent Nothing Nothing [fromString . show $ time])
writeChan chan (ServerEvent Nothing Nothing [string8 . show $ time])
eventIO :: IO ServerEvent
eventIO = do
threadDelay 1000000
time <- getPOSIXTime
return $ ServerEvent (Just $ fromString "io")
return $ ServerEvent (Just $ string8 "io")
Nothing
[fromString . show $ time]
[string8 . show $ time]
main :: IO ()
main = do