HsDev.Server.Message

Documentation

data Message a

Message with id to link request and response

Constructors

Message

Fields

_messageId :: Maybe String

_message :: a

Instances

Functor Message

Foldable Message

Traversable Message

Eq a => Eq (Message a)

Ord a => Ord (Message a)

Show a => Show (Message a)

ToJSON a => ToJSON (Message a)

FromJSON a => FromJSON (Message a)

messageId :: forall a. Lens' (Message a) (Maybe String)

message :: forall a a. Lens (Message a) (Message a) a a

messagesById :: Maybe String -> [Message a] -> [a]

Get messages by id

data Notification

Notification from server

Constructors

Notification Value

Instances

Eq Notification

Show Notification

ToJSON Notification

FromJSON Notification

data Result

Result from server

Constructors

Result Value

Result

Error String (Map String Value)

Error

Instances

Show Result

ToJSON Result

FromJSON Result

data ResultPart

Part of result list, returns via notification

Constructors

ResultPart Value

Instances

ToJSON ResultPart

FromJSON ResultPart

newtype Response

Constructors

Response

Fields

unResponse :: Either Notification Result

Instances

Show Response

ToJSON Response

FromJSON Response

isNotification :: Response -> Bool

notification :: ToJSON a => a -> Response

result :: ToJSON a => a -> Response

responseError :: String -> [Pair] -> Response

resultPart :: ToJSON a => a -> Notification

groupResponses :: [Response] -> [([Notification], Result)]

responsesById :: Maybe String -> [Message Response] -> [([Notification], Result)]