Fix data-default use

Without this change, I fail to build pact-5 while building chainweb, because the Default instances for functions disappeared. I don't know why Pact 5 proper builds fine without this, probably a version bound thing.
kadena-io · Dec 12, 2024 · 4738d8e · 4738d8e
1 parent c2f5fb7
commit 4738d8e
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/pact/Pact/Core/Serialise.hs b/pact/Pact/Core/Serialise.hs
@@ -159,7 +159,7 @@ serialisePact_repl_spaninfo = serialisePact
   { _encodeModuleData = docEncode V1.encodeModuleData_repl_spaninfo
   , _decodeModuleData =
       \bs ->
-        (LegacyDocument . fmap def . liftReplBuiltin <$> LegacyPact.decodeModuleData bs)
+        (LegacyDocument . fmap (\_ -> def) . liftReplBuiltin <$> LegacyPact.decodeModuleData bs)
         <|> docDecode bs (\case
                             V1_CBOR -> V1.decodeModuleData_repl_spaninfo
                         )
@@ -181,7 +181,7 @@ serialisePact_raw_spaninfo = serialisePact
   { _encodeModuleData = docEncode V1.encodeModuleData_raw_spaninfo
   , _decodeModuleData =
       \bs ->
-        (LegacyDocument . fmap def <$> LegacyPact.decodeModuleData bs)
+        (LegacyDocument . fmap (\_ -> def) <$> LegacyPact.decodeModuleData bs)
         <|> docDecode bs (\case
                             V1_CBOR -> V1.decodeModuleData_raw_spaninfo
                         )
@@ -193,7 +193,7 @@ serialisePact_lineinfo = serialisePact
   { _encodeModuleData = docEncode V1.encodeModuleData_lineinfo
   , _decodeModuleData =
       \bs ->
-        (LegacyDocument . fmap def <$> LegacyPact.decodeModuleData bs)
+        (LegacyDocument . fmap (\_ -> def) <$> LegacyPact.decodeModuleData bs)
         <|> docDecode bs (\case
                             V1_CBOR -> V1.decodeModuleData_lineinfo
                         )