Fix most compilation errors

Author: ana-pantilie

cardano-api/cardano-api.cabal

@@ -131,9 +131,9 @@ library
     cardano-ledger-byron >=1.2,
     cardano-ledger-conway >=1.19,
     cardano-ledger-core:{cardano-ledger-core, testlib} >=1.17,
-    cardano-ledger-dijkstra >=0.1,
+    cardano-ledger-dijkstra:{cardano-ledger-dijkstra, testlib} >=0.1,
     cardano-ledger-mary >=1.8,
-    cardano-ledger-shelley >=1.16,
+    cardano-ledger-shelley:{cardano-ledger-shelley, testlib} >=1.16,
     cardano-protocol-tpraos >=1.4,
     cardano-slotting >=0.2.0.0,
     cardano-strict-containers >=0.1,
@@ -348,6 +348,7 @@ test-suite cardano-api-test
     cardano-ledger-conway,
     cardano-ledger-core:{cardano-ledger-core, testlib} >=1.14,
     cardano-ledger-mary,
+    cardano-ledger-api >=1.11,
     cardano-protocol-tpraos,
     cardano-slotting,
     cborg,
@@ -419,6 +420,7 @@ test-suite cardano-api-golden
     cardano-ledger-core:{cardano-ledger-core, testlib} >=1.14,
     cardano-ledger-shelley,
     cardano-ledger-shelley-test >=1.2.0.1,
+    cardano-ledger-api >=1.11,
     cardano-protocol-tpraos,
     containers,
     errors,

cardano-api/src/Cardano/Api/Consensus/Internal/InMode.hs

@@ -317,4 +317,3 @@ fromConsensusApplyTxErr = \case
     TxValidationErrorInCardanoMode $ ShelleyTxValidationError ShelleyBasedEraDijkstra err
   Consensus.ApplyTxErrWrongEra err ->
     TxValidationEraMismatch err
-  _ -> undefined

cardano-api/src/Cardano/Api/Experimental/Tx.hs

@@ -214,7 +214,8 @@ newtype UnsignedTxError
   = UnsignedTxError TxBodyError
 
 makeUnsignedTx
-  :: Era era
+  :: Ledger.ProtVerAtMost (LedgerEra era) 11
+  => Era era
   -> TxBodyContent BuildTx era
   -> Either TxBodyError (UnsignedTx era)
 makeUnsignedTx era bc = obtainCommonConstraints era $ do

cardano-api/src/Cardano/Api/Experimental/Tx/Internal/AnyWitness.hs

@@ -185,5 +185,4 @@ getPlutusDatum L.SPlutusV3 (SpendingScriptDatum d) = d
 getPlutusDatum L.SPlutusV4 (SpendingScriptDatum _d) = error "dijkstra"
 getPlutusDatum _ InlineDatum = Nothing
 getPlutusDatum _ NoScriptDatum = Nothing
-getPlutusDatum _ _ = undefined
 

cardano-api/src/Cardano/Api/Genesis/Internal.hs

