Skip to content

Commit 7a5ed0d

Browse files
committed
dhall: derive Eq instances for InvalidDecoder and ExtractError (#2481)
Fixes: #2481
1 parent f9f0641 commit 7a5ed0d

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

dhall/src/Dhall/Marshal/Decode.hs

+2-1
Original file line numberDiff line numberDiff line change
@@ -1554,6 +1554,7 @@ data ExtractError s a =
15541554
TypeMismatch (InvalidDecoder s a)
15551555
| ExpectedTypeError ExpectedTypeError
15561556
| ExtractError Text
1557+
deriving (Eq)
15571558

15581559
instance (Pretty s, Pretty a, Typeable s, Typeable a) => Show (ExtractError s a) where
15591560
show (TypeMismatch e) = show e
@@ -1618,7 +1619,7 @@ data InvalidDecoder s a = InvalidDecoder
16181619
{ invalidDecoderExpected :: Expr s a
16191620
, invalidDecoderExpression :: Expr s a
16201621
}
1621-
deriving (Typeable)
1622+
deriving (Eq, Typeable)
16221623

16231624
instance (Pretty s, Typeable s, Pretty a, Typeable a) => Exception (InvalidDecoder s a)
16241625

0 commit comments

Comments
 (0)