feat: compile bidder deposit validator

Author: errfrom

Makefile

@@ -1,4 +1,4 @@
-.PHONY: build test repl format hoogle all_scripts auction_escrow_validator standing_bid_validator auction_metadata_validator
+.PHONY: build test repl format hoogle all_scripts auction_escrow_validator standing_bid_validator bidder_deposit_validator auction_metadata_validator
 
 hs-sources := $(shell fd --no-ignore-parent -ehs)
 cabal-sources := $(shell fd --no-ignore-parent -ecabal)
@@ -27,5 +27,8 @@ auction_escrow_validator:
 standing_bid_validator:
 	cabal v2-run hydra-auction-onchain-exe -- --script standing_bid
 
+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

app/Main.hs

@@ -4,6 +4,7 @@ import HydraAuctionOnchain.Scripts
   ( auctionEscrowValidatorUntyped
   , auctionMetadataValidatorUntyped
   , auctionMintingPolicyUntyped
+  , bidderDepositValidatorUntyped
   , standingBidValidatorUntyped
   , writeScript
   )
@@ -27,13 +28,16 @@ main =
       writeAuctionMintingPolicy
       writeAuctionEscrowValidator
       writeStandingBidValidator
+      writeBidderDepositValidator
       writeAuctionMetadataValidator
     AuctionMintingPolicy ->
       writeAuctionMintingPolicy
     AuctionEscrowValidator ->
       writeAuctionEscrowValidator
     StandingBidValidator ->
       writeStandingBidValidator
+    BidderDepositValidator ->
+      writeBidderDepositValidator
     AuctionMetadataValidator ->
       writeAuctionMetadataValidator
 
@@ -58,6 +62,13 @@ writeStandingBidValidator =
     "compiled/standing_bid_validator.plutus"
     standingBidValidatorUntyped
 
+writeBidderDepositValidator :: IO ()
+writeBidderDepositValidator =
+  writeScript
+    "Bidder deposit validator"
+    "compiled/bidder_deposit_validator.plutus"
+    bidderDepositValidatorUntyped
+
 writeAuctionMetadataValidator :: IO ()
 writeAuctionMetadataValidator =
   writeScript
@@ -70,6 +81,7 @@ data ScriptToCompile
   | AuctionMintingPolicy
   | AuctionEscrowValidator
   | StandingBidValidator
+  | BidderDepositValidator
   | AuctionMetadataValidator
   deriving stock (Show, Eq)
 
@@ -79,6 +91,7 @@ toScript = \case
   "auction_mp" -> Just AuctionMintingPolicy
   "auction_escrow" -> Just AuctionEscrowValidator
   "standing_bid" -> Just StandingBidValidator
+  "bidder_deposit" -> Just BidderDepositValidator
   "metadata" -> Just AuctionMetadataValidator
   _ -> Nothing