From a7bff630fc3e5e140274fb65d6b88b46e7a086eb Mon Sep 17 00:00:00 2001 From: VegOwOtenks Date: Wed, 20 Aug 2025 19:49:41 +0200 Subject: [PATCH] fix[PrettySerialize Set]: missed beginFields --- src/Pretty/Serialize.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/Pretty/Serialize.hs b/src/Pretty/Serialize.hs index 69582e5..64f0d16 100644 --- a/src/Pretty/Serialize.hs +++ b/src/Pretty/Serialize.hs @@ -210,9 +210,10 @@ deriving via Generically (Compose a b c) instance (PrettySerialize (a (b c))) => instance (Typeable a, PrettySerialize a) => PrettySerialize (Set a) where serializer :: Set a -> Serializer () serializer set = do - inDatatypeOf set $ do - namedField "elements" $ do - serializer $ Set.toList set + inDatatypeOf set $ do -- set type name + beginFields Nothing $ do -- skip constructor name + namedField "elements" $ do -- emit field + serializer $ Set.toList set class ExtractMappings a where type KeyType a :: Type