add framing protocol for websockets

1 files changed, 0 insertions, 15 deletions

diff --git a/Log.hs b/Log.hs
index eb7bf3c..948ab19 100644
--- a/Log.hs
+++ b/Log.hs
@@ -34,21 +34,6 @@ instance DataSize Log where
 instance ToJSON Log
 instance FromJSON Log
 
-data LogMessage
-	= User (Message Seen)
-	| Developer (Message Entered)
-	deriving (Show, Generic)
-
-instance DataSize LogMessage where
-	dataSize (User a) = dataSize a
-	dataSize (Developer a) = dataSize a
-
-instance ToJSON LogMessage where
-	toJSON = genericToJSON sumOptions
-	toEncoding = genericToEncoding sumOptions
-instance FromJSON LogMessage where
-	parseJSON = genericParseJSON sumOptions
-
 mkLog :: LogMessage -> POSIXTime -> Log
 mkLog m now = Log
 	{ loggedMessage = m