@@ -312,7 +312,7 @@ decodeAlonzoGenesis (Just era) genesisBs = modifyError ("Cannot decode era-sensi
     -- use all available parameters >= conway
     | isConwayOnwards = length allCostModelParams
     -- use only required params in < conway
-    | otherwise = L.costModelParamsCount L.PlutusV2 -- Babbage
+    | otherwise = L.costModelInitParamCount L.PlutusV2 -- Babbage
 
   -- A list-like of tuples (param name, value) with default maxBound value
   optionalCostModelDefaultValues :: (Item l ~ (V2.ParamName, Int64), IsList l) => l

cardano-api/src/Cardano/Api/Internal/Orphans/Serialisation.hs

@@ -195,20 +195,22 @@ deriving anyclass instance
   ToJSON (L.PredicateFailure (L.EraRule "UTXO" ledgerera))
   => ToJSON (L.ShelleyPpupPredFailure ledgerera)
 
-deriving anyclass instance
+instance
   ( ToJSON (L.PredicateFailure (L.EraRule "UTXO" ledgerera))
   , ToJSON (L.PlutusPurpose L.AsItem ledgerera)
   , ToJSON (L.PlutusPurpose L.AsIx ledgerera)
   )
-  => ToJSON (L.AlonzoUtxowPredFailure ledgerera)
+  => ToJSON (L.AlonzoUtxowPredFailure ledgerera) where
+    toJSON = undefined
 
-deriving anyclass instance
+instance
   ( ToJSON (L.PredicateFailure (L.EraRule "UTXO" ledgerera))
   , ToJSON (L.TxCert ledgerera)
   , ToJSON (L.PlutusPurpose L.AsItem ledgerera)
   , ToJSON (L.PlutusPurpose L.AsIx ledgerera)
   )
-  => ToJSON (L.BabbageUtxowPredFailure ledgerera)
+  => ToJSON (L.BabbageUtxowPredFailure ledgerera) where
+    toJSON = undefined
 
 deriving anyclass instance
   ToJSON (L.PredicateFailure (L.EraRule "LEDGER" ledgerera))

cardano-api/src/Cardano/Api/LedgerState.hs

@@ -263,7 +263,8 @@ import Network.Mux qualified as Mux
 import Network.TypedProtocol.Core (Nat (..))
 import System.FilePath
 
-import Test.Cardano.Ledger.Api.Examples.Consensus.Dijkstra
+import Test.Cardano.Ledger.Dijkstra.Examples qualified as Dijkstra
+import Test.Cardano.Ledger.Shelley.Examples qualified as Shelley
 
 data InitialLedgerStateError
   = -- | Failed to read or parse the network config file.
@@ -1401,12 +1402,8 @@ decodeLedgerState = do
   2 <- CBOR.decodeListLen
   hst <-
     HFC.HardForkLedgerState
-<<<<<<< HEAD
       <$> HFC.decodeTelescope
         (byron :* shelley :* allegra :* mary :* alonzo :* babbage :* conway :* dijkstra :* Nil)
-=======
-      <$> HFC.decodeTelescope (byron :* shelley :* allegra :* mary :* alonzo :* babbage :* conway :* undefined :* Nil)
->>>>>>> origin/fraser-iohk/cardano-api-kes-agent
   tbs <- Ledger.valuesMKDecoder hst
   pure (LedgerState hst tbs)
  where
@@ -1503,7 +1500,7 @@ readCardanoGenesisConfig mEra enc = do
   ShelleyConfig shelleyGenesis shelleyGenesisHash <- readShelleyGenesisConfig enc
   alonzoGenesis <- readAlonzoGenesisConfig mEra enc
   conwayGenesis <- readConwayGenesisConfig enc
-  let dijkstraGenesis = exampleDijkstraGenesis -- TODO: Dijkstra - add plumbing to read Dijkstra genesis
+  let dijkstraGenesis = Shelley.leTranslationContext Dijkstra.ledgerExamples -- TODO: Dijkstra - add plumbing to read Dijkstra genesis
   let transCfg = Ledger.mkLatestTransitionConfig shelleyGenesis alonzoGenesis conwayGenesis dijkstraGenesis
   pure $ GenesisCardano enc byronGenesis shelleyGenesisHash transCfg
 

cardano-api/src/Cardano/Api/Query/Internal/Convenience.hs

@@ -20,6 +20,10 @@ module Cardano.Api.Query.Internal.Convenience
   )
 where
 
+import Ouroboros.Consensus.HardFork.Combinator.AcrossEras (EraMismatch (..))
+
+import Ouroboros.Network.Protocol.LocalStateQuery.Type (Target (..))
+
 import Cardano.Api.Address
 import Cardano.Api.Certificate.Internal
 import Cardano.Api.Consensus.Internal.Mode
@@ -49,6 +53,7 @@ import Data.Maybe (mapMaybe)
 import Data.Set (Set)
 import Data.Text (Text)
 import GHC.Exts (IsList (..), IsString (..))
+import Control.Exception (SomeException, displayException)
 
 data QueryConvenienceError
   = AcqFailure AcquiringFailure
@@ -109,7 +114,7 @@ queryStateForBalancedTx
            , SystemStart
            , Set PoolId
            , Map StakeCredential L.Coin
-           , Map (L.Credential L.DRepRole) L.Coin
+           , Map (L.Credential L.DRepRole) (L.CompactForm L.Coin)
            , Maybe (Featured ConwayEraOnwards era TxCurrentTreasuryValue)
            )
        )

