1
1
mirror of https://github.com/github/semantic.git synced 2025-01-06 06:46:07 +03:00

Derive an Eq instance for Summaries.

This commit is contained in:
Rob Rix 2017-05-30 10:25:45 -04:00
parent 25b89ada33
commit 1475646281

View File

@ -36,7 +36,7 @@ import Syntax as S
import Term
data Summaries = Summaries { changes, errors :: !(Map Text [Value]) }
deriving Show
deriving (Eq, Show)
instance Monoid Summaries where
mempty = Summaries mempty mempty