Bumped spec

Co-authored-by: teodanciu <[email protected]>
IntersectMBO · Feb 3, 2025 · a1b2938 · a1b2938
1 parent bc10beb
commit a1b2938
Show file tree

Hide file tree

Showing 11 changed files with 41 additions and 5 deletions.
diff --git a/cabal.project b/cabal.project
@@ -24,8 +24,8 @@ source-repository-package
   -- !WARNING!:
   -- MAKE SURE THIS POINTS TO A COMMIT IN `MAlonzo-code` BEFORE MERGE!
   subdir: generated
-  --sha256: sha256-CebCHTM0lvIAJ5lx0LRcMEDeU4nGVWJlkvhJPE5tI9Y=
-  tag: 0f9eb79886f4d45a2cbb241af49b9e199735bd37
+  --sha256: sha256-MSQpX5wkb/LfgGw5sHl5g0DeHVAZF7oNxlM1sUOEB3Q=
+  tag: 9ea3e2123e89538fa89ce633db0652650f7291dc
 
 -- NOTE: If you would like to update the above, look for the `MAlonzo-code`
 -- branch in the `formal-ledger-specifications` repo and copy the SHA of

diff --git a/cbor/conformance_dump_ctx.cbor b/cbor/conformance_dump_ctx.cbor
diff --git a/cbor/conformance_dump_env.cbor b/cbor/conformance_dump_env.cbor
diff --git a/cbor/conformance_dump_sig.cbor b/cbor/conformance_dump_sig.cbor
diff --git a/cbor/conformance_dump_st.cbor b/cbor/conformance_dump_st.cbor
diff --git a/environment.yaml b/environment.yaml
@@ -0,0 +1,14 @@
+id: lazy-environments
+language: Haskell
+rule:
+  kind: strict_field
+  inside:
+    kind: data_type
+    stopBy: end
+    has:
+      field: name
+      regex: '.*Env$'
+  has:
+    field: type
+    pattern: $TYPE
+fix: ' $TYPE'
diff --git a/eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/Imp/GovSpec.hs b/eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/Imp/GovSpec.hs
@@ -869,6 +869,15 @@ votingSpec =
             . constitutionAnchorL
       expectNoCurrentProposals
       conAnchor `shouldNotBe` anchor
+    it "can submit SPO votes" $ do
+      spoHash <- freshKeyHash
+      registerPool spoHash
+      passNEpochs 3
+      gaId <-
+        submitParameterChange SNothing $
+          def
+            & ppuMinFeeAL .~ SJust (Coin 100)
+      submitVote_ @era VoteYes (StakePoolVoter spoHash) gaId
 
 constitutionSpec ::
   forall era.

diff --git a/...rdano-ledger-conformance/src/Test/Cardano/Ledger/Conformance/SpecTranslate/Conway/Pool.hs b/...rdano-ledger-conformance/src/Test/Cardano/Ledger/Conformance/SpecTranslate/Conway/Pool.hs
@@ -13,7 +13,6 @@ import Cardano.Ledger.CertState
 import Cardano.Ledger.Core
 import Cardano.Ledger.PoolParams
 import Cardano.Ledger.Shelley.Rules
-import Data.Map.Strict (mapKeys)
 import qualified Lib as Agda
 import Test.Cardano.Ledger.Conformance
 import Test.Cardano.Ledger.Conformance.SpecTranslate.Conway.Base ()
@@ -38,8 +37,8 @@ instance SpecTranslate ctx (PState era) where
 
   toSpecRep PState {..} =
     Agda.MkPState
-      <$> toSpecRep (mapKeys (hashToInteger . unKeyHash) psStakePoolParams)
-      <*> toSpecRep (mapKeys (hashToInteger . unKeyHash) psRetiring)
+      <$> toSpecRep psStakePoolParams
+      <*> toSpecRep psRetiring
 
 instance SpecTranslate ctx PoolCert where
   type SpecRep PoolCert = Agda.DCert

diff --git a/remove-extra-parens.yaml b/remove-extra-parens.yaml
@@ -0,0 +1,12 @@
+id: remove-extra-parens
+language: Haskell
+rule:
+  kind: field
+  all:
+  - has:
+      field: name
+      pattern: $NAME
+  - has:
+      field: type
+      pattern: ($TYPE)
+fix: '$NAME :: $TYPE'
diff --git a/sgconfig.yml b/sgconfig.yml
@@ -0,0 +1,2 @@
+ruleDirs:
+- ./rules
diff --git a/test.txt b/test.txt