Rename RawTx fields

Change-type: patch
Signed-off-by: Giovanni Garufi <giovanni@mlabs.city>

Author: nazrhom

src/BotPlutusInterface/Types.hs

@@ -109,10 +109,12 @@ instance Default PABConfig where
       }
 
 data RawTx = RawTx
-  { rawType :: Text
-  , rawDescription :: Text
-  , rawCborHex :: Text
+  { _type :: Text
+  , _description :: Text
+  , _cborHex :: Text
   }
   deriving (Generic, Eq, Show)
 
-$(deriveJSON defaultOptions {fieldLabelModifier = drop 3} ''RawTx)
+-- type is a reserved keyword in haskell and can not be used as a field name
+-- when converting this to JSON we drop the _ prefix from each field
+$(deriveJSON defaultOptions {fieldLabelModifier = drop 1} ''RawTx)

test/Spec/BotPlutusInterface/Server.hs

@@ -116,9 +116,9 @@ txFileName = "tx-" <> unpack txHash <> ".raw"
 rawTx :: RawTx
 rawTx =
   RawTx
-    { rawType = "TxBodyAlonzo"
-    , rawDescription = "description"
-    , rawCborHex = "hex"
+    { _type = "TxBodyAlonzo"
+    , _description = "description"
+    , _cborHex = "hex"
     }
 
 txFileContents :: LBS.ByteString