diff options
author | Joey Hess <joeyh@joeyh.name> | 2019-01-09 13:13:31 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2019-01-09 13:13:31 -0400 |
commit | de4980ef8540c2073bc6230559d7b5badb6662ba (patch) | |
tree | 2f7661ef926650bcd05372aa356b950922ed86f5 /Logs | |
parent | 11f4d993b5038a5799f44adbc3264951555af21b (diff) |
simplify Show instance by deriving
Diffstat (limited to 'Logs')
-rw-r--r-- | Logs/Presence/Pure.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Logs/Presence/Pure.hs b/Logs/Presence/Pure.hs index 43306b5950..2c09e8fea9 100644 --- a/Logs/Presence/Pure.hs +++ b/Logs/Presence/Pure.hs @@ -26,10 +26,7 @@ data LogLine = LogLine { date :: VectorClock , status :: LogStatus , info :: LogInfo - } deriving (Eq) - -instance Show LogLine where - show l = "LogLine " ++ formatVectorClock (date l) ++ " " ++ show (status l) ++ " " ++ show (info l) + } deriving (Eq, Show) data LogStatus = InfoPresent | InfoMissing | InfoDead deriving (Eq, Show, Bounded, Enum) |