HsDev.Server.Message.Lisp

Documentation

type Msg a = (Bool, a)

isLisp :: Lens' (Msg a) Bool

msg :: Lens (Msg a) (Msg b) a b

jsonMsg :: a -> Msg a

lispMsg :: a -> Msg a

decodeMsg :: FromJSON a => ByteString -> Either (Msg String) (Msg a)

Decode lisp or json

encodeMsg :: ToJSON a => Msg a -> ByteString

Encode lisp or json