diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-30 14:58:32 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-30 14:58:32 -0400 |
commit | b0f8a010254b97548b5a7140cc7137c53e30f8cd (patch) | |
tree | 705319640348385f286bb40d0b0160d35a64c09a /WebSockets.hs | |
parent | cf8d59b2fbcc52378f5ae840e2153f444a3283bf (diff) | |
download | debug-me-b0f8a010254b97548b5a7140cc7137c53e30f8cd.tar.gz |
server: email logs to user, and option to delete old ones
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 |