Merge pull request #593 from Concordium/fix-sto-json

Fix JSON serialization of SpeicalTransacationOutcome
Concordium · Jan 17, 2025 · 6f6d108 · 6f6d108
2 parents 4da594d + b9320b4
commit 6f6d108
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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