Skip to content

Commit 7dacc60

Browse files
committed
Add INCOHERENT pragma to RecordToPair
1 parent 08fcbcd commit 7dacc60

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

Data/Aeson/Types/ToJSON.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -20,6 +20,7 @@
2020
#endif
2121

2222
#include "overlapping-compat.h"
23+
#include "incoherent-compat.h"
2324

2425
-- TODO: Drop this when we remove support for Data.Attoparsec.Number
2526
{-# OPTIONS_GHC -fno-warn-deprecations #-}
@@ -1009,7 +1010,7 @@ instance ( Selector s
10091010
recordToPairs = fieldToPair
10101011
{-# INLINE recordToPairs #-}
10111012

1012-
instance OVERLAPPING_
1013+
instance INCOHERENT_
10131014
( Selector s
10141015
, GToJSON enc arity (K1 i (Maybe a))
10151016
, GKeyValue enc pairs

0 commit comments

Comments
 (0)