butler-0.0.1.0: At your service.
Safe HaskellSafe-Inferred
LanguageGHC2021

Butler.App.Chat

Documentation

data ChatServer #

data UserMessage #

Constructors

MkMessage 

Fields

Instances

Instances details
ToJSON UserMessage # 
Instance details

Defined in Butler.App.Chat

Methods

toJSON :: UserMessage -> Value #

toEncoding :: UserMessage -> Encoding #

toJSONList :: [UserMessage] -> Value #

toEncodingList :: [UserMessage] -> Encoding #

Generic UserMessage # 
Instance details

Defined in Butler.App.Chat

Associated Types

type Rep UserMessage :: Type -> Type #

Methods

from :: UserMessage -> Rep UserMessage x #

to :: Rep UserMessage x -> UserMessage #

type Rep UserMessage # 
Instance details

Defined in Butler.App.Chat

type Rep UserMessage = D1 ('MetaData "UserMessage" "Butler.App.Chat" "butler-0.0.1.0-inplace" 'False) (C1 ('MetaCons "MkMessage" 'PrefixI 'True) (S1 ('MetaSel ('Just "author") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UserName) :*: S1 ('MetaSel ('Just "body") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newChatServer :: TVar (Map SessionID [DisplayClient]) -> STM ChatServer #

newChatReader :: ChatServer -> STM (TChan UserEvent) #

updateChat :: WinID -> DisplayClient -> UserEvent -> HtmlT STM () #

addUserMessage :: ChatServer -> UserMessage -> STM () #

renderChat :: WinID -> ChatServer -> DisplayClient -> HtmlT STM () #

chatApp :: ChatServer -> App #