From b0f8a010254b97548b5a7140cc7137c53e30f8cd Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Sun, 30 Apr 2017 14:58:32 -0400
Subject: server: email logs to user, and option to delete old ones

---
 WebSockets.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'WebSockets.hs')

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
-- 
cgit v1.2.3