diff options
Diffstat (limited to 'WebSockets.hs')
| -rw-r--r-- | WebSockets.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/WebSockets.hs b/WebSockets.hs index bbf21e3..17b0170 100644 --- a/WebSockets.hs +++ b/WebSockets.hs @@ -11,6 +11,7 @@ module WebSockets ( negotiateWireVersion, WireProtocol(..), Mode(..), + EmailAddress, ClientSends(..), ServerSends(..), ) where @@ -207,8 +208,10 @@ negotiateWireVersion conn = do -- | Modes of operation that can be requested for a websocket connection. data Mode - = InitMode T.Text -- ^ Text is unused, but reserved for expansion - | ConnectMode T.Text -- ^ Text specifies the SessionID to connect to + = InitMode EmailAddress + -- ^ initialize a new debug-me session. + | ConnectMode T.Text + -- ^ Text specifies the SessionID to connect to deriving (Show, Eq, Generic) instance FromJSON Mode |