feat(blockfrost#60): store cost models as list

sourabhxyz · Sep 6, 2024 · dadffe1 · dadffe1
1 parent 08eea3c
commit dadffe1
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 12 deletions.
diff --git a/blockfrost-api/src/Blockfrost/Types/Cardano/Epochs.hs b/blockfrost-api/src/Blockfrost/Types/Cardano/Epochs.hs
@@ -174,7 +174,7 @@ instance ToSample ProtocolParams where
       , _protocolParamsMinFeeRefScriptCostPerByte = Just 15
       }
 
-newtype CostModels = CostModels { unCostModels :: Map ScriptType (Map Text Integer) }
+newtype CostModels = CostModels { unCostModels :: Map ScriptType [(Text, Integer)] }
   deriving (Eq, Show, Generic)
 
 instance ToJSON CostModels where
@@ -186,8 +186,7 @@ instance ToJSON CostModels where
           $ map (\(key, param) ->
               ( Data.Aeson.Key.fromText key
               , toJSON param)
-            )
-            $ Data.Map.toList params
+            ) params
         ))
     . Data.Map.toList
     . unCostModels
@@ -207,7 +206,7 @@ instance FromJSON CostModels where
                       )
                     $ Data.Aeson.Key.toString kLang
                  ps <- parseParams vParams
-                 pure (l, Data.Map.fromList ps)
+                 pure (l, ps)
                )
                $ Data.Aeson.KeyMap.toList o
 
@@ -217,14 +216,12 @@ costModelsSample :: CostModels
 costModelsSample = CostModels
       $ Data.Map.fromList
       [ ( PlutusV1
-        , Data.Map.fromList
-          [ ("addInteger-cpu-arguments-intercept", 197209)
+        , [ ("addInteger-cpu-arguments-intercept", 197209)
           , ("addInteger-cpu-arguments-slope", 0)
           ]
         )
       , (PlutusV2
-        , Data.Map.fromList
-          [ ("addInteger-cpu-arguments-intercept", 197209)
+        , [ ("addInteger-cpu-arguments-intercept", 197209)
           , ("addInteger-cpu-arguments-slope", 0)
           ]
         )

diff --git a/blockfrost-api/test/Cardano/Epochs.hs b/blockfrost-api/test/Cardano/Epochs.hs
@@ -162,14 +162,12 @@ protocolParamsExpected =
         CostModels
       $ Data.Map.fromList
       [ ( PlutusV1
-        , Data.Map.fromList
-          [ ("addInteger-cpu-arguments-intercept", 197209)
+        , [ ("addInteger-cpu-arguments-intercept", 197209)
           , ("addInteger-cpu-arguments-slope", 0)
           ]
         )
       , (PlutusV2
-        , Data.Map.fromList
-          [ ("addInteger-cpu-arguments-intercept", 197209)
+        , [ ("addInteger-cpu-arguments-intercept", 197209)
           , ("addInteger-cpu-arguments-slope", 0)
           ]
         )