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

18
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.Concurrent (threadDelay)
import Control.Concurrent.STM.Lifted
import Control.Monad (forever) import Control.Monad (forever)
import Control.Monad.Trans.Reader import Control.Monad.Trans.Reader
import Control.Concurrent (threadDelay)
import Data.Time
import Data.Conduit import Data.Conduit
import qualified Data.Conduit.List as CL import qualified Data.Conduit.List as CL
import Data.Monoid ((<>)) import Data.Monoid ((<>))
import Control.Concurrent.STM.Lifted
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)