From b9320b46bcd5aa3c230fb5a3b8986adffa15526c Mon Sep 17 00:00:00 2001
From: Thomas Dinsdale-Young <ty@concordium.com>
Date: Fri, 17 Jan 2025 14:27:59 +0100
Subject: [PATCH] Fix JSON serialization of SpeicalTransacationOutcome
---
haskell-src/Concordium/Types/Transactions.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/haskell-src/Concordium/Types/Transactions.hs b/haskell-src/Concordium/Types/Transactions.hs
index 14aa72b21..d8a8aff70 100644
--- a/haskell-src/Concordium/Types/Transactions.hs
+++ b/haskell-src/Concordium/Types/Transactions.hs
@@ -18,6 +18,7 @@ import Data.Aeson (FromJSON (..), ToJSON (..))
import qualified Data.Aeson as AE
import Data.Aeson.TH
import qualified Data.ByteString as BS
+import Data.Char (isLower)
import Data.List (foldl')
import qualified Data.Map.Strict as Map
import qualified Data.Serialize as S
@@ -762,7 +763,7 @@ data SpecialTransactionOutcome
}
deriving (Show, Eq)
-$(deriveJSON defaultOptions{fieldLabelModifier = firstLower . drop 3} ''SpecialTransactionOutcome)
+$(deriveJSON defaultOptions{fieldLabelModifier = firstLower . dropWhile isLower} ''SpecialTransactionOutcome)
instance HashableTo H.Hash SpecialTransactionOutcome where
getHash = H.hash . S.encode