Safe Haskell	None
Language	Haskell98

HsDev.Server.Message

Synopsis

Documentation

data Message a Source #

Message with id to link request and response

Constructors

Message
Fields _messageId :: Maybe String _message :: a

Instances

Functor Message Source #
Methods fmap :: (a -> b) -> Message a -> Message b # (<$) :: a -> Message b -> Message a #
Foldable Message Source #
Methods fold :: Monoid m => Message m -> m # foldMap :: Monoid m => (a -> m) -> Message a -> m # foldr :: (a -> b -> b) -> b -> Message a -> b # foldr' :: (a -> b -> b) -> b -> Message a -> b # foldl :: (b -> a -> b) -> b -> Message a -> b # foldl' :: (b -> a -> b) -> b -> Message a -> b # foldr1 :: (a -> a -> a) -> Message a -> a # foldl1 :: (a -> a -> a) -> Message a -> a # toList :: Message a -> [a] # null :: Message a -> Bool # length :: Message a -> Int # elem :: Eq a => a -> Message a -> Bool # maximum :: Ord a => Message a -> a # minimum :: Ord a => Message a -> a # sum :: Num a => Message a -> a # product :: Num a => Message a -> a #
Traversable Message Source #
Methods traverse :: Applicative f => (a -> f b) -> Message a -> f (Message b) # sequenceA :: Applicative f => Message (f a) -> f (Message a) # mapM :: Monad m => (a -> m b) -> Message a -> m (Message b) # sequence :: Monad m => Message (m a) -> m (Message a) #
Eq a => Eq (Message a) Source #
Methods (==) :: Message a -> Message a -> Bool # (/=) :: Message a -> Message a -> Bool #
Ord a => Ord (Message a) Source #
Methods compare :: Message a -> Message a -> Ordering # (<) :: Message a -> Message a -> Bool # (<=) :: Message a -> Message a -> Bool # (>) :: Message a -> Message a -> Bool # (>=) :: Message a -> Message a -> Bool # max :: Message a -> Message a -> Message a # min :: Message a -> Message a -> Message a #
Show a => Show (Message a) Source #
Methods showsPrec :: Int -> Message a -> ShowS # show :: Message a -> String # showList :: [Message a] -> ShowS #
ToJSON a => ToJSON (Message a) Source #
Methods toJSON :: Message a -> Value # toEncoding :: Message a -> Encoding # toJSONList :: [Message a] -> Value # toEncodingList :: [Message a] -> Encoding #
FromJSON a => FromJSON (Message a) Source #
Methods parseJSON :: Value -> Parser (Message a) # parseJSONList :: Value -> Parser [Message a] #

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

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

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

Get messages by id

data Notification Source #

Notification from server

Constructors

Notification Value

Instances

Eq Notification Source #
Methods (==) :: Notification -> Notification -> Bool # (/=) :: Notification -> Notification -> Bool #
Show Notification Source #
Methods showsPrec :: Int -> Notification -> ShowS # show :: Notification -> String # showList :: [Notification] -> ShowS #
ToJSON Notification Source #
Methods toJSON :: Notification -> Value # toEncoding :: Notification -> Encoding # toJSONList :: [Notification] -> Value # toEncodingList :: [Notification] -> Encoding #
FromJSON Notification Source #
Methods parseJSON :: Value -> Parser Notification # parseJSONList :: Value -> Parser [Notification] #

data Result Source #

Result from server

Constructors

Result Value	Result
Error HsDevError	Error

Instances

Show Result Source #
Methods showsPrec :: Int -> Result -> ShowS # show :: Result -> String # showList :: [Result] -> ShowS #
ToJSON Result Source #
Methods toJSON :: Result -> Value # toEncoding :: Result -> Encoding # toJSONList :: [Result] -> Value # toEncodingList :: [Result] -> Encoding #
FromJSON Result Source #
Methods parseJSON :: Value -> Parser Result # parseJSONList :: Value -> Parser [Result] #

data ResultPart Source #

Part of result list, returns via notification

Constructors

ResultPart Value

Instances

ToJSON ResultPart Source #
Methods toJSON :: ResultPart -> Value # toEncoding :: ResultPart -> Encoding # toJSONList :: [ResultPart] -> Value # toEncodingList :: [ResultPart] -> Encoding #
FromJSON ResultPart Source #
Methods parseJSON :: Value -> Parser ResultPart # parseJSONList :: Value -> Parser [ResultPart] #

newtype Response Source #

Constructors

Response
Fields unResponse :: Either Notification Result

Instances

Show Response Source #
Methods showsPrec :: Int -> Response -> ShowS # show :: Response -> String # showList :: [Response] -> ShowS #
ToJSON Response Source #
Methods toJSON :: Response -> Value # toEncoding :: Response -> Encoding # toJSONList :: [Response] -> Value # toEncodingList :: [Response] -> Encoding #
FromJSON Response Source #
Methods parseJSON :: Value -> Parser Response # parseJSONList :: Value -> Parser [Response] #

isNotification :: Response -> Bool Source #

result :: ToJSON a => a -> Response Source #

responseError :: HsDevError -> Response Source #

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

decodeMessage :: FromJSON a => ByteString -> Either (Msg String) (Msg (Message a)) Source #

Decode lisp or json request

encodeMessage :: ToJSON a => Msg (Message a) -> ByteString Source #

module HsDev.Server.Message.Lisp