WIP debug

IntersectMBO · Jan 10, 2025 · 20fee47 · 20fee47
1 parent 794c550
commit 20fee47
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/cardano-cli/src/Cardano/CLI/Read.hs b/cardano-cli/src/Cardano/CLI/Read.hs
@@ -1107,7 +1107,9 @@ readCostModels sbe (File fp) = do
   bytes <- handleIOExceptT (CostModelsErrorReadFile . FileIOError fp) $ LBS.readFile fp
   costModels <- firstExceptT (CostModelsErrorJSONDecode fp) . except $ Aeson.eitherDecode bytes
   when (null $ fromAlonzoCostModels costModels) $ throwE $ CostModelsErrorEmpty fp
-  forM_ (allValues @L.Language) $ checkCostModelSize costModels
+  forM_ (allValues @L.Language) $ \lg -> do
+    liftIO $ putStrLn $ "Checking " ++ show lg
+    checkCostModelSize costModels lg
   return costModels
  where
   checkCostModelSize :: L.CostModels -> L.Language -> ExceptT CostModelsError IO ()