Implement DelegateGroup minting policy and metadata validator

Makefile

@@ -31,4 +31,4 @@ bidder_deposit_validator:
 	cabal v2-run hydra-auction-onchain-exe -- --script bidder_deposit
 
 auction_metadata_validator:
-	cabal v2-run hydra-auction-onchain-exe -- --script metadata
+	cabal v2-run hydra-auction-onchain-exe -- --script auction_metadata

app/Main.hs

@@ -5,6 +5,8 @@ import HydraAuctionOnchain.Scripts
   , auctionMetadataValidatorUntyped
   , auctionMintingPolicyUntyped
   , bidderDepositValidatorUntyped
+  , delegateGroupMetadataValidatorUntyped
+  , delegateGroupMintingPolicyUntyped
   , standingBidValidatorUntyped
   , writeScript
   )
@@ -30,6 +32,8 @@ main =
       writeStandingBidValidator
       writeBidderDepositValidator
       writeAuctionMetadataValidator
+      writeDelegateGroupMintingPolicy
+      writeDelegateGroupMetadataValidator
     AuctionMintingPolicy ->
       writeAuctionMintingPolicy
     AuctionEscrowValidator ->
@@ -40,6 +44,10 @@ main =
       writeBidderDepositValidator
     AuctionMetadataValidator ->
       writeAuctionMetadataValidator
+    DelegateGroupMintingPolicy ->
+      writeDelegateGroupMintingPolicy
+    DelegateGroupMetadataValidator ->
+      writeDelegateGroupMetadataValidator
 
 writeAuctionMintingPolicy :: IO ()
 writeAuctionMintingPolicy =
@@ -76,13 +84,29 @@ writeAuctionMetadataValidator =
     "compiled/auction_metadata_validator.plutus"
     auctionMetadataValidatorUntyped
 
+writeDelegateGroupMintingPolicy :: IO ()
+writeDelegateGroupMintingPolicy =
+  writeScript
+    "Delegate group minting policy"
+    "compiled/delegate_group_minting_policy.plutus"
+    delegateGroupMintingPolicyUntyped
+
+writeDelegateGroupMetadataValidator :: IO ()
+writeDelegateGroupMetadataValidator =
+  writeScript
+    "Delegate group metadata validator"
+    "compiled/delegate_group_metadata_validator.plutus"
+    delegateGroupMetadataValidatorUntyped
+
 data ScriptToCompile
   = AllScripts
   | AuctionMintingPolicy
   | AuctionEscrowValidator
   | StandingBidValidator
   | BidderDepositValidator
   | AuctionMetadataValidator
+  | DelegateGroupMintingPolicy
+  | DelegateGroupMetadataValidator
   deriving stock (Show, Eq)
 
 toScript :: String -> Maybe ScriptToCompile
@@ -92,7 +116,9 @@ toScript = \case
   "auction_escrow" -> Just AuctionEscrowValidator
   "standing_bid" -> Just StandingBidValidator
   "bidder_deposit" -> Just BidderDepositValidator
-  "metadata" -> Just AuctionMetadataValidator
+  "auction_metadata" -> Just AuctionMetadataValidator
+  "delegate_group_mp" -> Just DelegateGroupMintingPolicy
+  "delegate_group_metadata" -> Just DelegateGroupMetadataValidator
   _ -> Nothing
 
 scriptToCompile :: Parser ScriptToCompile