cardano-api/src/Cardano/Api/Query/Internal/Type/QueryInMode.hs

@@ -139,7 +139,6 @@ import Data.Text qualified as Text
 import Data.Word (Word64)
 import GHC.Exts (IsList (..))
 import GHC.Stack
-import Data.Coerce (coerce)
 
 -- ----------------------------------------------------------------------------
 -- Queries
@@ -648,7 +647,7 @@ toConsensusQueryShelleyBased sbe = \case
     caseShelleyToBabbageOrConwayEraOnwards
       (const $ error "toConsensusQueryShelleyBased: QueryDRepState is only available in the Conway era")
       ( \w ->
-          Some (consensusQueryInEraInMode era (conwayEraOnwardsConstraints w $ Consensus.GetDRepState creds))
+          Some (consensusQueryInEraInMode era (conwayEraOnwardsConstraints w $ Consensus.GetDRepState _creds))
       )
       sbe
   QueryDRepStakeDistr dreps ->
@@ -937,7 +936,7 @@ fromConsensusQueryResultShelleyBased sbe sbeQuery q' r' =
         Consensus.GetStakePoolParams{} ->
           Map.map fromShelleyPoolParams
             . Map.mapKeysMonotonic StakePoolKeyHash
-            $ r'
+            $ undefined -- r'
         _ -> fromConsensusQueryResultMismatch
     QueryDebugLedgerState{} ->
       case q' of

cardano-api/src/Cardano/Api/Tx/Internal/Body.hs

@@ -272,7 +272,7 @@ import Cardano.Crypto.Hashing qualified as Byron
 import Cardano.Ledger.Allegra.Core qualified as L
 import Cardano.Ledger.Alonzo.Core qualified as L
 import Cardano.Ledger.Alonzo.Scripts qualified as Alonzo
-import Cardano.Ledger.Alonzo.Tx qualified as Alonzo (hashScriptIntegrity)
+-- import Cardano.Ledger.Alonzo.Tx qualified as Alonzo (hashScriptIntegrity)
 import Cardano.Ledger.Alonzo.TxWits qualified as Alonzo
 import Cardano.Ledger.Api qualified as L
 import Cardano.Ledger.Babbage.UTxO qualified as L
@@ -1739,14 +1739,14 @@ fromLedgerTxExtraKeyWitnesses sbe body =
   caseShelleyToMaryOrAlonzoEraOnwards
     (const TxExtraKeyWitnessesNone)
     ( \w ->
-        let keyhashes = body ^. L.reqSignerHashesTxBodyL
+        let keyhashes = body ^. L.reqSignerHashesTxBodyG
          in if Set.null keyhashes
               then TxExtraKeyWitnessesNone
               else
                 TxExtraKeyWitnesses
                   w
                   [ PaymentKeyHash (Shelley.coerceKeyRole keyhash)
-                  | keyhash <- toList $ body ^. L.reqSignerHashesTxBodyL
+                  | keyhash <- toList $ body ^. L.reqSignerHashesTxBodyG
                   ]
     )
     sbe
@@ -1981,12 +1981,13 @@ convPParamsToScriptIntegrityHash
   -> Alonzo.TxDats (ShelleyLedgerEra era)
   -> Set Plutus.Language
   -> StrictMaybe L.ScriptIntegrityHash
-convPParamsToScriptIntegrityHash w (BuildTxWith mTxProtocolParams) redeemers datums languages =
+convPParamsToScriptIntegrityHash w (BuildTxWith mTxProtocolParams) _ _ _ = -- redeemers datums languages =
   alonzoEraOnwardsConstraints w $
     case mTxProtocolParams of
       Nothing -> SNothing
-      Just (LedgerProtocolParameters pp) ->
-        Alonzo.hashScriptIntegrity (Set.map (L.getLanguageView pp) languages) redeemers datums
+      Just (LedgerProtocolParameters _) -> undefined
+      -- Just (LedgerProtocolParameters pp) -> 
+      --   Alonzo.hashScriptIntegrity (Set.map (L.getLanguageView pp) languages) redeemers datums
 
 convLanguages :: [(ScriptWitnessIndex, AnyScriptWitness era)] -> Set Plutus.Language
 convLanguages witnesses =