diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-27 09:39:55 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-27 09:47:07 -0400 |
commit | 937b55549b4ba72b0392d7e139e592a40eec2101 (patch) | |
tree | d11a33aff3bd54c6bc66058028657915481181de /Types.hs | |
parent | c13c732ac4174dca2341a8b3ea84582c01ce5cde (diff) | |
download | debug-me-937b55549b4ba72b0392d7e139e592a40eec2101.tar.gz |
rename LogMessage to AnyMessage
Not related to the Log anymore.
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 |