snoyberg/keter
1
1
Fork 0
mirror of https://github.com/snoyberg/keter.git synced 2024-12-14 17:12:46 +03:00
Code Issues Projects Releases Wiki Activity

Run stylish-haskell on websockets chat example.

Browse Source
This commit is contained in:
Christopher Reichert 2014-12-19 16:21:07 -06:00
parent 98827e1e36
commit eb51ca8d3e
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
incoming/websockets/chat.hs
View File

@ -1,16 +1,20 @@
{-# LANGUAGE QuasiQuotes, TemplateHaskell, TypeFamilies, OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
import Yesod.Core {-# LANGUAGE QuasiQuotes #-}
import Yesod.WebSockets {-# LANGUAGE TemplateHaskell #-}
import qualified Data.Text.Lazy as TL {-# LANGUAGE TypeFamilies #-}
import Control.Monad (forever)
import Control.Monad.Trans.Reader import Control.Concurrent (threadDelay)
import Control.Concurrent (threadDelay) import Control.Concurrent.STM.Lifted
import Data.Time import Control.Monad (forever)
import Data.Conduit import Control.Monad.Trans.Reader
import qualified Data.Conduit.List as CL import Data.Conduit
import Data.Monoid ((<>)) import qualified Data.Conduit.List as CL
import Control.Concurrent.STM.Lifted import Data.Monoid ((<>))
import Data.Text (Text) import Data.Text (Text)
import qualified Data.Text.Lazy as TL
import Data.Time
import Yesod.Core
import Yesod.WebSockets
data App = App (TChan Text) data App = App (TChan Text)