Save space in IsServerError instance for ErrSubmitTransaction.

cardano-foundation · May 16, 2024 · 0bf79f7 · 0bf79f7
1 parent 78ceba7
commit 0bf79f7
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/lib/api/src/Cardano/Wallet/Api/Http/Server/Error.hs b/lib/api/src/Cardano/Wallet/Api/Http/Server/Error.hs
@@ -649,15 +649,11 @@ instance IsServerError ErrSubmitTransaction where
                 ]
         ErrSubmitTransactionMissingWitnesses
             ErrSubmitTransactionMissingWitnessCounts
-                { expectedNumberOfKeyWits
-                , detectedNumberOfKeyWits
-                } ->
+            {expectedNumberOfKeyWits, detectedNumberOfKeyWits} ->
                 flip (apiError err403) message $
                 MissingWitnessesInTransaction
                     ApiErrorMissingWitnessesInTransaction
-                    { expectedNumberOfKeyWits
-                    , detectedNumberOfKeyWits
-                    }
+                    {expectedNumberOfKeyWits, detectedNumberOfKeyWits}
           where
             message = mconcat
                 [ "The transaction expects "