From 3adfdf1ae27cd4b6419ce5be14ffb3712339065a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 22 Apr 2017 15:14:03 -0400 Subject: add framing protocol for websockets --- Log.hs | 15 --------------- 1 file changed, 15 deletions(-) (limited to 'Log.hs') 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 -- cgit v1.2.3