fix format of show instance
It's only used to show test suite failures..
This commit is contained in:
parent
2d46038754
commit
11f4d993b5
1 changed files with 1 additions and 1 deletions
|
@ -29,7 +29,7 @@ data LogLine = LogLine
|
|||
} deriving (Eq)
|
||||
|
||||
instance Show LogLine where
|
||||
show l = "LogLine " ++ formatVectorClock (date l) ++ show (status l) ++ " " ++ show (info l)
|
||||
show l = "LogLine " ++ formatVectorClock (date l) ++ " " ++ show (status l) ++ " " ++ show (info l)
|
||||
|
||||
data LogStatus = InfoPresent | InfoMissing | InfoDead
|
||||
deriving (Eq, Show, Bounded, Enum)
|
||||
|
|
Loading…
Reference in a new issue