server: email logs to user, and option to delete old ones

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