diff options
Diffstat (limited to 'Types.hs')
-rw-r--r-- | Types.hs | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -160,7 +160,7 @@ mkElapsedTime start end = ElapsedTime $ fromRational $ toRational (end - start) instance DataSize ElapsedTime where dataSize _ = 16 -- 128 bit Double -data LogMessage +data AnyMessage = User (Message Seen) | Developer (Message Entered) deriving (Show, Generic) @@ -169,15 +169,15 @@ instance Binary ElapsedTime instance ToJSON ElapsedTime instance FromJSON ElapsedTime -instance DataSize LogMessage where +instance DataSize AnyMessage where dataSize (User a) = dataSize a dataSize (Developer a) = dataSize a -instance Binary LogMessage -instance ToJSON LogMessage where +instance Binary AnyMessage +instance ToJSON AnyMessage where toJSON = genericToJSON sumOptions toEncoding = genericToEncoding sumOptions -instance FromJSON LogMessage where +instance FromJSON AnyMessage where parseJSON = genericParseJSON sumOptions instance Binary Seen |