diff --git a/flake.lock b/flake.lock index 62c5277b24..10433934f2 100644 --- a/flake.lock +++ b/flake.lock @@ -156,6 +156,22 @@ "type": "github" } }, + "easy-purescript-nix": { + "flake": false, + "locked": { + "lastModified": 1666686938, + "narHash": "sha256-/UOLRdnEhIOcxcm5ouOipOiSgHRzJde0ccAx4xB1dnU=", + "owner": "justinwoo", + "repo": "easy-purescript-nix", + "rev": "da7acb2662961fd355f0a01a25bd32bf33577fa8", + "type": "github" + }, + "original": { + "owner": "justinwoo", + "repo": "easy-purescript-nix", + "type": "github" + } + }, "flake-compat": { "flake": false, "locked": { @@ -736,6 +752,7 @@ }, "root": { "inputs": { + "easy-purescript-nix": "easy-purescript-nix", "flake-utils": "flake-utils", "haskellNix": "haskellNix", "nixpkgs": [ diff --git a/flake.nix b/flake.nix index 55ef478ec2..a8c4ad19ca 100644 --- a/flake.nix +++ b/flake.nix @@ -1,9 +1,15 @@ { - # This is a template created by `hix init` + inputs.haskellNix.url = "github:input-output-hk/haskell.nix"; inputs.nixpkgs.follows = "haskellNix/nixpkgs-unstable"; inputs.flake-utils.url = "github:numtide/flake-utils"; - outputs = { self, nixpkgs, flake-utils, haskellNix }: + + inputs.easy-purescript-nix = { + url = "github:justinwoo/easy-purescript-nix"; + flake = false; + }; + + outputs = { self, nixpkgs, flake-utils, haskellNix, easy-purescript-nix }: let supportedSystems = [ # "x86_64-linux" @@ -12,6 +18,16 @@ in flake-utils.lib.eachSystem supportedSystems (system: let + easyPS = + let + p = pkgs.callPackage (easy-purescript-nix) { }; + in + p // { purs = p.purs-0_15_2; }; + + scripts = import ./nix/scripts.nix { + inherit pkgs system easyPS; + inherit (pkgs.nodePackages) prettier; + }; overlays = [ haskellNix.overlay (final: prev: { @@ -24,6 +40,30 @@ # hlint = {}; haskell-language-server = { }; }; + shell.buildInputs = + (with pkgs; [ + nixpkgs-fmt + nodePackages.prettier + ] + ) + ++ + (with scripts; [ + marlowePlaygroundGeneratePurs + ] + ) + ++ + (with easyPS; [ + purs-tidy + purs + spago + spago2nix + psa + purescript-language-server + pscid + ] + + ) + ; }; }) ]; diff --git a/marlowe-playground-client/generated/Control/Monad/Freer/Extras/Beam.purs b/marlowe-playground-client/generated/Control/Monad/Freer/Extras/Beam.purs deleted file mode 100644 index e3dfb09c4e..0000000000 --- a/marlowe-playground-client/generated/Control/Monad/Freer/Extras/Beam.purs +++ /dev/null @@ -1,69 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Control.Monad.Freer.Extras.Beam where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype BeamError = SqlError String - -derive instance Eq BeamError - -instance Show BeamError where - show a = genericShow a - -instance EncodeJson BeamError where - encodeJson = defer \_ -> E.encode $ unwrap >$< E.value - -instance DecodeJson BeamError where - decodeJson = defer \_ -> D.decode $ (SqlError <$> D.value) - -derive instance Generic BeamError _ - -derive instance Newtype BeamError _ - --------------------------------------------------------------------------------- - -_SqlError :: Iso' BeamError String -_SqlError = _Newtype - --------------------------------------------------------------------------------- - -newtype BeamLog = SqlLog String - -derive instance Eq BeamLog - -instance Show BeamLog where - show a = genericShow a - -instance EncodeJson BeamLog where - encodeJson = defer \_ -> E.encode $ unwrap >$< E.value - -instance DecodeJson BeamLog where - decodeJson = defer \_ -> D.decode $ (SqlLog <$> D.value) - -derive instance Generic BeamLog _ - -derive instance Newtype BeamLog _ - --------------------------------------------------------------------------------- - -_SqlLog :: Iso' BeamLog String -_SqlLog = _Newtype diff --git a/marlowe-playground-client/generated/Control/Monad/Freer/Extras/Pagination.purs b/marlowe-playground-client/generated/Control/Monad/Freer/Extras/Pagination.purs deleted file mode 100644 index 0e17a024c9..0000000000 --- a/marlowe-playground-client/generated/Control/Monad/Freer/Extras/Pagination.purs +++ /dev/null @@ -1,135 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Control.Monad.Freer.Extras.Pagination where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype Page a = Page - { currentPageQuery :: PageQuery a - , nextPageQuery :: Maybe (PageQuery a) - , pageItems :: Array a - } - -derive instance (Eq a) => Eq (Page a) - -instance (Show a) => Show (Page a) where - show a = genericShow a - -instance (EncodeJson a) => EncodeJson (Page a) where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { currentPageQuery: E.value :: _ (PageQuery a) - , nextPageQuery: (E.maybe E.value) :: _ (Maybe (PageQuery a)) - , pageItems: E.value :: _ (Array a) - } - ) - -instance (DecodeJson a) => DecodeJson (Page a) where - decodeJson = defer \_ -> D.decode $ - ( Page <$> D.record "Page" - { currentPageQuery: D.value :: _ (PageQuery a) - , nextPageQuery: (D.maybe D.value) :: _ (Maybe (PageQuery a)) - , pageItems: D.value :: _ (Array a) - } - ) - -derive instance Generic (Page a) _ - -derive instance Newtype (Page a) _ - --------------------------------------------------------------------------------- - -_Page - :: forall a - . Iso' (Page a) - { currentPageQuery :: PageQuery a - , nextPageQuery :: Maybe (PageQuery a) - , pageItems :: Array a - } -_Page = _Newtype - --------------------------------------------------------------------------------- - -newtype PageQuery a = PageQuery - { pageQuerySize :: PageSize - , pageQueryLastItem :: Maybe a - } - -derive instance (Eq a) => Eq (PageQuery a) - -instance (Show a) => Show (PageQuery a) where - show a = genericShow a - -instance (EncodeJson a) => EncodeJson (PageQuery a) where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { pageQuerySize: E.value :: _ PageSize - , pageQueryLastItem: (E.maybe E.value) :: _ (Maybe a) - } - ) - -instance (DecodeJson a) => DecodeJson (PageQuery a) where - decodeJson = defer \_ -> D.decode $ - ( PageQuery <$> D.record "PageQuery" - { pageQuerySize: D.value :: _ PageSize - , pageQueryLastItem: (D.maybe D.value) :: _ (Maybe a) - } - ) - -derive instance Generic (PageQuery a) _ - -derive instance Newtype (PageQuery a) _ - --------------------------------------------------------------------------------- - -_PageQuery - :: forall a - . Iso' (PageQuery a) - { pageQuerySize :: PageSize, pageQueryLastItem :: Maybe a } -_PageQuery = _Newtype - --------------------------------------------------------------------------------- - -newtype PageSize = PageSize { getPageSize :: Int } - -derive instance Eq PageSize - -instance Show PageSize where - show a = genericShow a - -instance EncodeJson PageSize where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getPageSize: E.value :: _ Int } - ) - -instance DecodeJson PageSize where - decodeJson = defer \_ -> D.decode $ - (PageSize <$> D.record "PageSize" { getPageSize: D.value :: _ Int }) - -derive instance Generic PageSize _ - -derive instance Newtype PageSize _ - --------------------------------------------------------------------------------- - -_PageSize :: Iso' PageSize { getPageSize :: Int } -_PageSize = _Newtype diff --git a/marlowe-playground-client/generated/Examples/Haskell/Contracts.purs b/marlowe-playground-client/generated/Examples/Haskell/Contracts.purs index 20cbcaac23..e78b70a19e 100644 --- a/marlowe-playground-client/generated/Examples/Haskell/Contracts.purs +++ b/marlowe-playground-client/generated/Examples/Haskell/Contracts.purs @@ -8,14 +8,14 @@ module Example where import Language.Marlowe.Extended.V1 main :: IO () -main = printJSON $ contract +main = printJSON example {- Define a contract, Close is the simplest contract which just ends the contract straight away -} -contract :: Contract -contract = Close +example :: Contract +example = Close """ escrow :: String @@ -26,7 +26,7 @@ module Escrow where import Language.Marlowe.Extended.V1 main :: IO () -main = printJSON $ contract +main = printJSON escrow -- We can set explicitRefunds True to run Close refund analysis -- but we get a shorter contract if we set it to False @@ -78,8 +78,8 @@ refundSeller | explicitRefunds = Pay seller (Party seller) ada price Close | otherwise = Close -contract :: Contract -contract = deposit depositTimeout Close $ +escrow :: Contract +escrow = deposit depositTimeout Close $ choices disputeTimeout buyer refundSeller [ (0, "Everything is alright" , refundSeller @@ -111,10 +111,12 @@ escrowWithCollateral = """{-# LANGUAGE OverloadedStrings #-} module EscrowWithCollateral where +import Language.Marlowe.Core.V1.Semantics.Types.Address (testnet) import Language.Marlowe.Extended.V1 - +import qualified Plutus.V1.Ledger.Address as P +import qualified Plutus.V1.Ledger.Credential as P main :: IO () -main = printJSON $ contract +main = printJSON escrowC -- We can set explicitRefunds True to run Close refund analysis -- but we get a shorter contract if we set it to False @@ -124,7 +126,7 @@ explicitRefunds = False seller, buyer, burnAddress :: Party buyer = Role "Buyer" seller = Role "Seller" -burnAddress = Address "0000000000000000000000000000000000000000000000000000000000000000" +burnAddress = Address testnet (P.Address (P.PubKeyCredential "0000000000000000000000000000000000000000000000000000000000000000") Nothing) price, collateral :: Value price = ConstantParam "Price" @@ -191,8 +193,8 @@ refundSeller | explicitRefunds = Pay seller (Party seller) ada price Close | otherwise = Close -contract :: Contract -contract = depositCollateral seller sellerCollateralTimeout Close $ +escrowC :: Contract +escrowC = depositCollateral seller sellerCollateralTimeout Close $ depositCollateral buyer buyerCollateralTimeout (refundSellerCollateral Close) $ deposit depositTimeout (refundCollaterals Close) $ choices disputeTimeout buyer (refundCollaterals refundSeller) @@ -221,7 +223,7 @@ module ZeroCouponBond where import Language.Marlowe.Extended.V1 main :: IO () -main = printJSON $ contract +main = printJSON zcb discountedPrice, notionalPrice :: Value discountedPrice = ConstantParam "Amount" @@ -242,8 +244,8 @@ transfer timeout from to amount continuation = timeout Close -contract :: Contract -contract = transfer initialExchange investor issuer discountedPrice +zcb :: Contract +zcb = transfer initialExchange investor issuer discountedPrice $ transfer maturityExchangeTimeout issuer investor notionalPrice Close """ @@ -256,7 +258,7 @@ module CouponBondGuaranteed where import Language.Marlowe.Extended.V1 main :: IO () -main = printJSON $ contract +main = printJSON cbg -- We can set explicitRefunds True to run Close refund analysis -- but we get a shorter contract if we set it to False @@ -298,8 +300,8 @@ giveCollateralToLender amount | explicitRefunds = Pay investor (Party investor) ada amount Close | otherwise = Close -contract :: Contract -contract = deposit (guaranteedAmount 3) guarantor investor +cbg :: Contract +cbg = deposit (guaranteedAmount 3) guarantor investor 300 Close $ transfer principal investor issuer 600 (refundGuarantor (guaranteedAmount 3) Close) @@ -323,7 +325,7 @@ module Swap where import Language.Marlowe.Extended.V1 main :: IO () -main = printJSON $ contract +main = printJSON swap -- We can set explicitRefunds True to run Close refund analysis -- but we get a shorter contract if we set it to False @@ -374,8 +376,8 @@ makePayment :: SwapParty -> SwapParty -> Contract -> Contract makePayment src dest = Pay (party src) (Party $ party dest) (currency src) (amount src) -contract :: Contract -contract = makeDeposit adaProvider adaDepositTimeout Close +swap :: Contract +swap = makeDeposit adaProvider adaDepositTimeout Close $ makeDeposit dollarProvider dollarDepositTimeout (refundSwapParty adaProvider) $ makePayment adaProvider dollarProvider $ makePayment dollarProvider adaProvider @@ -391,7 +393,7 @@ module ContractForDifferences where import Language.Marlowe.Extended.V1 main :: IO () -main = printJSON $ contract +main = printJSON cfd -- We can set explicitRefunds True to run Close refund analysis -- but we get a shorter contract if we set it to False @@ -469,8 +471,8 @@ refundAfterDifference payer payerDeposit payee payeeDeposit difference = $ refundUpToBothDeposits payee (AddValue payeeDeposit difference) Close -contract :: Contract -contract = initialDeposit party partyDeposit (TimeParam "Party deposit deadline") Close +cfd :: Contract +cfd = initialDeposit party partyDeposit (TimeParam "Party deposit deadline") Close $ initialDeposit counterparty counterpartyDeposit (TimeParam "Counterparty deposit deadline") (refund party partyDeposit Close) $ wait (TimeParam "First window beginning") $ oracleInput priceBeginning (TimeParam "First window deadline") refundBoth @@ -497,7 +499,7 @@ module ContractForDifferencesWithOracle where import Language.Marlowe.Extended.V1 main :: IO () -main = printJSON $ contract +main = printJSON cfd -- We can set explicitRefunds True to run Close refund analysis -- but we get a shorter contract if we set it to False @@ -585,8 +587,8 @@ refundAfterDifference payer payerDeposit payee payeeDeposit difference = $ refundUpToBothDeposits payee (AddValue payeeDeposit difference) Close -contract :: Contract -contract = initialDeposit party partyDeposit (TimeParam "Party deposit deadline") Close +cfd :: Contract +cfd = initialDeposit party partyDeposit (TimeParam "Party deposit deadline") Close $ initialDeposit counterparty counterpartyDeposit (TimeParam "Counterparty deposit deadline") (refund party partyDeposit Close) $ wait (TimeParam "First window beginning") $ oracleInput exchangeBeginning (TimeParam "First window deadline") refundBoth @@ -603,4 +605,4 @@ contract = initialDeposit party partyDeposit (TimeParam "Party deposit deadline" $ refundAfterDifference party partyDeposit counterparty counterpartyDeposit (UseValue increaseInPrice) ) refundBoth -""" +""" \ No newline at end of file diff --git a/marlowe-playground-client/generated/Examples/Marlowe/Contracts.purs b/marlowe-playground-client/generated/Examples/Marlowe/Contracts.purs index cf4c0d0547..56dc54d491 100644 --- a/marlowe-playground-client/generated/Examples/Marlowe/Contracts.purs +++ b/marlowe-playground-client/generated/Examples/Marlowe/Contracts.purs @@ -7,123 +7,95 @@ escrow :: String escrow = """When [ (Case - (Deposit - (Role "Seller") - (Role "Buyer") + (Deposit Role "Seller" Role "Buyer" (Token "" "") (ConstantParam "Price")) (When [ (Case (Choice - (ChoiceId "Everything is alright" - (Role "Buyer")) [ + (ChoiceId "Everything is alright" Role "Buyer") [ (Bound 0 0)]) Close) , (Case (Choice - (ChoiceId "Report problem" - (Role "Buyer")) [ + (ChoiceId "Report problem" Role "Buyer") [ (Bound 1 1)]) - (Pay - (Role "Seller") - (Account - (Role "Buyer")) + (Pay Role "Seller" + (Account Role "Buyer") (Token "" "") (ConstantParam "Price") (When [ (Case (Choice - (ChoiceId "Confirm problem" - (Role "Seller")) [ + (ChoiceId "Confirm problem" Role "Seller") [ (Bound 1 1)]) Close) , (Case (Choice - (ChoiceId "Dispute problem" - (Role "Seller")) [ + (ChoiceId "Dispute problem" Role "Seller") [ (Bound 0 0)]) (When [ (Case (Choice - (ChoiceId "Dismiss claim" - (Role "Mediator")) [ + (ChoiceId "Dismiss claim" Role "Mediator") [ (Bound 0 0)]) - (Pay - (Role "Buyer") - (Party - (Role "Seller")) + (Pay Role "Buyer" + (Party Role "Seller") (Token "" "") (ConstantParam "Price") Close)) , (Case (Choice - (ChoiceId "Confirm problem" - (Role "Mediator")) [ + (ChoiceId "Confirm problem" Role "Mediator") [ (Bound 1 1)]) Close)] (TimeParam "Mediation deadline") Close))] (TimeParam "Complaint response deadline") Close)))] (TimeParam "Complaint deadline") Close))] (TimeParam "Payment deadline") Close""" escrowWithCollateral :: String escrowWithCollateral = """When [ (Case - (Deposit - (Role "Seller") - (Role "Seller") + (Deposit Role "Seller" Role "Seller" (Token "" "") (ConstantParam "Collateral amount")) (When [ (Case - (Deposit - (Role "Buyer") - (Role "Buyer") + (Deposit Role "Buyer" Role "Buyer" (Token "" "") (ConstantParam "Collateral amount")) (When [ (Case - (Deposit - (Role "Seller") - (Role "Buyer") + (Deposit Role "Seller" Role "Buyer" (Token "" "") (ConstantParam "Price")) (When [ (Case (Choice - (ChoiceId "Everything is alright" - (Role "Buyer")) [ + (ChoiceId "Everything is alright" Role "Buyer") [ (Bound 0 0)]) Close) , (Case (Choice - (ChoiceId "Report problem" - (Role "Buyer")) [ + (ChoiceId "Report problem" Role "Buyer") [ (Bound 1 1)]) - (Pay - (Role "Seller") - (Account - (Role "Buyer")) + (Pay Role "Seller" + (Account Role "Buyer") (Token "" "") (ConstantParam "Price") (When [ (Case (Choice - (ChoiceId "Confirm problem" - (Role "Seller")) [ + (ChoiceId "Confirm problem" Role "Seller") [ (Bound 1 1)]) Close) , (Case (Choice - (ChoiceId "Dispute problem" - (Role "Seller")) [ + (ChoiceId "Dispute problem" Role "Seller") [ (Bound 0 0)]) - (Pay - (Role "Seller") - (Party - (Address "0000000000000000000000000000000000000000000000000000000000000000")) + (Pay Role "Seller" + (Party Address "addr_test1vqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq3lgle2") (Token "" "") (ConstantParam "Collateral amount") - (Pay - (Role "Buyer") - (Party - (Address "0000000000000000000000000000000000000000000000000000000000000000")) + (Pay Role "Buyer" + (Party Address "addr_test1vqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq3lgle2") (Token "" "") (ConstantParam "Collateral amount") Close)))] (TimeParam "Complaint deadline") Close)))] (TimeParam "Dispute by buyer timeout") Close))] (TimeParam "Deposit of price by buyer timeout") Close))] (TimeParam "Deposit of collateral by buyer timeout") Close))] (TimeParam "Collateral deposit by seller timeout") Close""" @@ -131,30 +103,22 @@ zeroCouponBond :: String zeroCouponBond = """When [ (Case - (Deposit - (Role "Lender") - (Role "Lender") + (Deposit Role "Lender" Role "Lender" (Token "" "") (ConstantParam "Amount")) - (Pay - (Role "Lender") - (Party - (Role "Borrower")) + (Pay Role "Lender" + (Party Role "Borrower") (Token "" "") (ConstantParam "Amount") (When [ (Case - (Deposit - (Role "Borrower") - (Role "Borrower") + (Deposit Role "Borrower" Role "Borrower" (Token "" "") (AddValue (ConstantParam "Interest") (ConstantParam "Amount"))) - (Pay - (Role "Borrower") - (Party - (Role "Lender")) + (Pay Role "Borrower" + (Party Role "Lender") (Token "" "") (AddValue (ConstantParam "Interest") @@ -164,9 +128,7 @@ couponBondGuaranteed :: String couponBondGuaranteed = """When [ (Case - (Deposit - (Role "Lender") - (Role "Guarantor") + (Deposit Role "Lender" Role "Guarantor" (Token "" "") (AddValue (MulValue @@ -175,84 +137,60 @@ couponBondGuaranteed = (ConstantParam "Principal"))) (When [ (Case - (Deposit - (Role "Borrower") - (Role "Lender") + (Deposit Role "Borrower" Role "Lender" (Token "" "") (ConstantParam "Principal")) - (Pay - (Role "Borrower") - (Party - (Role "Borrower")) + (Pay Role "Borrower" + (Party Role "Borrower") (Token "" "") (ConstantParam "Principal") (When [ (Case - (Deposit - (Role "Lender") - (Role "Borrower") + (Deposit Role "Lender" Role "Borrower" (Token "" "") (ConstantParam "Interest instalment")) - (Pay - (Role "Lender") - (Party - (Role "Lender")) + (Pay Role "Lender" + (Party Role "Lender") (Token "" "") (ConstantParam "Interest instalment") - (Pay - (Role "Lender") - (Party - (Role "Guarantor")) + (Pay Role "Lender" + (Party Role "Guarantor") (Token "" "") (ConstantParam "Interest instalment") (When [ (Case - (Deposit - (Role "Lender") - (Role "Borrower") + (Deposit Role "Lender" Role "Borrower" (Token "" "") (ConstantParam "Interest instalment")) - (Pay - (Role "Lender") - (Party - (Role "Lender")) + (Pay Role "Lender" + (Party Role "Lender") (Token "" "") (ConstantParam "Interest instalment") - (Pay - (Role "Lender") - (Party - (Role "Guarantor")) + (Pay Role "Lender" + (Party Role "Guarantor") (Token "" "") (ConstantParam "Interest instalment") (When [ (Case - (Deposit - (Role "Lender") - (Role "Borrower") + (Deposit Role "Lender" Role "Borrower" (Token "" "") (AddValue (ConstantParam "Interest instalment") (ConstantParam "Principal"))) - (Pay - (Role "Lender") - (Party - (Role "Lender")) + (Pay Role "Lender" + (Party Role "Lender") (Token "" "") (AddValue (ConstantParam "Interest instalment") (ConstantParam "Principal")) - (Pay - (Role "Lender") - (Party - (Role "Guarantor")) + (Pay Role "Lender" + (Party Role "Guarantor") (Token "" "") (AddValue (ConstantParam "Interest instalment") (ConstantParam "Principal")) Close)))] 1500 Close))))] 1200 Close))))] 900 Close)))] 600 - (Pay - (Role "Lender") - (Party - (Role "Guarantor")) + (Pay Role "Lender" + (Party Role "Guarantor") (Token "" "") (AddValue (MulValue @@ -264,32 +202,24 @@ swap :: String swap = """When [ (Case - (Deposit - (Role "Ada provider") - (Role "Ada provider") + (Deposit Role "Ada provider" Role "Ada provider" (Token "" "") (MulValue (Constant 1000000) (ConstantParam "Amount of Ada"))) (When [ (Case - (Deposit - (Role "Dollar provider") - (Role "Dollar provider") + (Deposit Role "Dollar provider" Role "Dollar provider" (Token "85bb65" "dollar") (ConstantParam "Amount of dollars")) - (Pay - (Role "Ada provider") - (Party - (Role "Dollar provider")) + (Pay Role "Ada provider" + (Party Role "Dollar provider") (Token "" "") (MulValue (Constant 1000000) (ConstantParam "Amount of Ada")) - (Pay - (Role "Dollar provider") - (Party - (Role "Ada provider")) + (Pay Role "Dollar provider" + (Party Role "Ada provider") (Token "85bb65" "dollar") (ConstantParam "Amount of dollars") Close)))] (TimeParam "Timeout for dollar deposit") Close))] (TimeParam "Timeout for Ada deposit") Close""" @@ -297,52 +227,40 @@ contractForDifferences :: String contractForDifferences = """When [ (Case - (Deposit - (Role "Party") - (Role "Party") + (Deposit Role "Party" Role "Party" (Token "" "") (ConstantParam "Amount paid by party")) (When [ (Case - (Deposit - (Role "Counterparty") - (Role "Counterparty") + (Deposit Role "Counterparty" Role "Counterparty" (Token "" "") (ConstantParam "Amount paid by counterparty")) (When [] (TimeParam "First window beginning") (When [ (Case (Choice - (ChoiceId "Price in first window" - (Role "Oracle")) [ + (ChoiceId "Price in first window" Role "Oracle") [ (Bound 0 1000000000)]) (When [] (TimeParam "Second window beginning") (When [ (Case (Choice - (ChoiceId "Price in second window" - (Role "Oracle")) [ + (ChoiceId "Price in second window" Role "Oracle") [ (Bound 0 1000000000)]) (If (ValueGT (ChoiceValue - (ChoiceId "Price in first window" - (Role "Oracle"))) + (ChoiceId "Price in first window" Role "Oracle")) (ChoiceValue - (ChoiceId "Price in second window" - (Role "Oracle")))) + (ChoiceId "Price in second window" Role "Oracle"))) (Let "Decrease in price" (SubValue (ChoiceValue - (ChoiceId "Price in first window" - (Role "Oracle"))) + (ChoiceId "Price in first window" Role "Oracle")) (ChoiceValue - (ChoiceId "Price in second window" - (Role "Oracle")))) - (Pay - (Role "Counterparty") - (Account - (Role "Party")) + (ChoiceId "Price in second window" Role "Oracle"))) + (Pay Role "Counterparty" + (Account Role "Party") (Token "" "") (Cond (ValueLT @@ -353,23 +271,17 @@ contractForDifferences = (If (ValueLT (ChoiceValue - (ChoiceId "Price in first window" - (Role "Oracle"))) + (ChoiceId "Price in first window" Role "Oracle")) (ChoiceValue - (ChoiceId "Price in second window" - (Role "Oracle")))) + (ChoiceId "Price in second window" Role "Oracle"))) (Let "Increase in price" (SubValue (ChoiceValue - (ChoiceId "Price in second window" - (Role "Oracle"))) + (ChoiceId "Price in second window" Role "Oracle")) (ChoiceValue - (ChoiceId "Price in first window" - (Role "Oracle")))) - (Pay - (Role "Party") - (Account - (Role "Counterparty")) + (ChoiceId "Price in first window" Role "Oracle"))) + (Pay Role "Party" + (Account Role "Counterparty") (Token "" "") (Cond (ValueLT @@ -382,31 +294,25 @@ contractForDifferencesWithOracle :: String contractForDifferencesWithOracle = """When [ (Case - (Deposit - (Role "Party") - (Role "Party") + (Deposit Role "Party" Role "Party" (Token "" "") (ConstantParam "Amount paid by party")) (When [ (Case - (Deposit - (Role "Counterparty") - (Role "Counterparty") + (Deposit Role "Counterparty" Role "Counterparty" (Token "" "") (ConstantParam "Amount paid by counterparty")) (When [] (TimeParam "First window beginning") (When [ (Case (Choice - (ChoiceId "dir-adausd" - (Role "kraken")) [ + (ChoiceId "dir-adausd" Role "kraken") [ (Bound 0 100000000000)]) (When [] (TimeParam "Second window beginning") (When [ (Case (Choice - (ChoiceId "inv-adausd" - (Role "kraken")) [ + (ChoiceId "inv-adausd" Role "kraken") [ (Bound 0 100000000000)]) (Let "Price in second window" (DivValue @@ -414,11 +320,9 @@ contractForDifferencesWithOracle = (ConstantParam "Amount of Ada to use as asset") (MulValue (ChoiceValue - (ChoiceId "dir-adausd" - (Role "kraken"))) + (ChoiceId "dir-adausd" Role "kraken")) (ChoiceValue - (ChoiceId "inv-adausd" - (Role "kraken"))))) + (ChoiceId "inv-adausd" Role "kraken")))) (Constant 10000000000000000)) (If (ValueGT @@ -428,10 +332,8 @@ contractForDifferencesWithOracle = (SubValue (ConstantParam "Amount of Ada to use as asset") (UseValue "Price in second window")) - (Pay - (Role "Counterparty") - (Account - (Role "Party")) + (Pay Role "Counterparty" + (Account Role "Party") (Token "" "") (Cond (ValueLT @@ -447,14 +349,12 @@ contractForDifferencesWithOracle = (SubValue (UseValue "Price in second window") (ConstantParam "Amount of Ada to use as asset")) - (Pay - (Role "Party") - (Account - (Role "Counterparty")) + (Pay Role "Party" + (Account Role "Counterparty") (Token "" "") (Cond (ValueLT (UseValue "Increase in price") (ConstantParam "Amount paid by party")) (UseValue "Increase in price") - (ConstantParam "Amount paid by party")) Close)) Close))))] (TimeParam "Second window deadline") Close)))] (TimeParam "First window deadline") Close)))] (TimeParam "Counterparty deposit deadline") Close))] (TimeParam "Party deposit deadline") Close""" + (ConstantParam "Amount paid by party")) Close)) Close))))] (TimeParam "Second window deadline") Close)))] (TimeParam "First window deadline") Close)))] (TimeParam "Counterparty deposit deadline") Close))] (TimeParam "Party deposit deadline") Close""" \ No newline at end of file diff --git a/marlowe-playground-client/generated/JSON/contract.json b/marlowe-playground-client/generated/JSON/contract.json deleted file mode 100644 index 91627bcf25..0000000000 --- a/marlowe-playground-client/generated/JSON/contract.json +++ /dev/null @@ -1,118 +0,0 @@ -{ - "then": { - "timeout": 100, - "when": [ - { - "then": { - "then": { - "then": "close", - "to": { "party": { "role_token": "Bob" } }, - "from_account": { - "pk_hash": "a2c20c77887ace1cd986193e4e75babd8993cfd56995cd5cfce609c2" - }, - "pay": { - "else": { "use_value": "y" }, - "then": { "use_value": "x" }, - "if": true - }, - "token": { "currency_symbol": "", "token_name": "" } - }, - "let": "x", - "be": { - "and": { "minus": { "negate": 100 }, "value": 100 }, - "add": 100 - } - }, - "case": { - "deposits": { - "and": { "minus": { "negate": 100 }, "value": 100 }, - "add": 100 - }, - "into_account": { - "pk_hash": "a2c20c77887ace1cd986193e4e75babd8993cfd56995cd5cfce609c2" - }, - "of_token": { "currency_symbol": "", "token_name": "" }, - "party": { - "pk_hash": "a2c20c77887ace1cd986193e4e75babd8993cfd56995cd5cfce609c2" - } - } - }, - { - "then": { - "else": "close", - "then": { - "then": "close", - "to": { - "account": { - "pk_hash": "a2c20c77887ace1cd986193e4e75babd8993cfd56995cd5cfce609c2" - } - }, - "from_account": { - "pk_hash": "a2c20c77887ace1cd986193e4e75babd8993cfd56995cd5cfce609c2" - }, - "pay": { - "divide": { - "amount_of_token": { - "currency_symbol": "aa", - "token_name": "name" - }, - "in_account": { - "pk_hash": "a2c20c77887ace1cd986193e4e75babd8993cfd56995cd5cfce609c2" - } - }, - "by": 100 - }, - "token": { "currency_symbol": "aa", "token_name": "name" } - }, - "if": { - "either": { - "chose_something_for": { - "choice_name": "choice", - "choice_owner": { - "pk_hash": "a2c20c77887ace1cd986193e4e75babd8993cfd56995cd5cfce609c2" - } - } - }, - "or": { - "equal_to": 100, - "value": { - "value_of_choice": { - "choice_name": "choice", - "choice_owner": { - "pk_hash": "a2c20c77887ace1cd986193e4e75babd8993cfd56995cd5cfce609c2" - } - } - } - } - } - }, - "case": { - "for_choice": { - "choice_name": "choice", - "choice_owner": { - "pk_hash": "a2c20c77887ace1cd986193e4e75babd8993cfd56995cd5cfce609c2" - } - }, - "choose_between": [ - { "from": 0, "to": 1 }, - { "from": 10, "to": 20 } - ] - } - }, - { - "then": "close", - "case": { - "notify_if": { - "both": { - "lt": "time_interval_end", - "value": "time_interval_start" - }, - "and": true - } - } - } - ], - "timeout_continuation": "close" - }, - "assert": true -} diff --git a/marlowe-playground-client/generated/JSON/state.json b/marlowe-playground-client/generated/JSON/state.json deleted file mode 100644 index b15c5ed29e..0000000000 --- a/marlowe-playground-client/generated/JSON/state.json +++ /dev/null @@ -1,29 +0,0 @@ -{ - "choices": [ - [ - { - "choice_name": "choice", - "choice_owner": { - "pk_hash": "a2c20c77887ace1cd986193e4e75babd8993cfd56995cd5cfce609c2" - } - }, - 42 - ] - ], - "boundValues": [ - ["x", 1], - ["y", 2] - ], - "accounts": [ - [ - [ - { - "pk_hash": "a2c20c77887ace1cd986193e4e75babd8993cfd56995cd5cfce609c2" - }, - { "currency_symbol": "aa", "token_name": "name" } - ], - 12 - ] - ], - "minTime": 123 -} diff --git a/marlowe-playground-client/generated/Language/Haskell/Interpreter.purs b/marlowe-playground-client/generated/Language/Haskell/Interpreter.purs index b8900fbe34..f3e2e50c11 100644 --- a/marlowe-playground-client/generated/Language/Haskell/Interpreter.purs +++ b/marlowe-playground-client/generated/Language/Haskell/Interpreter.purs @@ -141,25 +141,6 @@ _InterpreterResult = _Newtype -------------------------------------------------------------------------------- -newtype SourceCode = SourceCode String - -instance EncodeJson SourceCode where - encodeJson = defer \_ -> E.encode $ unwrap >$< E.value - -instance DecodeJson SourceCode where - decodeJson = defer \_ -> D.decode $ (SourceCode <$> D.value) - -derive instance Generic SourceCode _ - -derive instance Newtype SourceCode _ - --------------------------------------------------------------------------------- - -_SourceCode :: Iso' SourceCode String -_SourceCode = _Newtype - --------------------------------------------------------------------------------- - newtype Warning = Warning String instance EncodeJson Warning where diff --git a/marlowe-playground-client/generated/Language/Marlowe/ACTUS/Domain/BusinessEvents.purs b/marlowe-playground-client/generated/Language/Marlowe/ACTUS/Domain/BusinessEvents.purs deleted file mode 100644 index 17bdd00411..0000000000 --- a/marlowe-playground-client/generated/Language/Marlowe/ACTUS/Domain/BusinessEvents.purs +++ /dev/null @@ -1,203 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Language.Marlowe.ACTUS.Domain.BusinessEvents where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Bounded.Generic (genericBottom, genericTop) -import Data.Enum (class Enum) -import Data.Enum.Generic (genericPred, genericSucc) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -data EventType - = IED - | FP - | PR - | PD - | PY - | PP - | IP - | IPFX - | IPFL - | IPCI - | CE - | RRF - | RR - | PRF - | DV - | PRD - | MR - | TD - | SC - | IPCB - | MD - | XD - | STD - | PI - | AD - -derive instance Eq EventType - -derive instance Ord EventType - -instance Show EventType where - show a = genericShow a - -instance EncodeJson EventType where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson EventType where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic EventType _ - -instance Enum EventType where - succ = genericSucc - pred = genericPred - -instance Bounded EventType where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_IED :: Prism' EventType Unit -_IED = prism' (const IED) case _ of - IED -> Just unit - _ -> Nothing - -_FP :: Prism' EventType Unit -_FP = prism' (const FP) case _ of - FP -> Just unit - _ -> Nothing - -_PR :: Prism' EventType Unit -_PR = prism' (const PR) case _ of - PR -> Just unit - _ -> Nothing - -_PD :: Prism' EventType Unit -_PD = prism' (const PD) case _ of - PD -> Just unit - _ -> Nothing - -_PY :: Prism' EventType Unit -_PY = prism' (const PY) case _ of - PY -> Just unit - _ -> Nothing - -_PP :: Prism' EventType Unit -_PP = prism' (const PP) case _ of - PP -> Just unit - _ -> Nothing - -_IP :: Prism' EventType Unit -_IP = prism' (const IP) case _ of - IP -> Just unit - _ -> Nothing - -_IPFX :: Prism' EventType Unit -_IPFX = prism' (const IPFX) case _ of - IPFX -> Just unit - _ -> Nothing - -_IPFL :: Prism' EventType Unit -_IPFL = prism' (const IPFL) case _ of - IPFL -> Just unit - _ -> Nothing - -_IPCI :: Prism' EventType Unit -_IPCI = prism' (const IPCI) case _ of - IPCI -> Just unit - _ -> Nothing - -_CE :: Prism' EventType Unit -_CE = prism' (const CE) case _ of - CE -> Just unit - _ -> Nothing - -_RRF :: Prism' EventType Unit -_RRF = prism' (const RRF) case _ of - RRF -> Just unit - _ -> Nothing - -_RR :: Prism' EventType Unit -_RR = prism' (const RR) case _ of - RR -> Just unit - _ -> Nothing - -_PRF :: Prism' EventType Unit -_PRF = prism' (const PRF) case _ of - PRF -> Just unit - _ -> Nothing - -_DV :: Prism' EventType Unit -_DV = prism' (const DV) case _ of - DV -> Just unit - _ -> Nothing - -_PRD :: Prism' EventType Unit -_PRD = prism' (const PRD) case _ of - PRD -> Just unit - _ -> Nothing - -_MR :: Prism' EventType Unit -_MR = prism' (const MR) case _ of - MR -> Just unit - _ -> Nothing - -_TD :: Prism' EventType Unit -_TD = prism' (const TD) case _ of - TD -> Just unit - _ -> Nothing - -_SC :: Prism' EventType Unit -_SC = prism' (const SC) case _ of - SC -> Just unit - _ -> Nothing - -_IPCB :: Prism' EventType Unit -_IPCB = prism' (const IPCB) case _ of - IPCB -> Just unit - _ -> Nothing - -_MD :: Prism' EventType Unit -_MD = prism' (const MD) case _ of - MD -> Just unit - _ -> Nothing - -_XD :: Prism' EventType Unit -_XD = prism' (const XD) case _ of - XD -> Just unit - _ -> Nothing - -_STD :: Prism' EventType Unit -_STD = prism' (const STD) case _ of - STD -> Just unit - _ -> Nothing - -_PI :: Prism' EventType Unit -_PI = prism' (const PI) case _ of - PI -> Just unit - _ -> Nothing - -_AD :: Prism' EventType Unit -_AD = prism' (const AD) case _ of - AD -> Just unit - _ -> Nothing diff --git a/marlowe-playground-client/generated/Language/Marlowe/ACTUS/Domain/ContractTerms.purs b/marlowe-playground-client/generated/Language/Marlowe/ACTUS/Domain/ContractTerms.purs deleted file mode 100644 index 4b1db8c48b..0000000000 --- a/marlowe-playground-client/generated/Language/Marlowe/ACTUS/Domain/ContractTerms.purs +++ /dev/null @@ -1,1869 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Language.Marlowe.ACTUS.Domain.ContractTerms where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Bounded.Generic (genericBottom, genericTop) -import Data.Enum (class Enum) -import Data.Enum.Generic (genericPred, genericSucc) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype Assertion = NpvAssertionAgainstZeroRiskBond - { zeroRiskInterest :: Number - , expectedNpv :: Number - } - -instance EncodeJson Assertion where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { zeroRiskInterest: E.value :: _ Number - , expectedNpv: E.value :: _ Number - } - ) - -instance DecodeJson Assertion where - decodeJson = defer \_ -> D.decode $ - ( NpvAssertionAgainstZeroRiskBond <$> D.record - "NpvAssertionAgainstZeroRiskBond" - { zeroRiskInterest: D.value :: _ Number - , expectedNpv: D.value :: _ Number - } - ) - -derive instance Generic Assertion _ - -derive instance Newtype Assertion _ - --------------------------------------------------------------------------------- - -_NpvAssertionAgainstZeroRiskBond - :: Iso' Assertion { zeroRiskInterest :: Number, expectedNpv :: Number } -_NpvAssertionAgainstZeroRiskBond = _Newtype - --------------------------------------------------------------------------------- - -newtype AssertionContext = AssertionContext - { rrmoMin :: Number - , rrmoMax :: Number - } - -instance EncodeJson AssertionContext where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { rrmoMin: E.value :: _ Number - , rrmoMax: E.value :: _ Number - } - ) - -instance DecodeJson AssertionContext where - decodeJson = defer \_ -> D.decode $ - ( AssertionContext <$> D.record "AssertionContext" - { rrmoMin: D.value :: _ Number - , rrmoMax: D.value :: _ Number - } - ) - -derive instance Generic AssertionContext _ - -derive instance Newtype AssertionContext _ - --------------------------------------------------------------------------------- - -_AssertionContext - :: Iso' AssertionContext { rrmoMin :: Number, rrmoMax :: Number } -_AssertionContext = _Newtype - --------------------------------------------------------------------------------- - -newtype Assertions = Assertions - { context :: AssertionContext - , assertions :: Array Assertion - } - -instance EncodeJson Assertions where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { context: E.value :: _ AssertionContext - , assertions: E.value :: _ (Array Assertion) - } - ) - -instance DecodeJson Assertions where - decodeJson = defer \_ -> D.decode $ - ( Assertions <$> D.record "Assertions" - { context: D.value :: _ AssertionContext - , assertions: D.value :: _ (Array Assertion) - } - ) - -derive instance Generic Assertions _ - -derive instance Newtype Assertions _ - --------------------------------------------------------------------------------- - -_Assertions - :: Iso' Assertions - { context :: AssertionContext, assertions :: Array Assertion } -_Assertions = _Newtype - --------------------------------------------------------------------------------- - -data BDC - = BDC_NULL - | BDC_SCF - | BDC_SCMF - | BDC_CSF - | BDC_CSMF - | BDC_SCP - | BDC_SCMP - | BDC_CSP - | BDC_CSMP - -derive instance Eq BDC - -derive instance Ord BDC - -instance Show BDC where - show a = genericShow a - -instance EncodeJson BDC where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson BDC where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic BDC _ - -instance Enum BDC where - succ = genericSucc - pred = genericPred - -instance Bounded BDC where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_BDC_NULL :: Prism' BDC Unit -_BDC_NULL = prism' (const BDC_NULL) case _ of - BDC_NULL -> Just unit - _ -> Nothing - -_BDC_SCF :: Prism' BDC Unit -_BDC_SCF = prism' (const BDC_SCF) case _ of - BDC_SCF -> Just unit - _ -> Nothing - -_BDC_SCMF :: Prism' BDC Unit -_BDC_SCMF = prism' (const BDC_SCMF) case _ of - BDC_SCMF -> Just unit - _ -> Nothing - -_BDC_CSF :: Prism' BDC Unit -_BDC_CSF = prism' (const BDC_CSF) case _ of - BDC_CSF -> Just unit - _ -> Nothing - -_BDC_CSMF :: Prism' BDC Unit -_BDC_CSMF = prism' (const BDC_CSMF) case _ of - BDC_CSMF -> Just unit - _ -> Nothing - -_BDC_SCP :: Prism' BDC Unit -_BDC_SCP = prism' (const BDC_SCP) case _ of - BDC_SCP -> Just unit - _ -> Nothing - -_BDC_SCMP :: Prism' BDC Unit -_BDC_SCMP = prism' (const BDC_SCMP) case _ of - BDC_SCMP -> Just unit - _ -> Nothing - -_BDC_CSP :: Prism' BDC Unit -_BDC_CSP = prism' (const BDC_CSP) case _ of - BDC_CSP -> Just unit - _ -> Nothing - -_BDC_CSMP :: Prism' BDC Unit -_BDC_CSMP = prism' (const BDC_CSMP) case _ of - BDC_CSMP -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data CEGE - = CEGE_NO - | CEGE_NI - -derive instance Eq CEGE - -derive instance Ord CEGE - -instance Show CEGE where - show a = genericShow a - -instance EncodeJson CEGE where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson CEGE where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic CEGE _ - -instance Enum CEGE where - succ = genericSucc - pred = genericPred - -instance Bounded CEGE where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_CEGE_NO :: Prism' CEGE Unit -_CEGE_NO = prism' (const CEGE_NO) case _ of - CEGE_NO -> Just unit - _ -> Nothing - -_CEGE_NI :: Prism' CEGE Unit -_CEGE_NI = prism' (const CEGE_NI) case _ of - CEGE_NI -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data CETC - = CETC_DL - | CETC_DQ - | CETC_DF - -derive instance Eq CETC - -derive instance Ord CETC - -instance Show CETC where - show a = genericShow a - -instance EncodeJson CETC where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson CETC where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic CETC _ - -instance Enum CETC where - succ = genericSucc - pred = genericPred - -instance Bounded CETC where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_CETC_DL :: Prism' CETC Unit -_CETC_DL = prism' (const CETC_DL) case _ of - CETC_DL -> Just unit - _ -> Nothing - -_CETC_DQ :: Prism' CETC Unit -_CETC_DQ = prism' (const CETC_DQ) case _ of - CETC_DQ -> Just unit - _ -> Nothing - -_CETC_DF :: Prism' CETC Unit -_CETC_DF = prism' (const CETC_DF) case _ of - CETC_DF -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data CR - = CR_RPA - | CR_RPL - | CR_CLO - | CR_CNO - | CR_COL - | CR_LG - | CR_ST - | CR_BUY - | CR_SEL - | CR_RFL - | CR_PFL - | CR_RF - | CR_PF - -derive instance Eq CR - -derive instance Ord CR - -instance Show CR where - show a = genericShow a - -instance EncodeJson CR where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson CR where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic CR _ - -instance Enum CR where - succ = genericSucc - pred = genericPred - -instance Bounded CR where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_CR_RPA :: Prism' CR Unit -_CR_RPA = prism' (const CR_RPA) case _ of - CR_RPA -> Just unit - _ -> Nothing - -_CR_RPL :: Prism' CR Unit -_CR_RPL = prism' (const CR_RPL) case _ of - CR_RPL -> Just unit - _ -> Nothing - -_CR_CLO :: Prism' CR Unit -_CR_CLO = prism' (const CR_CLO) case _ of - CR_CLO -> Just unit - _ -> Nothing - -_CR_CNO :: Prism' CR Unit -_CR_CNO = prism' (const CR_CNO) case _ of - CR_CNO -> Just unit - _ -> Nothing - -_CR_COL :: Prism' CR Unit -_CR_COL = prism' (const CR_COL) case _ of - CR_COL -> Just unit - _ -> Nothing - -_CR_LG :: Prism' CR Unit -_CR_LG = prism' (const CR_LG) case _ of - CR_LG -> Just unit - _ -> Nothing - -_CR_ST :: Prism' CR Unit -_CR_ST = prism' (const CR_ST) case _ of - CR_ST -> Just unit - _ -> Nothing - -_CR_BUY :: Prism' CR Unit -_CR_BUY = prism' (const CR_BUY) case _ of - CR_BUY -> Just unit - _ -> Nothing - -_CR_SEL :: Prism' CR Unit -_CR_SEL = prism' (const CR_SEL) case _ of - CR_SEL -> Just unit - _ -> Nothing - -_CR_RFL :: Prism' CR Unit -_CR_RFL = prism' (const CR_RFL) case _ of - CR_RFL -> Just unit - _ -> Nothing - -_CR_PFL :: Prism' CR Unit -_CR_PFL = prism' (const CR_PFL) case _ of - CR_PFL -> Just unit - _ -> Nothing - -_CR_RF :: Prism' CR Unit -_CR_RF = prism' (const CR_RF) case _ of - CR_RF -> Just unit - _ -> Nothing - -_CR_PF :: Prism' CR Unit -_CR_PF = prism' (const CR_PF) case _ of - CR_PF -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data CT - = PAM - | LAM - | NAM - | ANN - | STK - | OPTNS - | FUTUR - | COM - | CSH - | CLM - | SWPPV - | CEG - | CEC - -derive instance Eq CT - -derive instance Ord CT - -instance Show CT where - show a = genericShow a - -instance EncodeJson CT where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson CT where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic CT _ - -instance Enum CT where - succ = genericSucc - pred = genericPred - -instance Bounded CT where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_PAM :: Prism' CT Unit -_PAM = prism' (const PAM) case _ of - PAM -> Just unit - _ -> Nothing - -_LAM :: Prism' CT Unit -_LAM = prism' (const LAM) case _ of - LAM -> Just unit - _ -> Nothing - -_NAM :: Prism' CT Unit -_NAM = prism' (const NAM) case _ of - NAM -> Just unit - _ -> Nothing - -_ANN :: Prism' CT Unit -_ANN = prism' (const ANN) case _ of - ANN -> Just unit - _ -> Nothing - -_STK :: Prism' CT Unit -_STK = prism' (const STK) case _ of - STK -> Just unit - _ -> Nothing - -_OPTNS :: Prism' CT Unit -_OPTNS = prism' (const OPTNS) case _ of - OPTNS -> Just unit - _ -> Nothing - -_FUTUR :: Prism' CT Unit -_FUTUR = prism' (const FUTUR) case _ of - FUTUR -> Just unit - _ -> Nothing - -_COM :: Prism' CT Unit -_COM = prism' (const COM) case _ of - COM -> Just unit - _ -> Nothing - -_CSH :: Prism' CT Unit -_CSH = prism' (const CSH) case _ of - CSH -> Just unit - _ -> Nothing - -_CLM :: Prism' CT Unit -_CLM = prism' (const CLM) case _ of - CLM -> Just unit - _ -> Nothing - -_SWPPV :: Prism' CT Unit -_SWPPV = prism' (const SWPPV) case _ of - SWPPV -> Just unit - _ -> Nothing - -_CEG :: Prism' CT Unit -_CEG = prism' (const CEG) case _ of - CEG -> Just unit - _ -> Nothing - -_CEC :: Prism' CT Unit -_CEC = prism' (const CEC) case _ of - CEC -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data Calendar - = CLDR_MF - | CLDR_NC - -derive instance Eq Calendar - -derive instance Ord Calendar - -instance Show Calendar where - show a = genericShow a - -instance EncodeJson Calendar where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson Calendar where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic Calendar _ - -instance Enum Calendar where - succ = genericSucc - pred = genericPred - -instance Bounded Calendar where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_CLDR_MF :: Prism' Calendar Unit -_CLDR_MF = prism' (const CLDR_MF) case _ of - CLDR_MF -> Just unit - _ -> Nothing - -_CLDR_NC :: Prism' Calendar Unit -_CLDR_NC = prism' (const CLDR_NC) case _ of - CLDR_NC -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype ContractStructure a = ContractStructure - { reference :: Reference a - , referenceType :: ReferenceType - , referenceRole :: ReferenceRole - } - -instance (EncodeJson a) => EncodeJson (ContractStructure a) where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { reference: E.value :: _ (Reference a) - , referenceType: E.value :: _ ReferenceType - , referenceRole: E.value :: _ ReferenceRole - } - ) - -instance (DecodeJson a) => DecodeJson (ContractStructure a) where - decodeJson = defer \_ -> D.decode $ - ( ContractStructure <$> D.record "ContractStructure" - { reference: D.value :: _ (Reference a) - , referenceType: D.value :: _ ReferenceType - , referenceRole: D.value :: _ ReferenceRole - } - ) - -derive instance Generic (ContractStructure a) _ - -derive instance Newtype (ContractStructure a) _ - --------------------------------------------------------------------------------- - -_ContractStructure - :: forall a - . Iso' (ContractStructure a) - { reference :: Reference a - , referenceType :: ReferenceType - , referenceRole :: ReferenceRole - } -_ContractStructure = _Newtype - --------------------------------------------------------------------------------- - -newtype ContractTermsPoly a = ContractTermsPoly - { contractId :: String - , contractType :: CT - , contractStructure :: Array (ContractStructure a) - , contractRole :: CR - , settlementCurrency :: Maybe String - , initialExchangeDate :: Maybe String - , dayCountConvention :: Maybe DCC - , scheduleConfig :: ScheduleConfig - , statusDate :: String - , contractPerformance :: Maybe PRF - , creditEventTypeCovered :: Maybe CETC - , coverageOfCreditEnhancement :: Maybe a - , guaranteedExposure :: Maybe CEGE - , cycleOfFee :: Maybe Cycle - , cycleAnchorDateOfFee :: Maybe String - , feeAccrued :: Maybe a - , feeBasis :: Maybe FEB - , feeRate :: Maybe a - , cycleAnchorDateOfInterestPayment :: Maybe String - , cycleOfInterestPayment :: Maybe Cycle - , accruedInterest :: Maybe a - , capitalizationEndDate :: Maybe String - , cycleAnchorDateOfInterestCalculationBase :: Maybe String - , cycleOfInterestCalculationBase :: Maybe Cycle - , interestCalculationBase :: Maybe IPCB - , interestCalculationBaseA :: Maybe a - , nominalInterestRate :: Maybe a - , nominalInterestRate2 :: Maybe a - , interestScalingMultiplier :: Maybe a - , maturityDate :: Maybe String - , amortizationDate :: Maybe String - , exerciseDate :: Maybe String - , notionalPrincipal :: Maybe a - , premiumDiscountAtIED :: Maybe a - , cycleAnchorDateOfPrincipalRedemption :: Maybe String - , cycleOfPrincipalRedemption :: Maybe Cycle - , nextPrincipalRedemptionPayment :: Maybe a - , purchaseDate :: Maybe String - , priceAtPurchaseDate :: Maybe a - , terminationDate :: Maybe String - , priceAtTerminationDate :: Maybe a - , quantity :: Maybe a - , scalingIndexAtStatusDate :: Maybe a - , cycleAnchorDateOfScalingIndex :: Maybe String - , cycleOfScalingIndex :: Maybe Cycle - , scalingEffect :: Maybe SCEF - , scalingIndexAtContractDealDate :: Maybe a - , marketObjectCodeOfScalingIndex :: Maybe String - , notionalScalingMultiplier :: Maybe a - , cycleOfOptionality :: Maybe Cycle - , cycleAnchorDateOfOptionality :: Maybe String - , optionType :: Maybe OPTP - , optionStrike1 :: Maybe a - , optionExerciseType :: Maybe OPXT - , settlementPeriod :: Maybe Cycle - , deliverySettlement :: Maybe DS - , exerciseAmount :: Maybe a - , futuresPrice :: Maybe a - , penaltyRate :: Maybe a - , penaltyType :: Maybe PYTP - , prepaymentEffect :: Maybe PPEF - , cycleOfRateReset :: Maybe Cycle - , cycleAnchorDateOfRateReset :: Maybe String - , nextResetRate :: Maybe a - , rateSpread :: Maybe a - , rateMultiplier :: Maybe a - , periodFloor :: Maybe a - , periodCap :: Maybe a - , lifeCap :: Maybe a - , lifeFloor :: Maybe a - , marketObjectCodeOfRateReset :: Maybe String - , cycleOfDividend :: Maybe Cycle - , cycleAnchorDateOfDividend :: Maybe String - , nextDividendPaymentAmount :: Maybe a - , enableSettlement :: Boolean - , constraints :: Maybe Assertions - } - -instance (EncodeJson a) => EncodeJson (ContractTermsPoly a) where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { contractId: E.value :: _ String - , contractType: E.value :: _ CT - , contractStructure: E.value :: _ (Array (ContractStructure a)) - , contractRole: E.value :: _ CR - , settlementCurrency: (E.maybe E.value) :: _ (Maybe String) - , initialExchangeDate: (E.maybe E.value) :: _ (Maybe String) - , dayCountConvention: (E.maybe E.value) :: _ (Maybe DCC) - , scheduleConfig: E.value :: _ ScheduleConfig - , statusDate: E.value :: _ String - , contractPerformance: (E.maybe E.value) :: _ (Maybe PRF) - , creditEventTypeCovered: (E.maybe E.value) :: _ (Maybe CETC) - , coverageOfCreditEnhancement: (E.maybe E.value) :: _ (Maybe a) - , guaranteedExposure: (E.maybe E.value) :: _ (Maybe CEGE) - , cycleOfFee: (E.maybe E.value) :: _ (Maybe Cycle) - , cycleAnchorDateOfFee: (E.maybe E.value) :: _ (Maybe String) - , feeAccrued: (E.maybe E.value) :: _ (Maybe a) - , feeBasis: (E.maybe E.value) :: _ (Maybe FEB) - , feeRate: (E.maybe E.value) :: _ (Maybe a) - , cycleAnchorDateOfInterestPayment: - (E.maybe E.value) :: _ (Maybe String) - , cycleOfInterestPayment: (E.maybe E.value) :: _ (Maybe Cycle) - , accruedInterest: (E.maybe E.value) :: _ (Maybe a) - , capitalizationEndDate: (E.maybe E.value) :: _ (Maybe String) - , cycleAnchorDateOfInterestCalculationBase: - (E.maybe E.value) :: _ (Maybe String) - , cycleOfInterestCalculationBase: (E.maybe E.value) :: _ (Maybe Cycle) - , interestCalculationBase: (E.maybe E.value) :: _ (Maybe IPCB) - , interestCalculationBaseA: (E.maybe E.value) :: _ (Maybe a) - , nominalInterestRate: (E.maybe E.value) :: _ (Maybe a) - , nominalInterestRate2: (E.maybe E.value) :: _ (Maybe a) - , interestScalingMultiplier: (E.maybe E.value) :: _ (Maybe a) - , maturityDate: (E.maybe E.value) :: _ (Maybe String) - , amortizationDate: (E.maybe E.value) :: _ (Maybe String) - , exerciseDate: (E.maybe E.value) :: _ (Maybe String) - , notionalPrincipal: (E.maybe E.value) :: _ (Maybe a) - , premiumDiscountAtIED: (E.maybe E.value) :: _ (Maybe a) - , cycleAnchorDateOfPrincipalRedemption: - (E.maybe E.value) :: _ (Maybe String) - , cycleOfPrincipalRedemption: (E.maybe E.value) :: _ (Maybe Cycle) - , nextPrincipalRedemptionPayment: (E.maybe E.value) :: _ (Maybe a) - , purchaseDate: (E.maybe E.value) :: _ (Maybe String) - , priceAtPurchaseDate: (E.maybe E.value) :: _ (Maybe a) - , terminationDate: (E.maybe E.value) :: _ (Maybe String) - , priceAtTerminationDate: (E.maybe E.value) :: _ (Maybe a) - , quantity: (E.maybe E.value) :: _ (Maybe a) - , scalingIndexAtStatusDate: (E.maybe E.value) :: _ (Maybe a) - , cycleAnchorDateOfScalingIndex: (E.maybe E.value) :: _ (Maybe String) - , cycleOfScalingIndex: (E.maybe E.value) :: _ (Maybe Cycle) - , scalingEffect: (E.maybe E.value) :: _ (Maybe SCEF) - , scalingIndexAtContractDealDate: (E.maybe E.value) :: _ (Maybe a) - , marketObjectCodeOfScalingIndex: (E.maybe E.value) :: _ (Maybe String) - , notionalScalingMultiplier: (E.maybe E.value) :: _ (Maybe a) - , cycleOfOptionality: (E.maybe E.value) :: _ (Maybe Cycle) - , cycleAnchorDateOfOptionality: (E.maybe E.value) :: _ (Maybe String) - , optionType: (E.maybe E.value) :: _ (Maybe OPTP) - , optionStrike1: (E.maybe E.value) :: _ (Maybe a) - , optionExerciseType: (E.maybe E.value) :: _ (Maybe OPXT) - , settlementPeriod: (E.maybe E.value) :: _ (Maybe Cycle) - , deliverySettlement: (E.maybe E.value) :: _ (Maybe DS) - , exerciseAmount: (E.maybe E.value) :: _ (Maybe a) - , futuresPrice: (E.maybe E.value) :: _ (Maybe a) - , penaltyRate: (E.maybe E.value) :: _ (Maybe a) - , penaltyType: (E.maybe E.value) :: _ (Maybe PYTP) - , prepaymentEffect: (E.maybe E.value) :: _ (Maybe PPEF) - , cycleOfRateReset: (E.maybe E.value) :: _ (Maybe Cycle) - , cycleAnchorDateOfRateReset: (E.maybe E.value) :: _ (Maybe String) - , nextResetRate: (E.maybe E.value) :: _ (Maybe a) - , rateSpread: (E.maybe E.value) :: _ (Maybe a) - , rateMultiplier: (E.maybe E.value) :: _ (Maybe a) - , periodFloor: (E.maybe E.value) :: _ (Maybe a) - , periodCap: (E.maybe E.value) :: _ (Maybe a) - , lifeCap: (E.maybe E.value) :: _ (Maybe a) - , lifeFloor: (E.maybe E.value) :: _ (Maybe a) - , marketObjectCodeOfRateReset: (E.maybe E.value) :: _ (Maybe String) - , cycleOfDividend: (E.maybe E.value) :: _ (Maybe Cycle) - , cycleAnchorDateOfDividend: (E.maybe E.value) :: _ (Maybe String) - , nextDividendPaymentAmount: (E.maybe E.value) :: _ (Maybe a) - , enableSettlement: E.value :: _ Boolean - , constraints: (E.maybe E.value) :: _ (Maybe Assertions) - } - ) - -instance (DecodeJson a) => DecodeJson (ContractTermsPoly a) where - decodeJson = defer \_ -> D.decode $ - ( ContractTermsPoly <$> D.record "ContractTermsPoly" - { contractId: D.value :: _ String - , contractType: D.value :: _ CT - , contractStructure: D.value :: _ (Array (ContractStructure a)) - , contractRole: D.value :: _ CR - , settlementCurrency: (D.maybe D.value) :: _ (Maybe String) - , initialExchangeDate: (D.maybe D.value) :: _ (Maybe String) - , dayCountConvention: (D.maybe D.value) :: _ (Maybe DCC) - , scheduleConfig: D.value :: _ ScheduleConfig - , statusDate: D.value :: _ String - , contractPerformance: (D.maybe D.value) :: _ (Maybe PRF) - , creditEventTypeCovered: (D.maybe D.value) :: _ (Maybe CETC) - , coverageOfCreditEnhancement: (D.maybe D.value) :: _ (Maybe a) - , guaranteedExposure: (D.maybe D.value) :: _ (Maybe CEGE) - , cycleOfFee: (D.maybe D.value) :: _ (Maybe Cycle) - , cycleAnchorDateOfFee: (D.maybe D.value) :: _ (Maybe String) - , feeAccrued: (D.maybe D.value) :: _ (Maybe a) - , feeBasis: (D.maybe D.value) :: _ (Maybe FEB) - , feeRate: (D.maybe D.value) :: _ (Maybe a) - , cycleAnchorDateOfInterestPayment: - (D.maybe D.value) :: _ (Maybe String) - , cycleOfInterestPayment: (D.maybe D.value) :: _ (Maybe Cycle) - , accruedInterest: (D.maybe D.value) :: _ (Maybe a) - , capitalizationEndDate: (D.maybe D.value) :: _ (Maybe String) - , cycleAnchorDateOfInterestCalculationBase: - (D.maybe D.value) :: _ (Maybe String) - , cycleOfInterestCalculationBase: (D.maybe D.value) :: _ (Maybe Cycle) - , interestCalculationBase: (D.maybe D.value) :: _ (Maybe IPCB) - , interestCalculationBaseA: (D.maybe D.value) :: _ (Maybe a) - , nominalInterestRate: (D.maybe D.value) :: _ (Maybe a) - , nominalInterestRate2: (D.maybe D.value) :: _ (Maybe a) - , interestScalingMultiplier: (D.maybe D.value) :: _ (Maybe a) - , maturityDate: (D.maybe D.value) :: _ (Maybe String) - , amortizationDate: (D.maybe D.value) :: _ (Maybe String) - , exerciseDate: (D.maybe D.value) :: _ (Maybe String) - , notionalPrincipal: (D.maybe D.value) :: _ (Maybe a) - , premiumDiscountAtIED: (D.maybe D.value) :: _ (Maybe a) - , cycleAnchorDateOfPrincipalRedemption: - (D.maybe D.value) :: _ (Maybe String) - , cycleOfPrincipalRedemption: (D.maybe D.value) :: _ (Maybe Cycle) - , nextPrincipalRedemptionPayment: (D.maybe D.value) :: _ (Maybe a) - , purchaseDate: (D.maybe D.value) :: _ (Maybe String) - , priceAtPurchaseDate: (D.maybe D.value) :: _ (Maybe a) - , terminationDate: (D.maybe D.value) :: _ (Maybe String) - , priceAtTerminationDate: (D.maybe D.value) :: _ (Maybe a) - , quantity: (D.maybe D.value) :: _ (Maybe a) - , scalingIndexAtStatusDate: (D.maybe D.value) :: _ (Maybe a) - , cycleAnchorDateOfScalingIndex: (D.maybe D.value) :: _ (Maybe String) - , cycleOfScalingIndex: (D.maybe D.value) :: _ (Maybe Cycle) - , scalingEffect: (D.maybe D.value) :: _ (Maybe SCEF) - , scalingIndexAtContractDealDate: (D.maybe D.value) :: _ (Maybe a) - , marketObjectCodeOfScalingIndex: (D.maybe D.value) :: _ (Maybe String) - , notionalScalingMultiplier: (D.maybe D.value) :: _ (Maybe a) - , cycleOfOptionality: (D.maybe D.value) :: _ (Maybe Cycle) - , cycleAnchorDateOfOptionality: (D.maybe D.value) :: _ (Maybe String) - , optionType: (D.maybe D.value) :: _ (Maybe OPTP) - , optionStrike1: (D.maybe D.value) :: _ (Maybe a) - , optionExerciseType: (D.maybe D.value) :: _ (Maybe OPXT) - , settlementPeriod: (D.maybe D.value) :: _ (Maybe Cycle) - , deliverySettlement: (D.maybe D.value) :: _ (Maybe DS) - , exerciseAmount: (D.maybe D.value) :: _ (Maybe a) - , futuresPrice: (D.maybe D.value) :: _ (Maybe a) - , penaltyRate: (D.maybe D.value) :: _ (Maybe a) - , penaltyType: (D.maybe D.value) :: _ (Maybe PYTP) - , prepaymentEffect: (D.maybe D.value) :: _ (Maybe PPEF) - , cycleOfRateReset: (D.maybe D.value) :: _ (Maybe Cycle) - , cycleAnchorDateOfRateReset: (D.maybe D.value) :: _ (Maybe String) - , nextResetRate: (D.maybe D.value) :: _ (Maybe a) - , rateSpread: (D.maybe D.value) :: _ (Maybe a) - , rateMultiplier: (D.maybe D.value) :: _ (Maybe a) - , periodFloor: (D.maybe D.value) :: _ (Maybe a) - , periodCap: (D.maybe D.value) :: _ (Maybe a) - , lifeCap: (D.maybe D.value) :: _ (Maybe a) - , lifeFloor: (D.maybe D.value) :: _ (Maybe a) - , marketObjectCodeOfRateReset: (D.maybe D.value) :: _ (Maybe String) - , cycleOfDividend: (D.maybe D.value) :: _ (Maybe Cycle) - , cycleAnchorDateOfDividend: (D.maybe D.value) :: _ (Maybe String) - , nextDividendPaymentAmount: (D.maybe D.value) :: _ (Maybe a) - , enableSettlement: D.value :: _ Boolean - , constraints: (D.maybe D.value) :: _ (Maybe Assertions) - } - ) - -derive instance Generic (ContractTermsPoly a) _ - -derive instance Newtype (ContractTermsPoly a) _ - --------------------------------------------------------------------------------- - -_ContractTermsPoly - :: forall a - . Iso' (ContractTermsPoly a) - { contractId :: String - , contractType :: CT - , contractStructure :: Array (ContractStructure a) - , contractRole :: CR - , settlementCurrency :: Maybe String - , initialExchangeDate :: Maybe String - , dayCountConvention :: Maybe DCC - , scheduleConfig :: ScheduleConfig - , statusDate :: String - , contractPerformance :: Maybe PRF - , creditEventTypeCovered :: Maybe CETC - , coverageOfCreditEnhancement :: Maybe a - , guaranteedExposure :: Maybe CEGE - , cycleOfFee :: Maybe Cycle - , cycleAnchorDateOfFee :: Maybe String - , feeAccrued :: Maybe a - , feeBasis :: Maybe FEB - , feeRate :: Maybe a - , cycleAnchorDateOfInterestPayment :: Maybe String - , cycleOfInterestPayment :: Maybe Cycle - , accruedInterest :: Maybe a - , capitalizationEndDate :: Maybe String - , cycleAnchorDateOfInterestCalculationBase :: Maybe String - , cycleOfInterestCalculationBase :: Maybe Cycle - , interestCalculationBase :: Maybe IPCB - , interestCalculationBaseA :: Maybe a - , nominalInterestRate :: Maybe a - , nominalInterestRate2 :: Maybe a - , interestScalingMultiplier :: Maybe a - , maturityDate :: Maybe String - , amortizationDate :: Maybe String - , exerciseDate :: Maybe String - , notionalPrincipal :: Maybe a - , premiumDiscountAtIED :: Maybe a - , cycleAnchorDateOfPrincipalRedemption :: Maybe String - , cycleOfPrincipalRedemption :: Maybe Cycle - , nextPrincipalRedemptionPayment :: Maybe a - , purchaseDate :: Maybe String - , priceAtPurchaseDate :: Maybe a - , terminationDate :: Maybe String - , priceAtTerminationDate :: Maybe a - , quantity :: Maybe a - , scalingIndexAtStatusDate :: Maybe a - , cycleAnchorDateOfScalingIndex :: Maybe String - , cycleOfScalingIndex :: Maybe Cycle - , scalingEffect :: Maybe SCEF - , scalingIndexAtContractDealDate :: Maybe a - , marketObjectCodeOfScalingIndex :: Maybe String - , notionalScalingMultiplier :: Maybe a - , cycleOfOptionality :: Maybe Cycle - , cycleAnchorDateOfOptionality :: Maybe String - , optionType :: Maybe OPTP - , optionStrike1 :: Maybe a - , optionExerciseType :: Maybe OPXT - , settlementPeriod :: Maybe Cycle - , deliverySettlement :: Maybe DS - , exerciseAmount :: Maybe a - , futuresPrice :: Maybe a - , penaltyRate :: Maybe a - , penaltyType :: Maybe PYTP - , prepaymentEffect :: Maybe PPEF - , cycleOfRateReset :: Maybe Cycle - , cycleAnchorDateOfRateReset :: Maybe String - , nextResetRate :: Maybe a - , rateSpread :: Maybe a - , rateMultiplier :: Maybe a - , periodFloor :: Maybe a - , periodCap :: Maybe a - , lifeCap :: Maybe a - , lifeFloor :: Maybe a - , marketObjectCodeOfRateReset :: Maybe String - , cycleOfDividend :: Maybe Cycle - , cycleAnchorDateOfDividend :: Maybe String - , nextDividendPaymentAmount :: Maybe a - , enableSettlement :: Boolean - , constraints :: Maybe Assertions - } -_ContractTermsPoly = _Newtype - --------------------------------------------------------------------------------- - -newtype Cycle = Cycle - { n :: BigInt - , p :: Period - , stub :: Stub - , includeEndDay :: Boolean - } - -instance EncodeJson Cycle where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { n: E.value :: _ BigInt - , p: E.value :: _ Period - , stub: E.value :: _ Stub - , includeEndDay: E.value :: _ Boolean - } - ) - -instance DecodeJson Cycle where - decodeJson = defer \_ -> D.decode $ - ( Cycle <$> D.record "Cycle" - { n: D.value :: _ BigInt - , p: D.value :: _ Period - , stub: D.value :: _ Stub - , includeEndDay: D.value :: _ Boolean - } - ) - -derive instance Generic Cycle _ - -derive instance Newtype Cycle _ - --------------------------------------------------------------------------------- - -_Cycle - :: Iso' Cycle - { n :: BigInt, p :: Period, stub :: Stub, includeEndDay :: Boolean } -_Cycle = _Newtype - --------------------------------------------------------------------------------- - -data DCC - = DCC_A_AISDA - | DCC_A_360 - | DCC_A_365 - | DCC_E30_360ISDA - | DCC_E30_360 - | DCC_B_252 - -derive instance Eq DCC - -derive instance Ord DCC - -instance Show DCC where - show a = genericShow a - -instance EncodeJson DCC where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson DCC where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic DCC _ - -instance Enum DCC where - succ = genericSucc - pred = genericPred - -instance Bounded DCC where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_DCC_A_AISDA :: Prism' DCC Unit -_DCC_A_AISDA = prism' (const DCC_A_AISDA) case _ of - DCC_A_AISDA -> Just unit - _ -> Nothing - -_DCC_A_360 :: Prism' DCC Unit -_DCC_A_360 = prism' (const DCC_A_360) case _ of - DCC_A_360 -> Just unit - _ -> Nothing - -_DCC_A_365 :: Prism' DCC Unit -_DCC_A_365 = prism' (const DCC_A_365) case _ of - DCC_A_365 -> Just unit - _ -> Nothing - -_DCC_E30_360ISDA :: Prism' DCC Unit -_DCC_E30_360ISDA = prism' (const DCC_E30_360ISDA) case _ of - DCC_E30_360ISDA -> Just unit - _ -> Nothing - -_DCC_E30_360 :: Prism' DCC Unit -_DCC_E30_360 = prism' (const DCC_E30_360) case _ of - DCC_E30_360 -> Just unit - _ -> Nothing - -_DCC_B_252 :: Prism' DCC Unit -_DCC_B_252 = prism' (const DCC_B_252) case _ of - DCC_B_252 -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data DS - = DS_S - | DS_D - -derive instance Eq DS - -derive instance Ord DS - -instance Show DS where - show a = genericShow a - -instance EncodeJson DS where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson DS where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic DS _ - -instance Enum DS where - succ = genericSucc - pred = genericPred - -instance Bounded DS where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_DS_S :: Prism' DS Unit -_DS_S = prism' (const DS_S) case _ of - DS_S -> Just unit - _ -> Nothing - -_DS_D :: Prism' DS Unit -_DS_D = prism' (const DS_D) case _ of - DS_D -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data EOMC - = EOMC_EOM - | EOMC_SD - -derive instance Eq EOMC - -derive instance Ord EOMC - -instance Show EOMC where - show a = genericShow a - -instance EncodeJson EOMC where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson EOMC where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic EOMC _ - -instance Enum EOMC where - succ = genericSucc - pred = genericPred - -instance Bounded EOMC where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_EOMC_EOM :: Prism' EOMC Unit -_EOMC_EOM = prism' (const EOMC_EOM) case _ of - EOMC_EOM -> Just unit - _ -> Nothing - -_EOMC_SD :: Prism' EOMC Unit -_EOMC_SD = prism' (const EOMC_SD) case _ of - EOMC_SD -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data FEB - = FEB_A - | FEB_N - -derive instance Eq FEB - -derive instance Ord FEB - -instance Show FEB where - show a = genericShow a - -instance EncodeJson FEB where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson FEB where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic FEB _ - -instance Enum FEB where - succ = genericSucc - pred = genericPred - -instance Bounded FEB where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_FEB_A :: Prism' FEB Unit -_FEB_A = prism' (const FEB_A) case _ of - FEB_A -> Just unit - _ -> Nothing - -_FEB_N :: Prism' FEB Unit -_FEB_N = prism' (const FEB_N) case _ of - FEB_N -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data IPCB - = IPCB_NT - | IPCB_NTIED - | IPCB_NTL - -derive instance Eq IPCB - -derive instance Ord IPCB - -instance Show IPCB where - show a = genericShow a - -instance EncodeJson IPCB where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson IPCB where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic IPCB _ - -instance Enum IPCB where - succ = genericSucc - pred = genericPred - -instance Bounded IPCB where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_IPCB_NT :: Prism' IPCB Unit -_IPCB_NT = prism' (const IPCB_NT) case _ of - IPCB_NT -> Just unit - _ -> Nothing - -_IPCB_NTIED :: Prism' IPCB Unit -_IPCB_NTIED = prism' (const IPCB_NTIED) case _ of - IPCB_NTIED -> Just unit - _ -> Nothing - -_IPCB_NTL :: Prism' IPCB Unit -_IPCB_NTL = prism' (const IPCB_NTL) case _ of - IPCB_NTL -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype Identifier = Identifier - { marketObjectCode :: Maybe String - , contractIdentifier :: Maybe String - } - -derive instance Eq Identifier - -derive instance Ord Identifier - -instance Show Identifier where - show a = genericShow a - -instance EncodeJson Identifier where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { marketObjectCode: (E.maybe E.value) :: _ (Maybe String) - , contractIdentifier: (E.maybe E.value) :: _ (Maybe String) - } - ) - -instance DecodeJson Identifier where - decodeJson = defer \_ -> D.decode $ - ( Identifier <$> D.record "Identifier" - { marketObjectCode: (D.maybe D.value) :: _ (Maybe String) - , contractIdentifier: (D.maybe D.value) :: _ (Maybe String) - } - ) - -derive instance Generic Identifier _ - -derive instance Newtype Identifier _ - --------------------------------------------------------------------------------- - -_Identifier - :: Iso' Identifier - { marketObjectCode :: Maybe String, contractIdentifier :: Maybe String } -_Identifier = _Newtype - --------------------------------------------------------------------------------- - -data OPTP - = OPTP_C - | OPTP_P - | OPTP_CP - -derive instance Eq OPTP - -derive instance Ord OPTP - -instance Show OPTP where - show a = genericShow a - -instance EncodeJson OPTP where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson OPTP where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic OPTP _ - -instance Enum OPTP where - succ = genericSucc - pred = genericPred - -instance Bounded OPTP where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_OPTP_C :: Prism' OPTP Unit -_OPTP_C = prism' (const OPTP_C) case _ of - OPTP_C -> Just unit - _ -> Nothing - -_OPTP_P :: Prism' OPTP Unit -_OPTP_P = prism' (const OPTP_P) case _ of - OPTP_P -> Just unit - _ -> Nothing - -_OPTP_CP :: Prism' OPTP Unit -_OPTP_CP = prism' (const OPTP_CP) case _ of - OPTP_CP -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data OPXT - = OPXT_E - | OPXT_B - | OPXT_A - -derive instance Eq OPXT - -derive instance Ord OPXT - -instance Show OPXT where - show a = genericShow a - -instance EncodeJson OPXT where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson OPXT where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic OPXT _ - -instance Enum OPXT where - succ = genericSucc - pred = genericPred - -instance Bounded OPXT where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_OPXT_E :: Prism' OPXT Unit -_OPXT_E = prism' (const OPXT_E) case _ of - OPXT_E -> Just unit - _ -> Nothing - -_OPXT_B :: Prism' OPXT Unit -_OPXT_B = prism' (const OPXT_B) case _ of - OPXT_B -> Just unit - _ -> Nothing - -_OPXT_A :: Prism' OPXT Unit -_OPXT_A = prism' (const OPXT_A) case _ of - OPXT_A -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data PPEF - = PPEF_N - | PPEF_A - | PPEF_M - -derive instance Eq PPEF - -derive instance Ord PPEF - -instance Show PPEF where - show a = genericShow a - -instance EncodeJson PPEF where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson PPEF where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic PPEF _ - -instance Enum PPEF where - succ = genericSucc - pred = genericPred - -instance Bounded PPEF where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_PPEF_N :: Prism' PPEF Unit -_PPEF_N = prism' (const PPEF_N) case _ of - PPEF_N -> Just unit - _ -> Nothing - -_PPEF_A :: Prism' PPEF Unit -_PPEF_A = prism' (const PPEF_A) case _ of - PPEF_A -> Just unit - _ -> Nothing - -_PPEF_M :: Prism' PPEF Unit -_PPEF_M = prism' (const PPEF_M) case _ of - PPEF_M -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data PRF - = PRF_PF - | PRF_DL - | PRF_DQ - | PRF_DF - -derive instance Eq PRF - -derive instance Ord PRF - -instance Show PRF where - show a = genericShow a - -instance EncodeJson PRF where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson PRF where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic PRF _ - -instance Enum PRF where - succ = genericSucc - pred = genericPred - -instance Bounded PRF where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_PRF_PF :: Prism' PRF Unit -_PRF_PF = prism' (const PRF_PF) case _ of - PRF_PF -> Just unit - _ -> Nothing - -_PRF_DL :: Prism' PRF Unit -_PRF_DL = prism' (const PRF_DL) case _ of - PRF_DL -> Just unit - _ -> Nothing - -_PRF_DQ :: Prism' PRF Unit -_PRF_DQ = prism' (const PRF_DQ) case _ of - PRF_DQ -> Just unit - _ -> Nothing - -_PRF_DF :: Prism' PRF Unit -_PRF_DF = prism' (const PRF_DF) case _ of - PRF_DF -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data PYTP - = PYTP_A - | PYTP_N - | PYTP_I - | PYTP_O - -derive instance Eq PYTP - -derive instance Ord PYTP - -instance Show PYTP where - show a = genericShow a - -instance EncodeJson PYTP where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson PYTP where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic PYTP _ - -instance Enum PYTP where - succ = genericSucc - pred = genericPred - -instance Bounded PYTP where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_PYTP_A :: Prism' PYTP Unit -_PYTP_A = prism' (const PYTP_A) case _ of - PYTP_A -> Just unit - _ -> Nothing - -_PYTP_N :: Prism' PYTP Unit -_PYTP_N = prism' (const PYTP_N) case _ of - PYTP_N -> Just unit - _ -> Nothing - -_PYTP_I :: Prism' PYTP Unit -_PYTP_I = prism' (const PYTP_I) case _ of - PYTP_I -> Just unit - _ -> Nothing - -_PYTP_O :: Prism' PYTP Unit -_PYTP_O = prism' (const PYTP_O) case _ of - PYTP_O -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data Period - = P_D - | P_W - | P_M - | P_Q - | P_H - | P_Y - -derive instance Eq Period - -derive instance Ord Period - -instance Show Period where - show a = genericShow a - -instance EncodeJson Period where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson Period where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic Period _ - -instance Enum Period where - succ = genericSucc - pred = genericPred - -instance Bounded Period where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_P_D :: Prism' Period Unit -_P_D = prism' (const P_D) case _ of - P_D -> Just unit - _ -> Nothing - -_P_W :: Prism' Period Unit -_P_W = prism' (const P_W) case _ of - P_W -> Just unit - _ -> Nothing - -_P_M :: Prism' Period Unit -_P_M = prism' (const P_M) case _ of - P_M -> Just unit - _ -> Nothing - -_P_Q :: Prism' Period Unit -_P_Q = prism' (const P_Q) case _ of - P_Q -> Just unit - _ -> Nothing - -_P_H :: Prism' Period Unit -_P_H = prism' (const P_H) case _ of - P_H -> Just unit - _ -> Nothing - -_P_Y :: Prism' Period Unit -_P_Y = prism' (const P_Y) case _ of - P_Y -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data Reference a - = ReferenceTerms (ContractTermsPoly a) - | ReferenceId Identifier - -instance (EncodeJson a) => EncodeJson (Reference a) where - encodeJson = defer \_ -> case _ of - ReferenceTerms a -> E.encodeTagged "ReferenceTerms" a E.value - ReferenceId a -> E.encodeTagged "ReferenceId" a E.value - -instance (DecodeJson a) => DecodeJson (Reference a) where - decodeJson = defer \_ -> D.decode - $ D.sumType "Reference" - $ Map.fromFoldable - [ "ReferenceTerms" /\ D.content (ReferenceTerms <$> D.value) - , "ReferenceId" /\ D.content (ReferenceId <$> D.value) - ] - -derive instance Generic (Reference a) _ - --------------------------------------------------------------------------------- - -_ReferenceTerms :: forall a. Prism' (Reference a) (ContractTermsPoly a) -_ReferenceTerms = prism' ReferenceTerms case _ of - (ReferenceTerms a) -> Just a - _ -> Nothing - -_ReferenceId :: forall a. Prism' (Reference a) Identifier -_ReferenceId = prism' ReferenceId case _ of - (ReferenceId a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data ReferenceRole - = UDL - | FIL - | SEL - | COVE - | COVI - -derive instance Eq ReferenceRole - -derive instance Ord ReferenceRole - -instance Show ReferenceRole where - show a = genericShow a - -instance EncodeJson ReferenceRole where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson ReferenceRole where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic ReferenceRole _ - -instance Enum ReferenceRole where - succ = genericSucc - pred = genericPred - -instance Bounded ReferenceRole where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_UDL :: Prism' ReferenceRole Unit -_UDL = prism' (const UDL) case _ of - UDL -> Just unit - _ -> Nothing - -_FIL :: Prism' ReferenceRole Unit -_FIL = prism' (const FIL) case _ of - FIL -> Just unit - _ -> Nothing - -_SEL :: Prism' ReferenceRole Unit -_SEL = prism' (const SEL) case _ of - SEL -> Just unit - _ -> Nothing - -_COVE :: Prism' ReferenceRole Unit -_COVE = prism' (const COVE) case _ of - COVE -> Just unit - _ -> Nothing - -_COVI :: Prism' ReferenceRole Unit -_COVI = prism' (const COVI) case _ of - COVI -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data ReferenceType - = CNT - | CID - | MOC - | EID - | CST - -derive instance Eq ReferenceType - -derive instance Ord ReferenceType - -instance Show ReferenceType where - show a = genericShow a - -instance EncodeJson ReferenceType where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson ReferenceType where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic ReferenceType _ - -instance Enum ReferenceType where - succ = genericSucc - pred = genericPred - -instance Bounded ReferenceType where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_CNT :: Prism' ReferenceType Unit -_CNT = prism' (const CNT) case _ of - CNT -> Just unit - _ -> Nothing - -_CID :: Prism' ReferenceType Unit -_CID = prism' (const CID) case _ of - CID -> Just unit - _ -> Nothing - -_MOC :: Prism' ReferenceType Unit -_MOC = prism' (const MOC) case _ of - MOC -> Just unit - _ -> Nothing - -_EID :: Prism' ReferenceType Unit -_EID = prism' (const EID) case _ of - EID -> Just unit - _ -> Nothing - -_CST :: Prism' ReferenceType Unit -_CST = prism' (const CST) case _ of - CST -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data SCEF - = SE_OOO - | SE_IOO - | SE_ONO - | SE_OOM - | SE_INO - | SE_ONM - | SE_IOM - | SE_INM - -derive instance Eq SCEF - -derive instance Ord SCEF - -instance Show SCEF where - show a = genericShow a - -instance EncodeJson SCEF where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson SCEF where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic SCEF _ - -instance Enum SCEF where - succ = genericSucc - pred = genericPred - -instance Bounded SCEF where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_SE_OOO :: Prism' SCEF Unit -_SE_OOO = prism' (const SE_OOO) case _ of - SE_OOO -> Just unit - _ -> Nothing - -_SE_IOO :: Prism' SCEF Unit -_SE_IOO = prism' (const SE_IOO) case _ of - SE_IOO -> Just unit - _ -> Nothing - -_SE_ONO :: Prism' SCEF Unit -_SE_ONO = prism' (const SE_ONO) case _ of - SE_ONO -> Just unit - _ -> Nothing - -_SE_OOM :: Prism' SCEF Unit -_SE_OOM = prism' (const SE_OOM) case _ of - SE_OOM -> Just unit - _ -> Nothing - -_SE_INO :: Prism' SCEF Unit -_SE_INO = prism' (const SE_INO) case _ of - SE_INO -> Just unit - _ -> Nothing - -_SE_ONM :: Prism' SCEF Unit -_SE_ONM = prism' (const SE_ONM) case _ of - SE_ONM -> Just unit - _ -> Nothing - -_SE_IOM :: Prism' SCEF Unit -_SE_IOM = prism' (const SE_IOM) case _ of - SE_IOM -> Just unit - _ -> Nothing - -_SE_INM :: Prism' SCEF Unit -_SE_INM = prism' (const SE_INM) case _ of - SE_INM -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype ScheduleConfig = ScheduleConfig - { calendar :: Maybe Calendar - , endOfMonthConvention :: Maybe EOMC - , businessDayConvention :: Maybe BDC - } - -instance EncodeJson ScheduleConfig where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { calendar: (E.maybe E.value) :: _ (Maybe Calendar) - , endOfMonthConvention: (E.maybe E.value) :: _ (Maybe EOMC) - , businessDayConvention: (E.maybe E.value) :: _ (Maybe BDC) - } - ) - -instance DecodeJson ScheduleConfig where - decodeJson = defer \_ -> D.decode $ - ( ScheduleConfig <$> D.record "ScheduleConfig" - { calendar: (D.maybe D.value) :: _ (Maybe Calendar) - , endOfMonthConvention: (D.maybe D.value) :: _ (Maybe EOMC) - , businessDayConvention: (D.maybe D.value) :: _ (Maybe BDC) - } - ) - -derive instance Generic ScheduleConfig _ - -derive instance Newtype ScheduleConfig _ - --------------------------------------------------------------------------------- - -_ScheduleConfig - :: Iso' ScheduleConfig - { calendar :: Maybe Calendar - , endOfMonthConvention :: Maybe EOMC - , businessDayConvention :: Maybe BDC - } -_ScheduleConfig = _Newtype - --------------------------------------------------------------------------------- - -data Stub - = ShortStub - | LongStub - -derive instance Eq Stub - -derive instance Ord Stub - -instance Show Stub where - show a = genericShow a - -instance EncodeJson Stub where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson Stub where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic Stub _ - -instance Enum Stub where - succ = genericSucc - pred = genericPred - -instance Bounded Stub where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_ShortStub :: Prism' Stub Unit -_ShortStub = prism' (const ShortStub) case _ of - ShortStub -> Just unit - _ -> Nothing - -_LongStub :: Prism' Stub Unit -_LongStub = prism' (const LongStub) case _ of - LongStub -> Just unit - _ -> Nothing diff --git a/marlowe-playground-client/generated/Language/Marlowe/ACTUS/Domain/Schedule.purs b/marlowe-playground-client/generated/Language/Marlowe/ACTUS/Domain/Schedule.purs deleted file mode 100644 index 924cf75bf5..0000000000 --- a/marlowe-playground-client/generated/Language/Marlowe/ACTUS/Domain/Schedule.purs +++ /dev/null @@ -1,91 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Language.Marlowe.ACTUS.Domain.Schedule where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Tuple.Nested ((/\)) -import Language.Marlowe.ACTUS.Domain.BusinessEvents (EventType) -import Type.Proxy (Proxy(Proxy)) - -newtype CashFlowPoly a = CashFlowPoly - { tick :: BigInt - , cashContractId :: String - , cashParty :: String - , cashCounterParty :: String - , cashPaymentDay :: String - , cashCalculationDay :: String - , cashEvent :: EventType - , amount :: a - , notional :: a - , currency :: String - } - -instance (EncodeJson a) => EncodeJson (CashFlowPoly a) where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { tick: E.value :: _ BigInt - , cashContractId: E.value :: _ String - , cashParty: E.value :: _ String - , cashCounterParty: E.value :: _ String - , cashPaymentDay: E.value :: _ String - , cashCalculationDay: E.value :: _ String - , cashEvent: E.value :: _ EventType - , amount: E.value :: _ a - , notional: E.value :: _ a - , currency: E.value :: _ String - } - ) - -instance (DecodeJson a) => DecodeJson (CashFlowPoly a) where - decodeJson = defer \_ -> D.decode $ - ( CashFlowPoly <$> D.record "CashFlowPoly" - { tick: D.value :: _ BigInt - , cashContractId: D.value :: _ String - , cashParty: D.value :: _ String - , cashCounterParty: D.value :: _ String - , cashPaymentDay: D.value :: _ String - , cashCalculationDay: D.value :: _ String - , cashEvent: D.value :: _ EventType - , amount: D.value :: _ a - , notional: D.value :: _ a - , currency: D.value :: _ String - } - ) - -derive instance Generic (CashFlowPoly a) _ - -derive instance Newtype (CashFlowPoly a) _ - --------------------------------------------------------------------------------- - -_CashFlowPoly - :: forall a - . Iso' (CashFlowPoly a) - { tick :: BigInt - , cashContractId :: String - , cashParty :: String - , cashCounterParty :: String - , cashPaymentDay :: String - , cashCalculationDay :: String - , cashEvent :: EventType - , amount :: a - , notional :: a - , currency :: String - } -_CashFlowPoly = _Newtype diff --git a/marlowe-playground-client/generated/Ledger/Address.purs b/marlowe-playground-client/generated/Ledger/Address.purs deleted file mode 100644 index 7ba9f259b4..0000000000 --- a/marlowe-playground-client/generated/Ledger/Address.purs +++ /dev/null @@ -1,152 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Ledger.Address where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Crypto (PubKey, PubKeyHash) -import Type.Proxy (Proxy(Proxy)) - -newtype PaymentPubKey = PaymentPubKey { unPaymentPubKey :: PubKey } - -derive instance Eq PaymentPubKey - -derive instance Ord PaymentPubKey - -instance Show PaymentPubKey where - show a = genericShow a - -instance EncodeJson PaymentPubKey where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unPaymentPubKey: E.value :: _ PubKey } - ) - -instance DecodeJson PaymentPubKey where - decodeJson = defer \_ -> D.decode $ - ( PaymentPubKey <$> D.record "PaymentPubKey" - { unPaymentPubKey: D.value :: _ PubKey } - ) - -derive instance Generic PaymentPubKey _ - -derive instance Newtype PaymentPubKey _ - --------------------------------------------------------------------------------- - -_PaymentPubKey :: Iso' PaymentPubKey { unPaymentPubKey :: PubKey } -_PaymentPubKey = _Newtype - --------------------------------------------------------------------------------- - -newtype PaymentPubKeyHash = PaymentPubKeyHash - { unPaymentPubKeyHash :: PubKeyHash } - -derive instance Eq PaymentPubKeyHash - -derive instance Ord PaymentPubKeyHash - -instance Show PaymentPubKeyHash where - show a = genericShow a - -instance EncodeJson PaymentPubKeyHash where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unPaymentPubKeyHash: E.value :: _ PubKeyHash } - ) - -instance DecodeJson PaymentPubKeyHash where - decodeJson = defer \_ -> D.decode $ - ( PaymentPubKeyHash <$> D.record "PaymentPubKeyHash" - { unPaymentPubKeyHash: D.value :: _ PubKeyHash } - ) - -derive instance Generic PaymentPubKeyHash _ - -derive instance Newtype PaymentPubKeyHash _ - --------------------------------------------------------------------------------- - -_PaymentPubKeyHash - :: Iso' PaymentPubKeyHash { unPaymentPubKeyHash :: PubKeyHash } -_PaymentPubKeyHash = _Newtype - --------------------------------------------------------------------------------- - -newtype StakePubKey = StakePubKey { unStakePubKey :: PubKey } - -derive instance Eq StakePubKey - -derive instance Ord StakePubKey - -instance Show StakePubKey where - show a = genericShow a - -instance EncodeJson StakePubKey where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unStakePubKey: E.value :: _ PubKey } - ) - -instance DecodeJson StakePubKey where - decodeJson = defer \_ -> D.decode $ - ( StakePubKey <$> D.record "StakePubKey" - { unStakePubKey: D.value :: _ PubKey } - ) - -derive instance Generic StakePubKey _ - -derive instance Newtype StakePubKey _ - --------------------------------------------------------------------------------- - -_StakePubKey :: Iso' StakePubKey { unStakePubKey :: PubKey } -_StakePubKey = _Newtype - --------------------------------------------------------------------------------- - -newtype StakePubKeyHash = StakePubKeyHash { unStakePubKeyHash :: PubKeyHash } - -derive instance Eq StakePubKeyHash - -derive instance Ord StakePubKeyHash - -instance Show StakePubKeyHash where - show a = genericShow a - -instance EncodeJson StakePubKeyHash where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unStakePubKeyHash: E.value :: _ PubKeyHash } - ) - -instance DecodeJson StakePubKeyHash where - decodeJson = defer \_ -> D.decode $ - ( StakePubKeyHash <$> D.record "StakePubKeyHash" - { unStakePubKeyHash: D.value :: _ PubKeyHash } - ) - -derive instance Generic StakePubKeyHash _ - -derive instance Newtype StakePubKeyHash _ - --------------------------------------------------------------------------------- - -_StakePubKeyHash :: Iso' StakePubKeyHash { unStakePubKeyHash :: PubKeyHash } -_StakePubKeyHash = _Newtype diff --git a/marlowe-playground-client/generated/Ledger/Blockchain.purs b/marlowe-playground-client/generated/Ledger/Blockchain.purs deleted file mode 100644 index 5a4b69dd97..0000000000 --- a/marlowe-playground-client/generated/Ledger/Blockchain.purs +++ /dev/null @@ -1,90 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Ledger.Blockchain where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Tx (Tx) -import Type.Proxy (Proxy(Proxy)) - -newtype BlockId = BlockId { getBlockId :: String } - -derive instance Eq BlockId - -derive instance Ord BlockId - -instance Show BlockId where - show a = genericShow a - -instance EncodeJson BlockId where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getBlockId: E.value :: _ String } - ) - -instance DecodeJson BlockId where - decodeJson = defer \_ -> D.decode $ - (BlockId <$> D.record "BlockId" { getBlockId: D.value :: _ String }) - -derive instance Generic BlockId _ - -derive instance Newtype BlockId _ - --------------------------------------------------------------------------------- - -_BlockId :: Iso' BlockId { getBlockId :: String } -_BlockId = _Newtype - --------------------------------------------------------------------------------- - -data OnChainTx - = Invalid Tx - | Valid Tx - -derive instance Eq OnChainTx - -instance Show OnChainTx where - show a = genericShow a - -instance EncodeJson OnChainTx where - encodeJson = defer \_ -> case _ of - Invalid a -> E.encodeTagged "Invalid" a E.value - Valid a -> E.encodeTagged "Valid" a E.value - -instance DecodeJson OnChainTx where - decodeJson = defer \_ -> D.decode - $ D.sumType "OnChainTx" - $ Map.fromFoldable - [ "Invalid" /\ D.content (Invalid <$> D.value) - , "Valid" /\ D.content (Valid <$> D.value) - ] - -derive instance Generic OnChainTx _ - --------------------------------------------------------------------------------- - -_Invalid :: Prism' OnChainTx Tx -_Invalid = prism' Invalid case _ of - (Invalid a) -> Just a - _ -> Nothing - -_Valid :: Prism' OnChainTx Tx -_Valid = prism' Valid case _ of - (Valid a) -> Just a - _ -> Nothing diff --git a/marlowe-playground-client/generated/Ledger/CardanoWallet.purs b/marlowe-playground-client/generated/Ledger/CardanoWallet.purs deleted file mode 100644 index 06d6569ade..0000000000 --- a/marlowe-playground-client/generated/Ledger/CardanoWallet.purs +++ /dev/null @@ -1,52 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Ledger.CardanoWallet where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype WalletNumber = WalletNumber { getWallet :: BigInt } - -derive instance Eq WalletNumber - -instance Show WalletNumber where - show a = genericShow a - -instance EncodeJson WalletNumber where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getWallet: E.value :: _ BigInt } - ) - -instance DecodeJson WalletNumber where - decodeJson = defer \_ -> D.decode $ - ( WalletNumber <$> D.record "WalletNumber" - { getWallet: D.value :: _ BigInt } - ) - -derive instance Generic WalletNumber _ - -derive instance Newtype WalletNumber _ - --------------------------------------------------------------------------------- - -_WalletNumber :: Iso' WalletNumber { getWallet :: BigInt } -_WalletNumber = _Newtype diff --git a/marlowe-playground-client/generated/Ledger/Constraints/OffChain.purs b/marlowe-playground-client/generated/Ledger/Constraints/OffChain.purs deleted file mode 100644 index a7d11414cc..0000000000 --- a/marlowe-playground-client/generated/Ledger/Constraints/OffChain.purs +++ /dev/null @@ -1,194 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Ledger.Constraints.OffChain where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map (Map) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Ledger.Address (PaymentPubKey, PaymentPubKeyHash) -import Ledger.Typed.Tx (ConnectionError) -import Plutus.V1.Ledger.Interval (Interval) -import Plutus.V1.Ledger.Scripts (DatumHash) -import Plutus.V1.Ledger.Time (POSIXTime) -import Plutus.V1.Ledger.Tx (Tx, TxOut, TxOutRef) -import Type.Proxy (Proxy(Proxy)) - -data MkTxError - = TypeCheckFailed ConnectionError - | TxOutRefNotFound TxOutRef - | TxOutRefWrongType TxOutRef - | DatumNotFound DatumHash - | MintingPolicyNotFound String - | ValidatorHashNotFound String - | OwnPubKeyMissing - | TypedValidatorMissing - | DatumWrongHash DatumHash String - | CannotSatisfyAny - -derive instance Eq MkTxError - -instance Show MkTxError where - show a = genericShow a - -instance EncodeJson MkTxError where - encodeJson = defer \_ -> case _ of - TypeCheckFailed a -> E.encodeTagged "TypeCheckFailed" a E.value - TxOutRefNotFound a -> E.encodeTagged "TxOutRefNotFound" a E.value - TxOutRefWrongType a -> E.encodeTagged "TxOutRefWrongType" a E.value - DatumNotFound a -> E.encodeTagged "DatumNotFound" a E.value - MintingPolicyNotFound a -> E.encodeTagged "MintingPolicyNotFound" a E.value - ValidatorHashNotFound a -> E.encodeTagged "ValidatorHashNotFound" a E.value - OwnPubKeyMissing -> encodeJson - { tag: "OwnPubKeyMissing", contents: jsonNull } - TypedValidatorMissing -> encodeJson - { tag: "TypedValidatorMissing", contents: jsonNull } - DatumWrongHash a b -> E.encodeTagged "DatumWrongHash" (a /\ b) - (E.tuple (E.value >/\< E.value)) - CannotSatisfyAny -> encodeJson - { tag: "CannotSatisfyAny", contents: jsonNull } - -instance DecodeJson MkTxError where - decodeJson = defer \_ -> D.decode - $ D.sumType "MkTxError" - $ Map.fromFoldable - [ "TypeCheckFailed" /\ D.content (TypeCheckFailed <$> D.value) - , "TxOutRefNotFound" /\ D.content (TxOutRefNotFound <$> D.value) - , "TxOutRefWrongType" /\ D.content (TxOutRefWrongType <$> D.value) - , "DatumNotFound" /\ D.content (DatumNotFound <$> D.value) - , "MintingPolicyNotFound" /\ D.content - (MintingPolicyNotFound <$> D.value) - , "ValidatorHashNotFound" /\ D.content - (ValidatorHashNotFound <$> D.value) - , "OwnPubKeyMissing" /\ pure OwnPubKeyMissing - , "TypedValidatorMissing" /\ pure TypedValidatorMissing - , "DatumWrongHash" /\ D.content - (D.tuple $ DatumWrongHash D.value D.value) - , "CannotSatisfyAny" /\ pure CannotSatisfyAny - ] - -derive instance Generic MkTxError _ - --------------------------------------------------------------------------------- - -_TypeCheckFailed :: Prism' MkTxError ConnectionError -_TypeCheckFailed = prism' TypeCheckFailed case _ of - (TypeCheckFailed a) -> Just a - _ -> Nothing - -_TxOutRefNotFound :: Prism' MkTxError TxOutRef -_TxOutRefNotFound = prism' TxOutRefNotFound case _ of - (TxOutRefNotFound a) -> Just a - _ -> Nothing - -_TxOutRefWrongType :: Prism' MkTxError TxOutRef -_TxOutRefWrongType = prism' TxOutRefWrongType case _ of - (TxOutRefWrongType a) -> Just a - _ -> Nothing - -_DatumNotFound :: Prism' MkTxError DatumHash -_DatumNotFound = prism' DatumNotFound case _ of - (DatumNotFound a) -> Just a - _ -> Nothing - -_MintingPolicyNotFound :: Prism' MkTxError String -_MintingPolicyNotFound = prism' MintingPolicyNotFound case _ of - (MintingPolicyNotFound a) -> Just a - _ -> Nothing - -_ValidatorHashNotFound :: Prism' MkTxError String -_ValidatorHashNotFound = prism' ValidatorHashNotFound case _ of - (ValidatorHashNotFound a) -> Just a - _ -> Nothing - -_OwnPubKeyMissing :: Prism' MkTxError Unit -_OwnPubKeyMissing = prism' (const OwnPubKeyMissing) case _ of - OwnPubKeyMissing -> Just unit - _ -> Nothing - -_TypedValidatorMissing :: Prism' MkTxError Unit -_TypedValidatorMissing = prism' (const TypedValidatorMissing) case _ of - TypedValidatorMissing -> Just unit - _ -> Nothing - -_DatumWrongHash :: Prism' MkTxError { a :: DatumHash, b :: String } -_DatumWrongHash = prism' (\{ a, b } -> (DatumWrongHash a b)) case _ of - (DatumWrongHash a b) -> Just { a, b } - _ -> Nothing - -_CannotSatisfyAny :: Prism' MkTxError Unit -_CannotSatisfyAny = prism' (const CannotSatisfyAny) case _ of - CannotSatisfyAny -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype UnbalancedTx = UnbalancedTx - { unBalancedTxTx :: Tx - , unBalancedTxRequiredSignatories :: - Map PaymentPubKeyHash (Maybe PaymentPubKey) - , unBalancedTxUtxoIndex :: Map TxOutRef TxOut - , unBalancedTxValidityTimeRange :: Interval POSIXTime - } - -derive instance Eq UnbalancedTx - -instance Show UnbalancedTx where - show a = genericShow a - -instance EncodeJson UnbalancedTx where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unBalancedTxTx: E.value :: _ Tx - , unBalancedTxRequiredSignatories: - (E.dictionary E.value (E.maybe E.value)) - :: _ (Map PaymentPubKeyHash (Maybe PaymentPubKey)) - , unBalancedTxUtxoIndex: - (E.dictionary E.value E.value) :: _ (Map TxOutRef TxOut) - , unBalancedTxValidityTimeRange: E.value :: _ (Interval POSIXTime) - } - ) - -instance DecodeJson UnbalancedTx where - decodeJson = defer \_ -> D.decode $ - ( UnbalancedTx <$> D.record "UnbalancedTx" - { unBalancedTxTx: D.value :: _ Tx - , unBalancedTxRequiredSignatories: - (D.dictionary D.value (D.maybe D.value)) - :: _ (Map PaymentPubKeyHash (Maybe PaymentPubKey)) - , unBalancedTxUtxoIndex: - (D.dictionary D.value D.value) :: _ (Map TxOutRef TxOut) - , unBalancedTxValidityTimeRange: D.value :: _ (Interval POSIXTime) - } - ) - -derive instance Generic UnbalancedTx _ - -derive instance Newtype UnbalancedTx _ - --------------------------------------------------------------------------------- - -_UnbalancedTx - :: Iso' UnbalancedTx - { unBalancedTxTx :: Tx - , unBalancedTxRequiredSignatories :: - Map PaymentPubKeyHash (Maybe PaymentPubKey) - , unBalancedTxUtxoIndex :: Map TxOutRef TxOut - , unBalancedTxValidityTimeRange :: Interval POSIXTime - } -_UnbalancedTx = _Newtype diff --git a/marlowe-playground-client/generated/Ledger/Index.purs b/marlowe-playground-client/generated/Ledger/Index.purs deleted file mode 100644 index 131b33b0cc..0000000000 --- a/marlowe-playground-client/generated/Ledger/Index.purs +++ /dev/null @@ -1,376 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Ledger.Index where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Bounded.Generic (genericBottom, genericTop) -import Data.Either (Either) -import Data.Enum (class Enum) -import Data.Enum.Generic (genericPred, genericSucc) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map (Map) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.RawJson (RawJson) -import Data.Show.Generic (genericShow) -import Data.Tuple (Tuple) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Crypto (PubKey, PubKeyHash, Signature) -import Plutus.V1.Ledger.Scripts - ( DatumHash - , MintingPolicy - , ScriptError - , Validator - ) -import Plutus.V1.Ledger.Slot (Slot) -import Plutus.V1.Ledger.Tx (RedeemerPtr, Tx, TxIn, TxOut, TxOutRef) -import Plutus.V1.Ledger.Value (Value) -import Type.Proxy (Proxy(Proxy)) - -data ScriptType - = ValidatorScript Validator String - | MintingPolicyScript MintingPolicy - -derive instance Eq ScriptType - -instance Show ScriptType where - show a = genericShow a - -instance EncodeJson ScriptType where - encodeJson = defer \_ -> case _ of - ValidatorScript a b -> E.encodeTagged "ValidatorScript" (a /\ b) - (E.tuple (E.value >/\< E.value)) - MintingPolicyScript a -> E.encodeTagged "MintingPolicyScript" a E.value - -instance DecodeJson ScriptType where - decodeJson = defer \_ -> D.decode - $ D.sumType "ScriptType" - $ Map.fromFoldable - [ "ValidatorScript" /\ D.content - (D.tuple $ ValidatorScript D.value D.value) - , "MintingPolicyScript" /\ D.content (MintingPolicyScript <$> D.value) - ] - -derive instance Generic ScriptType _ - --------------------------------------------------------------------------------- - -_ValidatorScript :: Prism' ScriptType { a :: Validator, b :: String } -_ValidatorScript = prism' (\{ a, b } -> (ValidatorScript a b)) case _ of - (ValidatorScript a b) -> Just { a, b } - _ -> Nothing - -_MintingPolicyScript :: Prism' ScriptType MintingPolicy -_MintingPolicyScript = prism' MintingPolicyScript case _ of - (MintingPolicyScript a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype ScriptValidationEvent = ScriptValidationEvent - { sveScript :: String - , sveResult :: Either ScriptError (Tuple RawJson (Array String)) - , sveRedeemer :: String - , sveType :: ScriptType - } - -derive instance Eq ScriptValidationEvent - -instance Show ScriptValidationEvent where - show a = genericShow a - -instance EncodeJson ScriptValidationEvent where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { sveScript: E.value :: _ String - , sveResult: - (E.either E.value (E.tuple (E.value >/\< E.value))) - :: _ (Either ScriptError (Tuple RawJson (Array String))) - , sveRedeemer: E.value :: _ String - , sveType: E.value :: _ ScriptType - } - ) - -instance DecodeJson ScriptValidationEvent where - decodeJson = defer \_ -> D.decode $ - ( ScriptValidationEvent <$> D.record "ScriptValidationEvent" - { sveScript: D.value :: _ String - , sveResult: - (D.either D.value (D.tuple (D.value D.value))) - :: _ (Either ScriptError (Tuple RawJson (Array String))) - , sveRedeemer: D.value :: _ String - , sveType: D.value :: _ ScriptType - } - ) - -derive instance Generic ScriptValidationEvent _ - -derive instance Newtype ScriptValidationEvent _ - --------------------------------------------------------------------------------- - -_ScriptValidationEvent - :: Iso' ScriptValidationEvent - { sveScript :: String - , sveResult :: Either ScriptError (Tuple RawJson (Array String)) - , sveRedeemer :: String - , sveType :: ScriptType - } -_ScriptValidationEvent = _Newtype - --------------------------------------------------------------------------------- - -newtype UtxoIndex = UtxoIndex { getIndex :: Map TxOutRef TxOut } - -derive instance Eq UtxoIndex - -instance Show UtxoIndex where - show a = genericShow a - -instance EncodeJson UtxoIndex where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getIndex: (E.dictionary E.value E.value) :: _ (Map TxOutRef TxOut) } - ) - -instance DecodeJson UtxoIndex where - decodeJson = defer \_ -> D.decode $ - ( UtxoIndex <$> D.record "UtxoIndex" - { getIndex: (D.dictionary D.value D.value) :: _ (Map TxOutRef TxOut) } - ) - -derive instance Generic UtxoIndex _ - -derive instance Newtype UtxoIndex _ - --------------------------------------------------------------------------------- - -_UtxoIndex :: Iso' UtxoIndex { getIndex :: Map TxOutRef TxOut } -_UtxoIndex = _Newtype - --------------------------------------------------------------------------------- - -data ValidationError - = InOutTypeMismatch TxIn TxOut - | TxOutRefNotFound TxOutRef - | InvalidScriptHash Validator String - | InvalidDatumHash String DatumHash - | MissingRedeemer RedeemerPtr - | InvalidSignature PubKey Signature - | ValueNotPreserved Value Value - | NegativeValue Tx - | ValueContainsLessThanMinAda Tx TxOut - | NonAdaFees Tx - | ScriptFailure ScriptError - | CurrentSlotOutOfRange Slot - | SignatureMissing PubKeyHash - | MintWithoutScript String - | TransactionFeeTooLow Value Value - | CardanoLedgerValidationError String - -derive instance Eq ValidationError - -instance Show ValidationError where - show a = genericShow a - -instance EncodeJson ValidationError where - encodeJson = defer \_ -> case _ of - InOutTypeMismatch a b -> E.encodeTagged "InOutTypeMismatch" (a /\ b) - (E.tuple (E.value >/\< E.value)) - TxOutRefNotFound a -> E.encodeTagged "TxOutRefNotFound" a E.value - InvalidScriptHash a b -> E.encodeTagged "InvalidScriptHash" (a /\ b) - (E.tuple (E.value >/\< E.value)) - InvalidDatumHash a b -> E.encodeTagged "InvalidDatumHash" (a /\ b) - (E.tuple (E.value >/\< E.value)) - MissingRedeemer a -> E.encodeTagged "MissingRedeemer" a E.value - InvalidSignature a b -> E.encodeTagged "InvalidSignature" (a /\ b) - (E.tuple (E.value >/\< E.value)) - ValueNotPreserved a b -> E.encodeTagged "ValueNotPreserved" (a /\ b) - (E.tuple (E.value >/\< E.value)) - NegativeValue a -> E.encodeTagged "NegativeValue" a E.value - ValueContainsLessThanMinAda a b -> E.encodeTagged - "ValueContainsLessThanMinAda" - (a /\ b) - (E.tuple (E.value >/\< E.value)) - NonAdaFees a -> E.encodeTagged "NonAdaFees" a E.value - ScriptFailure a -> E.encodeTagged "ScriptFailure" a E.value - CurrentSlotOutOfRange a -> E.encodeTagged "CurrentSlotOutOfRange" a E.value - SignatureMissing a -> E.encodeTagged "SignatureMissing" a E.value - MintWithoutScript a -> E.encodeTagged "MintWithoutScript" a E.value - TransactionFeeTooLow a b -> E.encodeTagged "TransactionFeeTooLow" (a /\ b) - (E.tuple (E.value >/\< E.value)) - CardanoLedgerValidationError a -> E.encodeTagged - "CardanoLedgerValidationError" - a - E.value - -instance DecodeJson ValidationError where - decodeJson = defer \_ -> D.decode - $ D.sumType "ValidationError" - $ Map.fromFoldable - [ "InOutTypeMismatch" /\ D.content - (D.tuple $ InOutTypeMismatch D.value D.value) - , "TxOutRefNotFound" /\ D.content (TxOutRefNotFound <$> D.value) - , "InvalidScriptHash" /\ D.content - (D.tuple $ InvalidScriptHash D.value D.value) - , "InvalidDatumHash" /\ D.content - (D.tuple $ InvalidDatumHash D.value D.value) - , "MissingRedeemer" /\ D.content (MissingRedeemer <$> D.value) - , "InvalidSignature" /\ D.content - (D.tuple $ InvalidSignature D.value D.value) - , "ValueNotPreserved" /\ D.content - (D.tuple $ ValueNotPreserved D.value D.value) - , "NegativeValue" /\ D.content (NegativeValue <$> D.value) - , "ValueContainsLessThanMinAda" /\ D.content - (D.tuple $ ValueContainsLessThanMinAda D.value D.value) - , "NonAdaFees" /\ D.content (NonAdaFees <$> D.value) - , "ScriptFailure" /\ D.content (ScriptFailure <$> D.value) - , "CurrentSlotOutOfRange" /\ D.content - (CurrentSlotOutOfRange <$> D.value) - , "SignatureMissing" /\ D.content (SignatureMissing <$> D.value) - , "MintWithoutScript" /\ D.content (MintWithoutScript <$> D.value) - , "TransactionFeeTooLow" /\ D.content - (D.tuple $ TransactionFeeTooLow D.value D.value) - , "CardanoLedgerValidationError" /\ D.content - (CardanoLedgerValidationError <$> D.value) - ] - -derive instance Generic ValidationError _ - --------------------------------------------------------------------------------- - -_InOutTypeMismatch :: Prism' ValidationError { a :: TxIn, b :: TxOut } -_InOutTypeMismatch = prism' (\{ a, b } -> (InOutTypeMismatch a b)) case _ of - (InOutTypeMismatch a b) -> Just { a, b } - _ -> Nothing - -_TxOutRefNotFound :: Prism' ValidationError TxOutRef -_TxOutRefNotFound = prism' TxOutRefNotFound case _ of - (TxOutRefNotFound a) -> Just a - _ -> Nothing - -_InvalidScriptHash :: Prism' ValidationError { a :: Validator, b :: String } -_InvalidScriptHash = prism' (\{ a, b } -> (InvalidScriptHash a b)) case _ of - (InvalidScriptHash a b) -> Just { a, b } - _ -> Nothing - -_InvalidDatumHash :: Prism' ValidationError { a :: String, b :: DatumHash } -_InvalidDatumHash = prism' (\{ a, b } -> (InvalidDatumHash a b)) case _ of - (InvalidDatumHash a b) -> Just { a, b } - _ -> Nothing - -_MissingRedeemer :: Prism' ValidationError RedeemerPtr -_MissingRedeemer = prism' MissingRedeemer case _ of - (MissingRedeemer a) -> Just a - _ -> Nothing - -_InvalidSignature :: Prism' ValidationError { a :: PubKey, b :: Signature } -_InvalidSignature = prism' (\{ a, b } -> (InvalidSignature a b)) case _ of - (InvalidSignature a b) -> Just { a, b } - _ -> Nothing - -_ValueNotPreserved :: Prism' ValidationError { a :: Value, b :: Value } -_ValueNotPreserved = prism' (\{ a, b } -> (ValueNotPreserved a b)) case _ of - (ValueNotPreserved a b) -> Just { a, b } - _ -> Nothing - -_NegativeValue :: Prism' ValidationError Tx -_NegativeValue = prism' NegativeValue case _ of - (NegativeValue a) -> Just a - _ -> Nothing - -_ValueContainsLessThanMinAda :: Prism' ValidationError { a :: Tx, b :: TxOut } -_ValueContainsLessThanMinAda = prism' - (\{ a, b } -> (ValueContainsLessThanMinAda a b)) - case _ of - (ValueContainsLessThanMinAda a b) -> Just { a, b } - _ -> Nothing - -_NonAdaFees :: Prism' ValidationError Tx -_NonAdaFees = prism' NonAdaFees case _ of - (NonAdaFees a) -> Just a - _ -> Nothing - -_ScriptFailure :: Prism' ValidationError ScriptError -_ScriptFailure = prism' ScriptFailure case _ of - (ScriptFailure a) -> Just a - _ -> Nothing - -_CurrentSlotOutOfRange :: Prism' ValidationError Slot -_CurrentSlotOutOfRange = prism' CurrentSlotOutOfRange case _ of - (CurrentSlotOutOfRange a) -> Just a - _ -> Nothing - -_SignatureMissing :: Prism' ValidationError PubKeyHash -_SignatureMissing = prism' SignatureMissing case _ of - (SignatureMissing a) -> Just a - _ -> Nothing - -_MintWithoutScript :: Prism' ValidationError String -_MintWithoutScript = prism' MintWithoutScript case _ of - (MintWithoutScript a) -> Just a - _ -> Nothing - -_TransactionFeeTooLow :: Prism' ValidationError { a :: Value, b :: Value } -_TransactionFeeTooLow = prism' (\{ a, b } -> (TransactionFeeTooLow a b)) - case _ of - (TransactionFeeTooLow a b) -> Just { a, b } - _ -> Nothing - -_CardanoLedgerValidationError :: Prism' ValidationError String -_CardanoLedgerValidationError = prism' CardanoLedgerValidationError case _ of - (CardanoLedgerValidationError a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data ValidationPhase - = Phase1 - | Phase2 - -derive instance Eq ValidationPhase - -derive instance Ord ValidationPhase - -instance Show ValidationPhase where - show a = genericShow a - -instance EncodeJson ValidationPhase where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson ValidationPhase where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic ValidationPhase _ - -instance Enum ValidationPhase where - succ = genericSucc - pred = genericPred - -instance Bounded ValidationPhase where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_Phase1 :: Prism' ValidationPhase Unit -_Phase1 = prism' (const Phase1) case _ of - Phase1 -> Just unit - _ -> Nothing - -_Phase2 :: Prism' ValidationPhase Unit -_Phase2 = prism' (const Phase2) case _ of - Phase2 -> Just unit - _ -> Nothing diff --git a/marlowe-playground-client/generated/Ledger/TimeSlot.purs b/marlowe-playground-client/generated/Ledger/TimeSlot.purs deleted file mode 100644 index 4ead9ad450..0000000000 --- a/marlowe-playground-client/generated/Ledger/TimeSlot.purs +++ /dev/null @@ -1,102 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Ledger.TimeSlot where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple (Tuple) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Slot (Slot) -import Plutus.V1.Ledger.Time (POSIXTime) -import Type.Proxy (Proxy(Proxy)) - -newtype SlotConfig = SlotConfig - { scSlotLength :: BigInt - , scSlotZeroTime :: POSIXTime - } - -derive instance Eq SlotConfig - -instance Show SlotConfig where - show a = genericShow a - -instance EncodeJson SlotConfig where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { scSlotLength: E.value :: _ BigInt - , scSlotZeroTime: E.value :: _ POSIXTime - } - ) - -instance DecodeJson SlotConfig where - decodeJson = defer \_ -> D.decode $ - ( SlotConfig <$> D.record "SlotConfig" - { scSlotLength: D.value :: _ BigInt - , scSlotZeroTime: D.value :: _ POSIXTime - } - ) - -derive instance Generic SlotConfig _ - -derive instance Newtype SlotConfig _ - --------------------------------------------------------------------------------- - -_SlotConfig - :: Iso' SlotConfig { scSlotLength :: BigInt, scSlotZeroTime :: POSIXTime } -_SlotConfig = _Newtype - --------------------------------------------------------------------------------- - -newtype SlotConversionError = SlotOutOfRange - { requestedSlot :: Slot - , horizon :: Tuple Slot POSIXTime - } - -derive instance Eq SlotConversionError - -instance Show SlotConversionError where - show a = genericShow a - -instance EncodeJson SlotConversionError where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { requestedSlot: E.value :: _ Slot - , horizon: (E.tuple (E.value >/\< E.value)) :: _ (Tuple Slot POSIXTime) - } - ) - -instance DecodeJson SlotConversionError where - decodeJson = defer \_ -> D.decode $ - ( SlotOutOfRange <$> D.record "SlotOutOfRange" - { requestedSlot: D.value :: _ Slot - , horizon: (D.tuple (D.value D.value)) :: _ (Tuple Slot POSIXTime) - } - ) - -derive instance Generic SlotConversionError _ - -derive instance Newtype SlotConversionError _ - --------------------------------------------------------------------------------- - -_SlotOutOfRange - :: Iso' SlotConversionError - { requestedSlot :: Slot, horizon :: Tuple Slot POSIXTime } -_SlotOutOfRange = _Newtype diff --git a/marlowe-playground-client/generated/Ledger/Tx.purs b/marlowe-playground-client/generated/Ledger/Tx.purs deleted file mode 100644 index 7b43f49da9..0000000000 --- a/marlowe-playground-client/generated/Ledger/Tx.purs +++ /dev/null @@ -1,154 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Ledger.Tx where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Either (Either) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (unwrap) -import Data.RawJson (RawJson) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Address (Address) -import Plutus.V1.Ledger.Scripts (DatumHash, Validator) -import Plutus.V1.Ledger.Tx (Tx) -import Plutus.V1.Ledger.Value (Value) -import Type.Proxy (Proxy(Proxy)) - -data CardanoTx - = EmulatorTx Tx - | CardanoApiTx RawJson - | Both Tx RawJson - -derive instance Eq CardanoTx - -instance Show CardanoTx where - show a = genericShow a - -instance EncodeJson CardanoTx where - encodeJson = defer \_ -> case _ of - EmulatorTx a -> E.encodeTagged "EmulatorTx" a E.value - CardanoApiTx a -> E.encodeTagged "CardanoApiTx" a E.value - Both a b -> E.encodeTagged "Both" (a /\ b) (E.tuple (E.value >/\< E.value)) - -instance DecodeJson CardanoTx where - decodeJson = defer \_ -> D.decode - $ D.sumType "CardanoTx" - $ Map.fromFoldable - [ "EmulatorTx" /\ D.content (EmulatorTx <$> D.value) - , "CardanoApiTx" /\ D.content (CardanoApiTx <$> D.value) - , "Both" /\ D.content (D.tuple $ Both D.value D.value) - ] - -derive instance Generic CardanoTx _ - --------------------------------------------------------------------------------- - -_EmulatorTx :: Prism' CardanoTx Tx -_EmulatorTx = prism' EmulatorTx case _ of - (EmulatorTx a) -> Just a - _ -> Nothing - -_CardanoApiTx :: Prism' CardanoTx RawJson -_CardanoApiTx = prism' CardanoApiTx case _ of - (CardanoApiTx a) -> Just a - _ -> Nothing - -_Both :: Prism' CardanoTx { a :: Tx, b :: RawJson } -_Both = prism' (\{ a, b } -> (Both a b)) case _ of - (Both a b) -> Just { a, b } - _ -> Nothing - --------------------------------------------------------------------------------- - -data ChainIndexTxOut - = PublicKeyChainIndexTxOut - { _ciTxOutAddress :: Address - , _ciTxOutValue :: Value - } - | ScriptChainIndexTxOut - { _ciTxOutAddress :: Address - , _ciTxOutValidator :: Either String Validator - , _ciTxOutDatum :: Either DatumHash String - , _ciTxOutValue :: Value - } - -derive instance Eq ChainIndexTxOut - -instance Show ChainIndexTxOut where - show a = genericShow a - -instance EncodeJson ChainIndexTxOut where - encodeJson = defer \_ -> case _ of - PublicKeyChainIndexTxOut { _ciTxOutAddress, _ciTxOutValue } -> encodeJson - { tag: "PublicKeyChainIndexTxOut" - , _ciTxOutAddress: flip E.encode _ciTxOutAddress E.value - , _ciTxOutValue: flip E.encode _ciTxOutValue E.value - } - ScriptChainIndexTxOut - { _ciTxOutAddress, _ciTxOutValidator, _ciTxOutDatum, _ciTxOutValue } -> - encodeJson - { tag: "ScriptChainIndexTxOut" - , _ciTxOutAddress: flip E.encode _ciTxOutAddress E.value - , _ciTxOutValidator: flip E.encode _ciTxOutValidator - (E.either E.value E.value) - , _ciTxOutDatum: flip E.encode _ciTxOutDatum (E.either E.value E.value) - , _ciTxOutValue: flip E.encode _ciTxOutValue E.value - } - -instance DecodeJson ChainIndexTxOut where - decodeJson = defer \_ -> D.decode - $ D.sumType "ChainIndexTxOut" - $ Map.fromFoldable - [ "PublicKeyChainIndexTxOut" /\ - ( PublicKeyChainIndexTxOut <$> D.object "PublicKeyChainIndexTxOut" - { _ciTxOutAddress: D.value :: _ Address - , _ciTxOutValue: D.value :: _ Value - } - ) - , "ScriptChainIndexTxOut" /\ - ( ScriptChainIndexTxOut <$> D.object "ScriptChainIndexTxOut" - { _ciTxOutAddress: D.value :: _ Address - , _ciTxOutValidator: - (D.either D.value D.value) :: _ (Either String Validator) - , _ciTxOutDatum: - (D.either D.value D.value) :: _ (Either DatumHash String) - , _ciTxOutValue: D.value :: _ Value - } - ) - ] - -derive instance Generic ChainIndexTxOut _ - --------------------------------------------------------------------------------- - -_PublicKeyChainIndexTxOut - :: Prism' ChainIndexTxOut - { _ciTxOutAddress :: Address, _ciTxOutValue :: Value } -_PublicKeyChainIndexTxOut = prism' PublicKeyChainIndexTxOut case _ of - (PublicKeyChainIndexTxOut a) -> Just a - _ -> Nothing - -_ScriptChainIndexTxOut - :: Prism' ChainIndexTxOut - { _ciTxOutAddress :: Address - , _ciTxOutValidator :: Either String Validator - , _ciTxOutDatum :: Either DatumHash String - , _ciTxOutValue :: Value - } -_ScriptChainIndexTxOut = prism' ScriptChainIndexTxOut case _ of - (ScriptChainIndexTxOut a) -> Just a - _ -> Nothing diff --git a/marlowe-playground-client/generated/Ledger/Tx/CardanoAPI.purs b/marlowe-playground-client/generated/Ledger/Tx/CardanoAPI.purs deleted file mode 100644 index a528d11022..0000000000 --- a/marlowe-playground-client/generated/Ledger/Tx/CardanoAPI.purs +++ /dev/null @@ -1,189 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Ledger.Tx.CardanoAPI where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Bounded.Generic (genericBottom, genericTop) -import Data.Enum (class Enum) -import Data.Enum.Generic (genericPred, genericSucc) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Tx (ScriptTag) -import Type.Proxy (Proxy(Proxy)) - -data FromCardanoError = SimpleScriptsNotSupported - -derive instance Eq FromCardanoError - -derive instance Ord FromCardanoError - -instance Show FromCardanoError where - show a = genericShow a - -instance EncodeJson FromCardanoError where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson FromCardanoError where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic FromCardanoError _ - -instance Enum FromCardanoError where - succ = genericSucc - pred = genericPred - -instance Bounded FromCardanoError where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_SimpleScriptsNotSupported :: Iso' FromCardanoError Unit -_SimpleScriptsNotSupported = iso (const unit) (const SimpleScriptsNotSupported) - --------------------------------------------------------------------------------- - -data ToCardanoError - = TxBodyError String - | DeserialisationError - | InvalidValidityRange - | ValueNotPureAda - | OutputHasZeroAda - | StakingPointersNotSupported - | SimpleScriptsNotSupportedToCardano - | MissingTxInType - | MissingMintingPolicyRedeemer - | MissingMintingPolicy - | ScriptPurposeNotSupported ScriptTag - | Tag String ToCardanoError - -derive instance Eq ToCardanoError - -instance Show ToCardanoError where - show a = genericShow a - -instance EncodeJson ToCardanoError where - encodeJson = defer \_ -> case _ of - TxBodyError a -> E.encodeTagged "TxBodyError" a E.value - DeserialisationError -> encodeJson - { tag: "DeserialisationError", contents: jsonNull } - InvalidValidityRange -> encodeJson - { tag: "InvalidValidityRange", contents: jsonNull } - ValueNotPureAda -> encodeJson { tag: "ValueNotPureAda", contents: jsonNull } - OutputHasZeroAda -> encodeJson - { tag: "OutputHasZeroAda", contents: jsonNull } - StakingPointersNotSupported -> encodeJson - { tag: "StakingPointersNotSupported", contents: jsonNull } - SimpleScriptsNotSupportedToCardano -> encodeJson - { tag: "SimpleScriptsNotSupportedToCardano", contents: jsonNull } - MissingTxInType -> encodeJson { tag: "MissingTxInType", contents: jsonNull } - MissingMintingPolicyRedeemer -> encodeJson - { tag: "MissingMintingPolicyRedeemer", contents: jsonNull } - MissingMintingPolicy -> encodeJson - { tag: "MissingMintingPolicy", contents: jsonNull } - ScriptPurposeNotSupported a -> E.encodeTagged "ScriptPurposeNotSupported" a - E.value - Tag a b -> E.encodeTagged "Tag" (a /\ b) (E.tuple (E.value >/\< E.value)) - -instance DecodeJson ToCardanoError where - decodeJson = defer \_ -> D.decode - $ D.sumType "ToCardanoError" - $ Map.fromFoldable - [ "TxBodyError" /\ D.content (TxBodyError <$> D.value) - , "DeserialisationError" /\ pure DeserialisationError - , "InvalidValidityRange" /\ pure InvalidValidityRange - , "ValueNotPureAda" /\ pure ValueNotPureAda - , "OutputHasZeroAda" /\ pure OutputHasZeroAda - , "StakingPointersNotSupported" /\ pure StakingPointersNotSupported - , "SimpleScriptsNotSupportedToCardano" /\ pure - SimpleScriptsNotSupportedToCardano - , "MissingTxInType" /\ pure MissingTxInType - , "MissingMintingPolicyRedeemer" /\ pure MissingMintingPolicyRedeemer - , "MissingMintingPolicy" /\ pure MissingMintingPolicy - , "ScriptPurposeNotSupported" /\ D.content - (ScriptPurposeNotSupported <$> D.value) - , "Tag" /\ D.content (D.tuple $ Tag D.value D.value) - ] - -derive instance Generic ToCardanoError _ - --------------------------------------------------------------------------------- - -_TxBodyError :: Prism' ToCardanoError String -_TxBodyError = prism' TxBodyError case _ of - (TxBodyError a) -> Just a - _ -> Nothing - -_DeserialisationError :: Prism' ToCardanoError Unit -_DeserialisationError = prism' (const DeserialisationError) case _ of - DeserialisationError -> Just unit - _ -> Nothing - -_InvalidValidityRange :: Prism' ToCardanoError Unit -_InvalidValidityRange = prism' (const InvalidValidityRange) case _ of - InvalidValidityRange -> Just unit - _ -> Nothing - -_ValueNotPureAda :: Prism' ToCardanoError Unit -_ValueNotPureAda = prism' (const ValueNotPureAda) case _ of - ValueNotPureAda -> Just unit - _ -> Nothing - -_OutputHasZeroAda :: Prism' ToCardanoError Unit -_OutputHasZeroAda = prism' (const OutputHasZeroAda) case _ of - OutputHasZeroAda -> Just unit - _ -> Nothing - -_StakingPointersNotSupported :: Prism' ToCardanoError Unit -_StakingPointersNotSupported = prism' (const StakingPointersNotSupported) - case _ of - StakingPointersNotSupported -> Just unit - _ -> Nothing - -_SimpleScriptsNotSupportedToCardano :: Prism' ToCardanoError Unit -_SimpleScriptsNotSupportedToCardano = prism' - (const SimpleScriptsNotSupportedToCardano) - case _ of - SimpleScriptsNotSupportedToCardano -> Just unit - _ -> Nothing - -_MissingTxInType :: Prism' ToCardanoError Unit -_MissingTxInType = prism' (const MissingTxInType) case _ of - MissingTxInType -> Just unit - _ -> Nothing - -_MissingMintingPolicyRedeemer :: Prism' ToCardanoError Unit -_MissingMintingPolicyRedeemer = prism' (const MissingMintingPolicyRedeemer) - case _ of - MissingMintingPolicyRedeemer -> Just unit - _ -> Nothing - -_MissingMintingPolicy :: Prism' ToCardanoError Unit -_MissingMintingPolicy = prism' (const MissingMintingPolicy) case _ of - MissingMintingPolicy -> Just unit - _ -> Nothing - -_ScriptPurposeNotSupported :: Prism' ToCardanoError ScriptTag -_ScriptPurposeNotSupported = prism' ScriptPurposeNotSupported case _ of - (ScriptPurposeNotSupported a) -> Just a - _ -> Nothing - -_Tag :: Prism' ToCardanoError { a :: String, b :: ToCardanoError } -_Tag = prism' (\{ a, b } -> (Tag a b)) case _ of - (Tag a b) -> Just { a, b } - _ -> Nothing diff --git a/marlowe-playground-client/generated/Ledger/Typed/Tx.purs b/marlowe-playground-client/generated/Ledger/Typed/Tx.purs deleted file mode 100644 index c6fa6cb30f..0000000000 --- a/marlowe-playground-client/generated/Ledger/Typed/Tx.purs +++ /dev/null @@ -1,166 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Ledger.Typed.Tx where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Bounded.Generic (genericBottom, genericTop) -import Data.Enum (class Enum) -import Data.Enum.Generic (genericPred, genericSucc) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Address (Address) -import Plutus.V1.Ledger.Scripts (DatumHash) -import Plutus.V1.Ledger.Tx (TxInType, TxOutRef) -import Type.Proxy (Proxy(Proxy)) - -data ConnectionError - = WrongValidatorAddress Address Address - | WrongOutType WrongOutTypeError - | WrongInType TxInType - | MissingInType - | WrongValidatorType String - | WrongRedeemerType String - | WrongDatumType String - | NoDatum TxOutRef DatumHash - | UnknownRef - -derive instance Eq ConnectionError - -instance Show ConnectionError where - show a = genericShow a - -instance EncodeJson ConnectionError where - encodeJson = defer \_ -> case _ of - WrongValidatorAddress a b -> E.encodeTagged "WrongValidatorAddress" (a /\ b) - (E.tuple (E.value >/\< E.value)) - WrongOutType a -> E.encodeTagged "WrongOutType" a E.value - WrongInType a -> E.encodeTagged "WrongInType" a E.value - MissingInType -> encodeJson { tag: "MissingInType", contents: jsonNull } - WrongValidatorType a -> E.encodeTagged "WrongValidatorType" a E.value - WrongRedeemerType a -> E.encodeTagged "WrongRedeemerType" a E.value - WrongDatumType a -> E.encodeTagged "WrongDatumType" a E.value - NoDatum a b -> E.encodeTagged "NoDatum" (a /\ b) - (E.tuple (E.value >/\< E.value)) - UnknownRef -> encodeJson { tag: "UnknownRef", contents: jsonNull } - -instance DecodeJson ConnectionError where - decodeJson = defer \_ -> D.decode - $ D.sumType "ConnectionError" - $ Map.fromFoldable - [ "WrongValidatorAddress" /\ D.content - (D.tuple $ WrongValidatorAddress D.value D.value) - , "WrongOutType" /\ D.content (WrongOutType <$> D.value) - , "WrongInType" /\ D.content (WrongInType <$> D.value) - , "MissingInType" /\ pure MissingInType - , "WrongValidatorType" /\ D.content (WrongValidatorType <$> D.value) - , "WrongRedeemerType" /\ D.content (WrongRedeemerType <$> D.value) - , "WrongDatumType" /\ D.content (WrongDatumType <$> D.value) - , "NoDatum" /\ D.content (D.tuple $ NoDatum D.value D.value) - , "UnknownRef" /\ pure UnknownRef - ] - -derive instance Generic ConnectionError _ - --------------------------------------------------------------------------------- - -_WrongValidatorAddress :: Prism' ConnectionError { a :: Address, b :: Address } -_WrongValidatorAddress = prism' (\{ a, b } -> (WrongValidatorAddress a b)) - case _ of - (WrongValidatorAddress a b) -> Just { a, b } - _ -> Nothing - -_WrongOutType :: Prism' ConnectionError WrongOutTypeError -_WrongOutType = prism' WrongOutType case _ of - (WrongOutType a) -> Just a - _ -> Nothing - -_WrongInType :: Prism' ConnectionError TxInType -_WrongInType = prism' WrongInType case _ of - (WrongInType a) -> Just a - _ -> Nothing - -_MissingInType :: Prism' ConnectionError Unit -_MissingInType = prism' (const MissingInType) case _ of - MissingInType -> Just unit - _ -> Nothing - -_WrongValidatorType :: Prism' ConnectionError String -_WrongValidatorType = prism' WrongValidatorType case _ of - (WrongValidatorType a) -> Just a - _ -> Nothing - -_WrongRedeemerType :: Prism' ConnectionError String -_WrongRedeemerType = prism' WrongRedeemerType case _ of - (WrongRedeemerType a) -> Just a - _ -> Nothing - -_WrongDatumType :: Prism' ConnectionError String -_WrongDatumType = prism' WrongDatumType case _ of - (WrongDatumType a) -> Just a - _ -> Nothing - -_NoDatum :: Prism' ConnectionError { a :: TxOutRef, b :: DatumHash } -_NoDatum = prism' (\{ a, b } -> (NoDatum a b)) case _ of - (NoDatum a b) -> Just { a, b } - _ -> Nothing - -_UnknownRef :: Prism' ConnectionError Unit -_UnknownRef = prism' (const UnknownRef) case _ of - UnknownRef -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data WrongOutTypeError - = ExpectedScriptGotPubkey - | ExpectedPubkeyGotScript - -derive instance Eq WrongOutTypeError - -derive instance Ord WrongOutTypeError - -instance Show WrongOutTypeError where - show a = genericShow a - -instance EncodeJson WrongOutTypeError where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson WrongOutTypeError where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic WrongOutTypeError _ - -instance Enum WrongOutTypeError where - succ = genericSucc - pred = genericPred - -instance Bounded WrongOutTypeError where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_ExpectedScriptGotPubkey :: Prism' WrongOutTypeError Unit -_ExpectedScriptGotPubkey = prism' (const ExpectedScriptGotPubkey) case _ of - ExpectedScriptGotPubkey -> Just unit - _ -> Nothing - -_ExpectedPubkeyGotScript :: Prism' WrongOutTypeError Unit -_ExpectedPubkeyGotScript = prism' (const ExpectedPubkeyGotScript) case _ of - ExpectedPubkeyGotScript -> Just unit - _ -> Nothing diff --git a/marlowe-playground-client/generated/Marlowe.purs b/marlowe-playground-client/generated/Marlowe.purs index e805ff4d4c..bd7c84d0d8 100644 --- a/marlowe-playground-client/generated/Marlowe.purs +++ b/marlowe-playground-client/generated/Marlowe.purs @@ -20,8 +20,6 @@ import Data.Tuple (Tuple) import Gist (Gist, NewGist) import Gists.Extra (GistId) import Language.Haskell.Interpreter (InterpreterError, InterpreterResult) -import Language.Marlowe.ACTUS.Domain.ContractTerms (ContractTermsPoly) -import Language.Marlowe.ACTUS.Domain.Schedule (CashFlowPoly) import Marlowe.Symbolic.Types.Request (Request) import Marlowe.Symbolic.Types.Response (Response) import Servant.PureScript @@ -67,84 +65,6 @@ getApiOracleByExchangeByPair exchange pair = ] query = Nothing -postApiActusGenerate - :: forall m - . MonadAjax Api m - => ContractTermsPoly Number - -> m (Either (AjaxError JsonDecodeError Json) String) -postApiActusGenerate reqBody = - request Api req - where - req = { method, uri, headers, content, encode, decode } - method = Left POST - uri = RelativeRef relativePart query Nothing - headers = catMaybes - [ - ] - content = Just reqBody - encode = E.encode encoder - decode = D.decode decoder - encoder = E.value - decoder = D.value - relativePart = RelativePartNoAuth $ Just - [ "api" - , "actus" - , "generate" - ] - query = Nothing - -postApiActusGeneratestatic - :: forall m - . MonadAjax Api m - => ContractTermsPoly Number - -> m (Either (AjaxError JsonDecodeError Json) String) -postApiActusGeneratestatic reqBody = - request Api req - where - req = { method, uri, headers, content, encode, decode } - method = Left POST - uri = RelativeRef relativePart query Nothing - headers = catMaybes - [ - ] - content = Just reqBody - encode = E.encode encoder - decode = D.decode decoder - encoder = E.value - decoder = D.value - relativePart = RelativePartNoAuth $ Just - [ "api" - , "actus" - , "generate-static" - ] - query = Nothing - -postApiActusCashflows - :: forall m - . MonadAjax Api m - => ContractTermsPoly Number - -> m (Either (AjaxError JsonDecodeError Json) (Array (CashFlowPoly Number))) -postApiActusCashflows reqBody = - request Api req - where - req = { method, uri, headers, content, encode, decode } - method = Left POST - uri = RelativeRef relativePart query Nothing - headers = catMaybes - [ - ] - content = Just reqBody - encode = E.encode encoder - decode = D.decode decoder - encoder = E.value - decoder = D.value - relativePart = RelativePartNoAuth $ Just - [ "api" - , "actus" - , "cashflows" - ] - query = Nothing - postApiCompile :: forall m . MonadAjax Api m diff --git a/marlowe-playground-client/generated/Playground/Types.purs b/marlowe-playground-client/generated/Playground/Types.purs deleted file mode 100644 index fe5df4a3cb..0000000000 --- a/marlowe-playground-client/generated/Playground/Types.purs +++ /dev/null @@ -1,211 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Playground.Types where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.List.Types (NonEmptyList) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Ledger.CardanoWallet (WalletNumber) -import Plutus.V1.Ledger.Slot (Slot) -import Plutus.V1.Ledger.Value (TokenName, Value) -import Type.Proxy (Proxy(Proxy)) -import Wallet.Types (EndpointDescription) - -data ContractCall a - = CallEndpoint - { caller :: WalletNumber - , argumentValues :: FunctionSchema a - } - | AddBlocks { blocks :: BigInt } - | AddBlocksUntil { slot :: Slot } - | PayToWallet - { sender :: WalletNumber - , recipient :: WalletNumber - , amount :: Value - } - -instance (Show a) => Show (ContractCall a) where - show a = genericShow a - -derive instance (Eq a) => Eq (ContractCall a) - -instance (EncodeJson a) => EncodeJson (ContractCall a) where - encodeJson = defer \_ -> case _ of - CallEndpoint { caller, argumentValues } -> encodeJson - { tag: "CallEndpoint" - , caller: flip E.encode caller E.value - , argumentValues: flip E.encode argumentValues E.value - } - AddBlocks { blocks } -> encodeJson - { tag: "AddBlocks" - , blocks: flip E.encode blocks E.value - } - AddBlocksUntil { slot } -> encodeJson - { tag: "AddBlocksUntil" - , slot: flip E.encode slot E.value - } - PayToWallet { sender, recipient, amount } -> encodeJson - { tag: "PayToWallet" - , sender: flip E.encode sender E.value - , recipient: flip E.encode recipient E.value - , amount: flip E.encode amount E.value - } - -instance (DecodeJson a) => DecodeJson (ContractCall a) where - decodeJson = defer \_ -> D.decode - $ D.sumType "ContractCall" - $ Map.fromFoldable - [ "CallEndpoint" /\ - ( CallEndpoint <$> D.object "CallEndpoint" - { caller: D.value :: _ WalletNumber - , argumentValues: D.value :: _ (FunctionSchema a) - } - ) - , "AddBlocks" /\ - (AddBlocks <$> D.object "AddBlocks" { blocks: D.value :: _ BigInt }) - , "AddBlocksUntil" /\ - ( AddBlocksUntil <$> D.object "AddBlocksUntil" - { slot: D.value :: _ Slot } - ) - , "PayToWallet" /\ - ( PayToWallet <$> D.object "PayToWallet" - { sender: D.value :: _ WalletNumber - , recipient: D.value :: _ WalletNumber - , amount: D.value :: _ Value - } - ) - ] - -derive instance Generic (ContractCall a) _ - --------------------------------------------------------------------------------- - -_CallEndpoint - :: forall a - . Prism' (ContractCall a) - { caller :: WalletNumber, argumentValues :: FunctionSchema a } -_CallEndpoint = prism' CallEndpoint case _ of - (CallEndpoint a) -> Just a - _ -> Nothing - -_AddBlocks :: forall a. Prism' (ContractCall a) { blocks :: BigInt } -_AddBlocks = prism' AddBlocks case _ of - (AddBlocks a) -> Just a - _ -> Nothing - -_AddBlocksUntil :: forall a. Prism' (ContractCall a) { slot :: Slot } -_AddBlocksUntil = prism' AddBlocksUntil case _ of - (AddBlocksUntil a) -> Just a - _ -> Nothing - -_PayToWallet - :: forall a - . Prism' (ContractCall a) - { sender :: WalletNumber, recipient :: WalletNumber, amount :: Value } -_PayToWallet = prism' PayToWallet case _ of - (PayToWallet a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype FunctionSchema a = FunctionSchema - { endpointDescription :: EndpointDescription - , argument :: a - } - -derive instance Functor FunctionSchema - -instance (Show a) => Show (FunctionSchema a) where - show a = genericShow a - -derive instance (Eq a) => Eq (FunctionSchema a) - -instance (EncodeJson a) => EncodeJson (FunctionSchema a) where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { endpointDescription: E.value :: _ EndpointDescription - , argument: E.value :: _ a - } - ) - -instance (DecodeJson a) => DecodeJson (FunctionSchema a) where - decodeJson = defer \_ -> D.decode $ - ( FunctionSchema <$> D.record "FunctionSchema" - { endpointDescription: D.value :: _ EndpointDescription - , argument: D.value :: _ a - } - ) - -derive instance Generic (FunctionSchema a) _ - -derive instance Newtype (FunctionSchema a) _ - --------------------------------------------------------------------------------- - -_FunctionSchema - :: forall a - . Iso' (FunctionSchema a) - { endpointDescription :: EndpointDescription, argument :: a } -_FunctionSchema = _Newtype - --------------------------------------------------------------------------------- - -newtype KnownCurrency = KnownCurrency - { hash :: String - , friendlyName :: String - , knownTokens :: NonEmptyList TokenName - } - -instance Show KnownCurrency where - show a = genericShow a - -derive instance Eq KnownCurrency - -instance EncodeJson KnownCurrency where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { hash: E.value :: _ String - , friendlyName: E.value :: _ String - , knownTokens: E.value :: _ (NonEmptyList TokenName) - } - ) - -instance DecodeJson KnownCurrency where - decodeJson = defer \_ -> D.decode $ - ( KnownCurrency <$> D.record "KnownCurrency" - { hash: D.value :: _ String - , friendlyName: D.value :: _ String - , knownTokens: D.value :: _ (NonEmptyList TokenName) - } - ) - -derive instance Generic KnownCurrency _ - -derive instance Newtype KnownCurrency _ - --------------------------------------------------------------------------------- - -_KnownCurrency - :: Iso' KnownCurrency - { hash :: String - , friendlyName :: String - , knownTokens :: NonEmptyList TokenName - } -_KnownCurrency = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/ChainIndex/Api.purs b/marlowe-playground-client/generated/Plutus/ChainIndex/Api.purs deleted file mode 100644 index aecda9a4b1..0000000000 --- a/marlowe-playground-client/generated/Plutus/ChainIndex/Api.purs +++ /dev/null @@ -1,129 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.ChainIndex.Api where - -import Prelude - -import Control.Lazy (defer) -import Control.Monad.Freer.Extras.Pagination (Page) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.ChainIndex.Types (Tip) -import Plutus.V1.Ledger.Tx (TxOutRef) -import Type.Proxy (Proxy(Proxy)) - -newtype IsUtxoResponse = IsUtxoResponse - { currentTip :: Tip - , isUtxo :: Boolean - } - -derive instance Eq IsUtxoResponse - -instance Show IsUtxoResponse where - show a = genericShow a - -instance EncodeJson IsUtxoResponse where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { currentTip: E.value :: _ Tip - , isUtxo: E.value :: _ Boolean - } - ) - -instance DecodeJson IsUtxoResponse where - decodeJson = defer \_ -> D.decode $ - ( IsUtxoResponse <$> D.record "IsUtxoResponse" - { currentTip: D.value :: _ Tip - , isUtxo: D.value :: _ Boolean - } - ) - -derive instance Generic IsUtxoResponse _ - -derive instance Newtype IsUtxoResponse _ - --------------------------------------------------------------------------------- - -_IsUtxoResponse :: Iso' IsUtxoResponse { currentTip :: Tip, isUtxo :: Boolean } -_IsUtxoResponse = _Newtype - --------------------------------------------------------------------------------- - -newtype TxosResponse = TxosResponse { paget :: Page TxOutRef } - -derive instance Eq TxosResponse - -instance Show TxosResponse where - show a = genericShow a - -instance EncodeJson TxosResponse where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { paget: E.value :: _ (Page TxOutRef) } - ) - -instance DecodeJson TxosResponse where - decodeJson = defer \_ -> D.decode $ - ( TxosResponse <$> D.record "TxosResponse" - { paget: D.value :: _ (Page TxOutRef) } - ) - -derive instance Generic TxosResponse _ - -derive instance Newtype TxosResponse _ - --------------------------------------------------------------------------------- - -_TxosResponse :: Iso' TxosResponse { paget :: Page TxOutRef } -_TxosResponse = _Newtype - --------------------------------------------------------------------------------- - -newtype UtxosResponse = UtxosResponse - { currentTip :: Tip - , page :: Page TxOutRef - } - -derive instance Eq UtxosResponse - -instance Show UtxosResponse where - show a = genericShow a - -instance EncodeJson UtxosResponse where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { currentTip: E.value :: _ Tip - , page: E.value :: _ (Page TxOutRef) - } - ) - -instance DecodeJson UtxosResponse where - decodeJson = defer \_ -> D.decode $ - ( UtxosResponse <$> D.record "UtxosResponse" - { currentTip: D.value :: _ Tip - , page: D.value :: _ (Page TxOutRef) - } - ) - -derive instance Generic UtxosResponse _ - -derive instance Newtype UtxosResponse _ - --------------------------------------------------------------------------------- - -_UtxosResponse - :: Iso' UtxosResponse { currentTip :: Tip, page :: Page TxOutRef } -_UtxosResponse = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/ChainIndex/ChainIndexError.purs b/marlowe-playground-client/generated/Plutus/ChainIndex/ChainIndexError.purs deleted file mode 100644 index d571e8f292..0000000000 --- a/marlowe-playground-client/generated/Plutus/ChainIndex/ChainIndexError.purs +++ /dev/null @@ -1,183 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.ChainIndex.ChainIndexError where - -import Prelude - -import Control.Lazy (defer) -import Control.Monad.Freer.Extras.Beam (BeamError) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.ChainIndex.Types (Point, Tip) -import Type.Proxy (Proxy(Proxy)) - -data ChainIndexError - = InsertionFailed InsertUtxoFailed - | RollbackFailed RollbackFailed - | ResumeNotSupported - | QueryFailedNoTip - | BeamEffectError BeamError - -derive instance Eq ChainIndexError - -instance Show ChainIndexError where - show a = genericShow a - -instance EncodeJson ChainIndexError where - encodeJson = defer \_ -> case _ of - InsertionFailed a -> E.encodeTagged "InsertionFailed" a E.value - RollbackFailed a -> E.encodeTagged "RollbackFailed" a E.value - ResumeNotSupported -> encodeJson - { tag: "ResumeNotSupported", contents: jsonNull } - QueryFailedNoTip -> encodeJson - { tag: "QueryFailedNoTip", contents: jsonNull } - BeamEffectError a -> E.encodeTagged "BeamEffectError" a E.value - -instance DecodeJson ChainIndexError where - decodeJson = defer \_ -> D.decode - $ D.sumType "ChainIndexError" - $ Map.fromFoldable - [ "InsertionFailed" /\ D.content (InsertionFailed <$> D.value) - , "RollbackFailed" /\ D.content (RollbackFailed <$> D.value) - , "ResumeNotSupported" /\ pure ResumeNotSupported - , "QueryFailedNoTip" /\ pure QueryFailedNoTip - , "BeamEffectError" /\ D.content (BeamEffectError <$> D.value) - ] - -derive instance Generic ChainIndexError _ - --------------------------------------------------------------------------------- - -_InsertionFailed :: Prism' ChainIndexError InsertUtxoFailed -_InsertionFailed = prism' InsertionFailed case _ of - (InsertionFailed a) -> Just a - _ -> Nothing - -_RollbackFailed :: Prism' ChainIndexError RollbackFailed -_RollbackFailed = prism' RollbackFailed case _ of - (RollbackFailed a) -> Just a - _ -> Nothing - -_ResumeNotSupported :: Prism' ChainIndexError Unit -_ResumeNotSupported = prism' (const ResumeNotSupported) case _ of - ResumeNotSupported -> Just unit - _ -> Nothing - -_QueryFailedNoTip :: Prism' ChainIndexError Unit -_QueryFailedNoTip = prism' (const QueryFailedNoTip) case _ of - QueryFailedNoTip -> Just unit - _ -> Nothing - -_BeamEffectError :: Prism' ChainIndexError BeamError -_BeamEffectError = prism' BeamEffectError case _ of - (BeamEffectError a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data InsertUtxoFailed - = DuplicateBlock Tip - | InsertUtxoNoTip - -derive instance Eq InsertUtxoFailed - -instance Show InsertUtxoFailed where - show a = genericShow a - -instance EncodeJson InsertUtxoFailed where - encodeJson = defer \_ -> case _ of - DuplicateBlock a -> E.encodeTagged "DuplicateBlock" a E.value - InsertUtxoNoTip -> encodeJson { tag: "InsertUtxoNoTip", contents: jsonNull } - -instance DecodeJson InsertUtxoFailed where - decodeJson = defer \_ -> D.decode - $ D.sumType "InsertUtxoFailed" - $ Map.fromFoldable - [ "DuplicateBlock" /\ D.content (DuplicateBlock <$> D.value) - , "InsertUtxoNoTip" /\ pure InsertUtxoNoTip - ] - -derive instance Generic InsertUtxoFailed _ - --------------------------------------------------------------------------------- - -_DuplicateBlock :: Prism' InsertUtxoFailed Tip -_DuplicateBlock = prism' DuplicateBlock case _ of - (DuplicateBlock a) -> Just a - _ -> Nothing - -_InsertUtxoNoTip :: Prism' InsertUtxoFailed Unit -_InsertUtxoNoTip = prism' (const InsertUtxoNoTip) case _ of - InsertUtxoNoTip -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data RollbackFailed - = RollbackNoTip - | TipMismatch - { foundTip :: Tip - , targetPoint :: Point - } - | OldPointNotFound Point - -derive instance Eq RollbackFailed - -instance Show RollbackFailed where - show a = genericShow a - -instance EncodeJson RollbackFailed where - encodeJson = defer \_ -> case _ of - RollbackNoTip -> encodeJson { tag: "RollbackNoTip", contents: jsonNull } - TipMismatch { foundTip, targetPoint } -> encodeJson - { tag: "TipMismatch" - , foundTip: flip E.encode foundTip E.value - , targetPoint: flip E.encode targetPoint E.value - } - OldPointNotFound a -> E.encodeTagged "OldPointNotFound" a E.value - -instance DecodeJson RollbackFailed where - decodeJson = defer \_ -> D.decode - $ D.sumType "RollbackFailed" - $ Map.fromFoldable - [ "RollbackNoTip" /\ pure RollbackNoTip - , "TipMismatch" /\ - ( TipMismatch <$> D.object "TipMismatch" - { foundTip: D.value :: _ Tip - , targetPoint: D.value :: _ Point - } - ) - , "OldPointNotFound" /\ D.content (OldPointNotFound <$> D.value) - ] - -derive instance Generic RollbackFailed _ - --------------------------------------------------------------------------------- - -_RollbackNoTip :: Prism' RollbackFailed Unit -_RollbackNoTip = prism' (const RollbackNoTip) case _ of - RollbackNoTip -> Just unit - _ -> Nothing - -_TipMismatch :: Prism' RollbackFailed { foundTip :: Tip, targetPoint :: Point } -_TipMismatch = prism' TipMismatch case _ of - (TipMismatch a) -> Just a - _ -> Nothing - -_OldPointNotFound :: Prism' RollbackFailed Point -_OldPointNotFound = prism' OldPointNotFound case _ of - (OldPointNotFound a) -> Just a - _ -> Nothing diff --git a/marlowe-playground-client/generated/Plutus/ChainIndex/ChainIndexLog.purs b/marlowe-playground-client/generated/Plutus/ChainIndex/ChainIndexLog.purs deleted file mode 100644 index a3e1a36375..0000000000 --- a/marlowe-playground-client/generated/Plutus/ChainIndex/ChainIndexLog.purs +++ /dev/null @@ -1,167 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.ChainIndex.ChainIndexLog where - -import Prelude - -import Control.Lazy (defer) -import Control.Monad.Freer.Extras.Beam (BeamLog) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Bounded.Generic (genericBottom, genericTop) -import Data.Enum (class Enum) -import Data.Enum.Generic (genericPred, genericSucc) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Ledger.Tx.CardanoAPI (FromCardanoError) -import Plutus.ChainIndex.ChainIndexError (ChainIndexError) -import Plutus.ChainIndex.Types (Tip) -import Plutus.V1.Ledger.Tx (TxOut, TxOutRef) -import Plutus.V1.Ledger.TxId (TxId) -import Type.Proxy (Proxy(Proxy)) - -data ChainIndexLog - = InsertionSuccess Tip InsertUtxoPosition - | ConversionFailed FromCardanoError - | RollbackSuccess Tip - | Err ChainIndexError - | TxNotFound TxId - | TxOutNotFound TxOutRef - | TipIsGenesis - | NoDatumScriptAddr TxOut - | BeamLogItem BeamLog - -derive instance Eq ChainIndexLog - -instance Show ChainIndexLog where - show a = genericShow a - -instance EncodeJson ChainIndexLog where - encodeJson = defer \_ -> case _ of - InsertionSuccess a b -> E.encodeTagged "InsertionSuccess" (a /\ b) - (E.tuple (E.value >/\< E.value)) - ConversionFailed a -> E.encodeTagged "ConversionFailed" a E.value - RollbackSuccess a -> E.encodeTagged "RollbackSuccess" a E.value - Err a -> E.encodeTagged "Err" a E.value - TxNotFound a -> E.encodeTagged "TxNotFound" a E.value - TxOutNotFound a -> E.encodeTagged "TxOutNotFound" a E.value - TipIsGenesis -> encodeJson { tag: "TipIsGenesis", contents: jsonNull } - NoDatumScriptAddr a -> E.encodeTagged "NoDatumScriptAddr" a E.value - BeamLogItem a -> E.encodeTagged "BeamLogItem" a E.value - -instance DecodeJson ChainIndexLog where - decodeJson = defer \_ -> D.decode - $ D.sumType "ChainIndexLog" - $ Map.fromFoldable - [ "InsertionSuccess" /\ D.content - (D.tuple $ InsertionSuccess D.value D.value) - , "ConversionFailed" /\ D.content (ConversionFailed <$> D.value) - , "RollbackSuccess" /\ D.content (RollbackSuccess <$> D.value) - , "Err" /\ D.content (Err <$> D.value) - , "TxNotFound" /\ D.content (TxNotFound <$> D.value) - , "TxOutNotFound" /\ D.content (TxOutNotFound <$> D.value) - , "TipIsGenesis" /\ pure TipIsGenesis - , "NoDatumScriptAddr" /\ D.content (NoDatumScriptAddr <$> D.value) - , "BeamLogItem" /\ D.content (BeamLogItem <$> D.value) - ] - -derive instance Generic ChainIndexLog _ - --------------------------------------------------------------------------------- - -_InsertionSuccess :: Prism' ChainIndexLog { a :: Tip, b :: InsertUtxoPosition } -_InsertionSuccess = prism' (\{ a, b } -> (InsertionSuccess a b)) case _ of - (InsertionSuccess a b) -> Just { a, b } - _ -> Nothing - -_ConversionFailed :: Prism' ChainIndexLog FromCardanoError -_ConversionFailed = prism' ConversionFailed case _ of - (ConversionFailed a) -> Just a - _ -> Nothing - -_RollbackSuccess :: Prism' ChainIndexLog Tip -_RollbackSuccess = prism' RollbackSuccess case _ of - (RollbackSuccess a) -> Just a - _ -> Nothing - -_Err :: Prism' ChainIndexLog ChainIndexError -_Err = prism' Err case _ of - (Err a) -> Just a - _ -> Nothing - -_TxNotFound :: Prism' ChainIndexLog TxId -_TxNotFound = prism' TxNotFound case _ of - (TxNotFound a) -> Just a - _ -> Nothing - -_TxOutNotFound :: Prism' ChainIndexLog TxOutRef -_TxOutNotFound = prism' TxOutNotFound case _ of - (TxOutNotFound a) -> Just a - _ -> Nothing - -_TipIsGenesis :: Prism' ChainIndexLog Unit -_TipIsGenesis = prism' (const TipIsGenesis) case _ of - TipIsGenesis -> Just unit - _ -> Nothing - -_NoDatumScriptAddr :: Prism' ChainIndexLog TxOut -_NoDatumScriptAddr = prism' NoDatumScriptAddr case _ of - (NoDatumScriptAddr a) -> Just a - _ -> Nothing - -_BeamLogItem :: Prism' ChainIndexLog BeamLog -_BeamLogItem = prism' BeamLogItem case _ of - (BeamLogItem a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data InsertUtxoPosition - = InsertAtEnd - | InsertBeforeEnd - -derive instance Eq InsertUtxoPosition - -derive instance Ord InsertUtxoPosition - -instance Show InsertUtxoPosition where - show a = genericShow a - -instance EncodeJson InsertUtxoPosition where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson InsertUtxoPosition where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic InsertUtxoPosition _ - -instance Enum InsertUtxoPosition where - succ = genericSucc - pred = genericPred - -instance Bounded InsertUtxoPosition where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_InsertAtEnd :: Prism' InsertUtxoPosition Unit -_InsertAtEnd = prism' (const InsertAtEnd) case _ of - InsertAtEnd -> Just unit - _ -> Nothing - -_InsertBeforeEnd :: Prism' InsertUtxoPosition Unit -_InsertBeforeEnd = prism' (const InsertBeforeEnd) case _ of - InsertBeforeEnd -> Just unit - _ -> Nothing diff --git a/marlowe-playground-client/generated/Plutus/ChainIndex/Tx.purs b/marlowe-playground-client/generated/Plutus/ChainIndex/Tx.purs deleted file mode 100644 index f84649d9b2..0000000000 --- a/marlowe-playground-client/generated/Plutus/ChainIndex/Tx.purs +++ /dev/null @@ -1,158 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.ChainIndex.Tx where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map (Map) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.RawJson (RawJson) -import Data.Set (Set) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Interval (Interval) -import Plutus.V1.Ledger.Scripts (DatumHash) -import Plutus.V1.Ledger.Slot (Slot) -import Plutus.V1.Ledger.Tx (TxIn, TxOut) -import Plutus.V1.Ledger.TxId (TxId) -import Type.Proxy (Proxy(Proxy)) - -newtype ChainIndexTx = ChainIndexTx - { _citxTxId :: TxId - , _citxInputs :: Set TxIn - , _citxOutputs :: ChainIndexTxOutputs - , _citxValidRange :: Interval Slot - , _citxData :: Map DatumHash String - , _citxRedeemers :: Map String String - , _citxScripts :: Map String String - , _citxCardanoTx :: Maybe RawJson - } - -derive instance Eq ChainIndexTx - -instance Show ChainIndexTx where - show a = genericShow a - -instance EncodeJson ChainIndexTx where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { _citxTxId: E.value :: _ TxId - , _citxInputs: E.value :: _ (Set TxIn) - , _citxOutputs: E.value :: _ ChainIndexTxOutputs - , _citxValidRange: E.value :: _ (Interval Slot) - , _citxData: (E.dictionary E.value E.value) :: _ (Map DatumHash String) - , _citxRedeemers: - (E.dictionary E.value E.value) :: _ (Map String String) - , _citxScripts: (E.dictionary E.value E.value) :: _ (Map String String) - , _citxCardanoTx: (E.maybe E.value) :: _ (Maybe RawJson) - } - ) - -instance DecodeJson ChainIndexTx where - decodeJson = defer \_ -> D.decode $ - ( ChainIndexTx <$> D.record "ChainIndexTx" - { _citxTxId: D.value :: _ TxId - , _citxInputs: D.value :: _ (Set TxIn) - , _citxOutputs: D.value :: _ ChainIndexTxOutputs - , _citxValidRange: D.value :: _ (Interval Slot) - , _citxData: (D.dictionary D.value D.value) :: _ (Map DatumHash String) - , _citxRedeemers: - (D.dictionary D.value D.value) :: _ (Map String String) - , _citxScripts: (D.dictionary D.value D.value) :: _ (Map String String) - , _citxCardanoTx: (D.maybe D.value) :: _ (Maybe RawJson) - } - ) - -derive instance Generic ChainIndexTx _ - -derive instance Newtype ChainIndexTx _ - --------------------------------------------------------------------------------- - -_ChainIndexTx - :: Iso' ChainIndexTx - { _citxTxId :: TxId - , _citxInputs :: Set TxIn - , _citxOutputs :: ChainIndexTxOutputs - , _citxValidRange :: Interval Slot - , _citxData :: Map DatumHash String - , _citxRedeemers :: Map String String - , _citxScripts :: Map String String - , _citxCardanoTx :: Maybe RawJson - } -_ChainIndexTx = _Newtype - -citxTxId :: Lens' ChainIndexTx TxId -citxTxId = _Newtype <<< prop (Proxy :: _ "_citxTxId") - -citxInputs :: Lens' ChainIndexTx (Set TxIn) -citxInputs = _Newtype <<< prop (Proxy :: _ "_citxInputs") - -citxOutputs :: Lens' ChainIndexTx ChainIndexTxOutputs -citxOutputs = _Newtype <<< prop (Proxy :: _ "_citxOutputs") - -citxValidRange :: Lens' ChainIndexTx (Interval Slot) -citxValidRange = _Newtype <<< prop (Proxy :: _ "_citxValidRange") - -citxData :: Lens' ChainIndexTx (Map DatumHash String) -citxData = _Newtype <<< prop (Proxy :: _ "_citxData") - -citxRedeemers :: Lens' ChainIndexTx (Map String String) -citxRedeemers = _Newtype <<< prop (Proxy :: _ "_citxRedeemers") - -citxScripts :: Lens' ChainIndexTx (Map String String) -citxScripts = _Newtype <<< prop (Proxy :: _ "_citxScripts") - -citxCardanoTx :: Lens' ChainIndexTx (Maybe RawJson) -citxCardanoTx = _Newtype <<< prop (Proxy :: _ "_citxCardanoTx") - --------------------------------------------------------------------------------- - -data ChainIndexTxOutputs - = InvalidTx - | ValidTx (Array TxOut) - -derive instance Eq ChainIndexTxOutputs - -instance Show ChainIndexTxOutputs where - show a = genericShow a - -instance EncodeJson ChainIndexTxOutputs where - encodeJson = defer \_ -> case _ of - InvalidTx -> encodeJson { tag: "InvalidTx", contents: jsonNull } - ValidTx a -> E.encodeTagged "ValidTx" a E.value - -instance DecodeJson ChainIndexTxOutputs where - decodeJson = defer \_ -> D.decode - $ D.sumType "ChainIndexTxOutputs" - $ Map.fromFoldable - [ "InvalidTx" /\ pure InvalidTx - , "ValidTx" /\ D.content (ValidTx <$> D.value) - ] - -derive instance Generic ChainIndexTxOutputs _ - --------------------------------------------------------------------------------- - -_InvalidTx :: Prism' ChainIndexTxOutputs Unit -_InvalidTx = prism' (const InvalidTx) case _ of - InvalidTx -> Just unit - _ -> Nothing - -_ValidTx :: Prism' ChainIndexTxOutputs (Array TxOut) -_ValidTx = prism' ValidTx case _ of - (ValidTx a) -> Just a - _ -> Nothing diff --git a/marlowe-playground-client/generated/Plutus/ChainIndex/Types.purs b/marlowe-playground-client/generated/Plutus/ChainIndex/Types.purs deleted file mode 100644 index 4ec228dfb5..0000000000 --- a/marlowe-playground-client/generated/Plutus/ChainIndex/Types.purs +++ /dev/null @@ -1,331 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.ChainIndex.Types where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Bounded.Generic (genericBottom, genericTop) -import Data.Enum (class Enum) -import Data.Enum.Generic (genericPred, genericSucc) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Ledger.Blockchain (BlockId) -import Plutus.V1.Ledger.Slot (Slot) -import Plutus.V1.Ledger.TxId (TxId) -import Type.Proxy (Proxy(Proxy)) - -newtype BlockNumber = BlockNumber { unBlockNumber :: BigInt } - -derive instance Eq BlockNumber - -instance Show BlockNumber where - show a = genericShow a - -instance EncodeJson BlockNumber where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unBlockNumber: E.value :: _ BigInt } - ) - -instance DecodeJson BlockNumber where - decodeJson = defer \_ -> D.decode $ - ( BlockNumber <$> D.record "BlockNumber" - { unBlockNumber: D.value :: _ BigInt } - ) - -derive instance Generic BlockNumber _ - -derive instance Newtype BlockNumber _ - --------------------------------------------------------------------------------- - -_BlockNumber :: Iso' BlockNumber { unBlockNumber :: BigInt } -_BlockNumber = _Newtype - --------------------------------------------------------------------------------- - -newtype Depth = Depth { unDepth :: Int } - -derive instance Eq Depth - -instance Show Depth where - show a = genericShow a - -instance EncodeJson Depth where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unDepth: E.value :: _ Int } - ) - -instance DecodeJson Depth where - decodeJson = defer \_ -> D.decode $ - (Depth <$> D.record "Depth" { unDepth: D.value :: _ Int }) - -derive instance Generic Depth _ - -derive instance Newtype Depth _ - --------------------------------------------------------------------------------- - -_Depth :: Iso' Depth { unDepth :: Int } -_Depth = _Newtype - --------------------------------------------------------------------------------- - -data Point - = PointAtGenesis - | Point - { pointSlot :: Slot - , pointBlockId :: BlockId - } - -derive instance Eq Point - -instance Show Point where - show a = genericShow a - -instance EncodeJson Point where - encodeJson = defer \_ -> case _ of - PointAtGenesis -> encodeJson { tag: "PointAtGenesis", contents: jsonNull } - Point { pointSlot, pointBlockId } -> encodeJson - { tag: "Point" - , pointSlot: flip E.encode pointSlot E.value - , pointBlockId: flip E.encode pointBlockId E.value - } - -instance DecodeJson Point where - decodeJson = defer \_ -> D.decode - $ D.sumType "Point" - $ Map.fromFoldable - [ "PointAtGenesis" /\ pure PointAtGenesis - , "Point" /\ - ( Point <$> D.object "Point" - { pointSlot: D.value :: _ Slot - , pointBlockId: D.value :: _ BlockId - } - ) - ] - -derive instance Generic Point _ - --------------------------------------------------------------------------------- - -_PointAtGenesis :: Prism' Point Unit -_PointAtGenesis = prism' (const PointAtGenesis) case _ of - PointAtGenesis -> Just unit - _ -> Nothing - -_Point :: Prism' Point { pointSlot :: Slot, pointBlockId :: BlockId } -_Point = prism' Point case _ of - (Point a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data RollbackState a - = Unknown - | TentativelyConfirmed Depth TxValidity a - | Committed TxValidity a - -derive instance (Eq a) => Eq (RollbackState a) - -instance (Show a) => Show (RollbackState a) where - show a = genericShow a - -instance (EncodeJson a) => EncodeJson (RollbackState a) where - encodeJson = defer \_ -> case _ of - Unknown -> encodeJson { tag: "Unknown", contents: jsonNull } - TentativelyConfirmed a b c -> E.encodeTagged "TentativelyConfirmed" - (a /\ b /\ c) - (E.tuple (E.value >/\< E.value >/\< E.value)) - Committed a b -> E.encodeTagged "Committed" (a /\ b) - (E.tuple (E.value >/\< E.value)) - -instance (DecodeJson a) => DecodeJson (RollbackState a) where - decodeJson = defer \_ -> D.decode - $ D.sumType "RollbackState" - $ Map.fromFoldable - [ "Unknown" /\ pure Unknown - , "TentativelyConfirmed" /\ D.content - ( D.tuple $ TentativelyConfirmed D.value D.value - D.value - ) - , "Committed" /\ D.content - (D.tuple $ Committed D.value D.value) - ] - -derive instance Generic (RollbackState a) _ - --------------------------------------------------------------------------------- - -_Unknown :: forall a. Prism' (RollbackState a) Unit -_Unknown = prism' (const Unknown) case _ of - Unknown -> Just unit - _ -> Nothing - -_TentativelyConfirmed - :: forall a. Prism' (RollbackState a) { a :: Depth, b :: TxValidity, c :: a } -_TentativelyConfirmed = prism' (\{ a, b, c } -> (TentativelyConfirmed a b c)) - case _ of - (TentativelyConfirmed a b c) -> Just { a, b, c } - _ -> Nothing - -_Committed :: forall a. Prism' (RollbackState a) { a :: TxValidity, b :: a } -_Committed = prism' (\{ a, b } -> (Committed a b)) case _ of - (Committed a b) -> Just { a, b } - _ -> Nothing - --------------------------------------------------------------------------------- - -data Tip - = TipAtGenesis - | Tip - { tipSlot :: Slot - , tipBlockId :: BlockId - , tipBlockNo :: BlockNumber - } - -derive instance Eq Tip - -instance Show Tip where - show a = genericShow a - -instance EncodeJson Tip where - encodeJson = defer \_ -> case _ of - TipAtGenesis -> encodeJson { tag: "TipAtGenesis", contents: jsonNull } - Tip { tipSlot, tipBlockId, tipBlockNo } -> encodeJson - { tag: "Tip" - , tipSlot: flip E.encode tipSlot E.value - , tipBlockId: flip E.encode tipBlockId E.value - , tipBlockNo: flip E.encode tipBlockNo E.value - } - -instance DecodeJson Tip where - decodeJson = defer \_ -> D.decode - $ D.sumType "Tip" - $ Map.fromFoldable - [ "TipAtGenesis" /\ pure TipAtGenesis - , "Tip" /\ - ( Tip <$> D.object "Tip" - { tipSlot: D.value :: _ Slot - , tipBlockId: D.value :: _ BlockId - , tipBlockNo: D.value :: _ BlockNumber - } - ) - ] - -derive instance Generic Tip _ - --------------------------------------------------------------------------------- - -_TipAtGenesis :: Prism' Tip Unit -_TipAtGenesis = prism' (const TipAtGenesis) case _ of - TipAtGenesis -> Just unit - _ -> Nothing - -_Tip - :: Prism' Tip - { tipSlot :: Slot, tipBlockId :: BlockId, tipBlockNo :: BlockNumber } -_Tip = prism' Tip case _ of - (Tip a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data TxOutState - = Spent TxId - | Unspent - -derive instance Eq TxOutState - -instance Show TxOutState where - show a = genericShow a - -instance EncodeJson TxOutState where - encodeJson = defer \_ -> case _ of - Spent a -> E.encodeTagged "Spent" a E.value - Unspent -> encodeJson { tag: "Unspent", contents: jsonNull } - -instance DecodeJson TxOutState where - decodeJson = defer \_ -> D.decode - $ D.sumType "TxOutState" - $ Map.fromFoldable - [ "Spent" /\ D.content (Spent <$> D.value) - , "Unspent" /\ pure Unspent - ] - -derive instance Generic TxOutState _ - --------------------------------------------------------------------------------- - -_Spent :: Prism' TxOutState TxId -_Spent = prism' Spent case _ of - (Spent a) -> Just a - _ -> Nothing - -_Unspent :: Prism' TxOutState Unit -_Unspent = prism' (const Unspent) case _ of - Unspent -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data TxValidity - = TxValid - | TxInvalid - | UnknownValidity - -derive instance Eq TxValidity - -derive instance Ord TxValidity - -instance Show TxValidity where - show a = genericShow a - -instance EncodeJson TxValidity where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson TxValidity where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic TxValidity _ - -instance Enum TxValidity where - succ = genericSucc - pred = genericPred - -instance Bounded TxValidity where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_TxValid :: Prism' TxValidity Unit -_TxValid = prism' (const TxValid) case _ of - TxValid -> Just unit - _ -> Nothing - -_TxInvalid :: Prism' TxValidity Unit -_TxInvalid = prism' (const TxInvalid) case _ of - TxInvalid -> Just unit - _ -> Nothing - -_UnknownValidity :: Prism' TxValidity Unit -_UnknownValidity = prism' (const UnknownValidity) case _ of - UnknownValidity -> Just unit - _ -> Nothing diff --git a/marlowe-playground-client/generated/Plutus/Contract/Checkpoint.purs b/marlowe-playground-client/generated/Plutus/Contract/Checkpoint.purs deleted file mode 100644 index 5d6a31726c..0000000000 --- a/marlowe-playground-client/generated/Plutus/Contract/Checkpoint.purs +++ /dev/null @@ -1,45 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.Contract.Checkpoint where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype CheckpointError = JSONDecodeError String - -derive instance Eq CheckpointError - -instance Show CheckpointError where - show a = genericShow a - -instance EncodeJson CheckpointError where - encodeJson = defer \_ -> E.encode $ unwrap >$< E.value - -instance DecodeJson CheckpointError where - decodeJson = defer \_ -> D.decode $ (JSONDecodeError <$> D.value) - -derive instance Generic CheckpointError _ - -derive instance Newtype CheckpointError _ - --------------------------------------------------------------------------------- - -_JSONDecodeError :: Iso' CheckpointError String -_JSONDecodeError = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/Contract/Effects.purs b/marlowe-playground-client/generated/Plutus/Contract/Effects.purs deleted file mode 100644 index 0c0626e051..0000000000 --- a/marlowe-playground-client/generated/Plutus/Contract/Effects.purs +++ /dev/null @@ -1,811 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.Contract.Effects where - -import Prelude - -import Control.Lazy (defer) -import Control.Monad.Freer.Extras.Pagination (PageQuery) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Either (Either) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.List.Types (NonEmptyList) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.RawJson (RawJson) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Ledger.Address (PaymentPubKeyHash) -import Ledger.Constraints.OffChain (UnbalancedTx) -import Ledger.TimeSlot (SlotConfig, SlotConversionError) -import Ledger.Tx (CardanoTx, ChainIndexTxOut) -import Plutus.ChainIndex.Api (IsUtxoResponse, TxosResponse, UtxosResponse) -import Plutus.ChainIndex.Tx (ChainIndexTx) -import Plutus.ChainIndex.Types (RollbackState, Tip, TxOutState) -import Plutus.V1.Ledger.Address (Address) -import Plutus.V1.Ledger.Credential (Credential) -import Plutus.V1.Ledger.Interval (Interval) -import Plutus.V1.Ledger.Scripts - ( DatumHash - , MintingPolicy - , StakeValidator - , Validator - ) -import Plutus.V1.Ledger.Slot (Slot) -import Plutus.V1.Ledger.Time (POSIXTime) -import Plutus.V1.Ledger.Tx (TxOutRef) -import Plutus.V1.Ledger.TxId (TxId) -import Plutus.V1.Ledger.Value (AssetClass) -import Type.Proxy (Proxy(Proxy)) -import Wallet.Emulator.Error (WalletAPIError) -import Wallet.Types (ContractInstanceId, EndpointDescription, EndpointValue) - -newtype ActiveEndpoint = ActiveEndpoint - { aeDescription :: EndpointDescription - , aeMetadata :: Maybe RawJson - } - -derive instance Eq ActiveEndpoint - -instance Show ActiveEndpoint where - show a = genericShow a - -instance EncodeJson ActiveEndpoint where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { aeDescription: E.value :: _ EndpointDescription - , aeMetadata: (E.maybe E.value) :: _ (Maybe RawJson) - } - ) - -instance DecodeJson ActiveEndpoint where - decodeJson = defer \_ -> D.decode $ - ( ActiveEndpoint <$> D.record "ActiveEndpoint" - { aeDescription: D.value :: _ EndpointDescription - , aeMetadata: (D.maybe D.value) :: _ (Maybe RawJson) - } - ) - -derive instance Generic ActiveEndpoint _ - -derive instance Newtype ActiveEndpoint _ - --------------------------------------------------------------------------------- - -_ActiveEndpoint - :: Iso' ActiveEndpoint - { aeDescription :: EndpointDescription, aeMetadata :: Maybe RawJson } -_ActiveEndpoint = _Newtype - --------------------------------------------------------------------------------- - -data BalanceTxResponse - = BalanceTxFailed WalletAPIError - | BalanceTxSuccess CardanoTx - -derive instance Eq BalanceTxResponse - -instance Show BalanceTxResponse where - show a = genericShow a - -instance EncodeJson BalanceTxResponse where - encodeJson = defer \_ -> case _ of - BalanceTxFailed a -> E.encodeTagged "BalanceTxFailed" a E.value - BalanceTxSuccess a -> E.encodeTagged "BalanceTxSuccess" a E.value - -instance DecodeJson BalanceTxResponse where - decodeJson = defer \_ -> D.decode - $ D.sumType "BalanceTxResponse" - $ Map.fromFoldable - [ "BalanceTxFailed" /\ D.content (BalanceTxFailed <$> D.value) - , "BalanceTxSuccess" /\ D.content (BalanceTxSuccess <$> D.value) - ] - -derive instance Generic BalanceTxResponse _ - --------------------------------------------------------------------------------- - -_BalanceTxFailed :: Prism' BalanceTxResponse WalletAPIError -_BalanceTxFailed = prism' BalanceTxFailed case _ of - (BalanceTxFailed a) -> Just a - _ -> Nothing - -_BalanceTxSuccess :: Prism' BalanceTxResponse CardanoTx -_BalanceTxSuccess = prism' BalanceTxSuccess case _ of - (BalanceTxSuccess a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data ChainIndexQuery - = DatumFromHash DatumHash - | ValidatorFromHash String - | MintingPolicyFromHash String - | StakeValidatorFromHash String - | RedeemerFromHash String - | TxOutFromRef TxOutRef - | TxFromTxId TxId - | UtxoSetMembership TxOutRef - | UtxoSetAtAddress (PageQuery TxOutRef) Credential - | UtxoSetWithCurrency (PageQuery TxOutRef) AssetClass - | TxsFromTxIds (Array TxId) - | TxoSetAtAddress (PageQuery TxOutRef) Credential - | GetTip - -derive instance Eq ChainIndexQuery - -instance Show ChainIndexQuery where - show a = genericShow a - -instance EncodeJson ChainIndexQuery where - encodeJson = defer \_ -> case _ of - DatumFromHash a -> E.encodeTagged "DatumFromHash" a E.value - ValidatorFromHash a -> E.encodeTagged "ValidatorFromHash" a E.value - MintingPolicyFromHash a -> E.encodeTagged "MintingPolicyFromHash" a E.value - StakeValidatorFromHash a -> E.encodeTagged "StakeValidatorFromHash" a - E.value - RedeemerFromHash a -> E.encodeTagged "RedeemerFromHash" a E.value - TxOutFromRef a -> E.encodeTagged "TxOutFromRef" a E.value - TxFromTxId a -> E.encodeTagged "TxFromTxId" a E.value - UtxoSetMembership a -> E.encodeTagged "UtxoSetMembership" a E.value - UtxoSetAtAddress a b -> E.encodeTagged "UtxoSetAtAddress" (a /\ b) - (E.tuple (E.value >/\< E.value)) - UtxoSetWithCurrency a b -> E.encodeTagged "UtxoSetWithCurrency" (a /\ b) - (E.tuple (E.value >/\< E.value)) - TxsFromTxIds a -> E.encodeTagged "TxsFromTxIds" a E.value - TxoSetAtAddress a b -> E.encodeTagged "TxoSetAtAddress" (a /\ b) - (E.tuple (E.value >/\< E.value)) - GetTip -> encodeJson { tag: "GetTip", contents: jsonNull } - -instance DecodeJson ChainIndexQuery where - decodeJson = defer \_ -> D.decode - $ D.sumType "ChainIndexQuery" - $ Map.fromFoldable - [ "DatumFromHash" /\ D.content (DatumFromHash <$> D.value) - , "ValidatorFromHash" /\ D.content (ValidatorFromHash <$> D.value) - , "MintingPolicyFromHash" /\ D.content - (MintingPolicyFromHash <$> D.value) - , "StakeValidatorFromHash" /\ D.content - (StakeValidatorFromHash <$> D.value) - , "RedeemerFromHash" /\ D.content (RedeemerFromHash <$> D.value) - , "TxOutFromRef" /\ D.content (TxOutFromRef <$> D.value) - , "TxFromTxId" /\ D.content (TxFromTxId <$> D.value) - , "UtxoSetMembership" /\ D.content (UtxoSetMembership <$> D.value) - , "UtxoSetAtAddress" /\ D.content - (D.tuple $ UtxoSetAtAddress D.value D.value) - , "UtxoSetWithCurrency" /\ D.content - (D.tuple $ UtxoSetWithCurrency D.value D.value) - , "TxsFromTxIds" /\ D.content (TxsFromTxIds <$> D.value) - , "TxoSetAtAddress" /\ D.content - (D.tuple $ TxoSetAtAddress D.value D.value) - , "GetTip" /\ pure GetTip - ] - -derive instance Generic ChainIndexQuery _ - --------------------------------------------------------------------------------- - -_DatumFromHash :: Prism' ChainIndexQuery DatumHash -_DatumFromHash = prism' DatumFromHash case _ of - (DatumFromHash a) -> Just a - _ -> Nothing - -_ValidatorFromHash :: Prism' ChainIndexQuery String -_ValidatorFromHash = prism' ValidatorFromHash case _ of - (ValidatorFromHash a) -> Just a - _ -> Nothing - -_MintingPolicyFromHash :: Prism' ChainIndexQuery String -_MintingPolicyFromHash = prism' MintingPolicyFromHash case _ of - (MintingPolicyFromHash a) -> Just a - _ -> Nothing - -_StakeValidatorFromHash :: Prism' ChainIndexQuery String -_StakeValidatorFromHash = prism' StakeValidatorFromHash case _ of - (StakeValidatorFromHash a) -> Just a - _ -> Nothing - -_RedeemerFromHash :: Prism' ChainIndexQuery String -_RedeemerFromHash = prism' RedeemerFromHash case _ of - (RedeemerFromHash a) -> Just a - _ -> Nothing - -_TxOutFromRef :: Prism' ChainIndexQuery TxOutRef -_TxOutFromRef = prism' TxOutFromRef case _ of - (TxOutFromRef a) -> Just a - _ -> Nothing - -_TxFromTxId :: Prism' ChainIndexQuery TxId -_TxFromTxId = prism' TxFromTxId case _ of - (TxFromTxId a) -> Just a - _ -> Nothing - -_UtxoSetMembership :: Prism' ChainIndexQuery TxOutRef -_UtxoSetMembership = prism' UtxoSetMembership case _ of - (UtxoSetMembership a) -> Just a - _ -> Nothing - -_UtxoSetAtAddress - :: Prism' ChainIndexQuery { a :: PageQuery TxOutRef, b :: Credential } -_UtxoSetAtAddress = prism' (\{ a, b } -> (UtxoSetAtAddress a b)) case _ of - (UtxoSetAtAddress a b) -> Just { a, b } - _ -> Nothing - -_UtxoSetWithCurrency - :: Prism' ChainIndexQuery { a :: PageQuery TxOutRef, b :: AssetClass } -_UtxoSetWithCurrency = prism' (\{ a, b } -> (UtxoSetWithCurrency a b)) case _ of - (UtxoSetWithCurrency a b) -> Just { a, b } - _ -> Nothing - -_TxsFromTxIds :: Prism' ChainIndexQuery (Array TxId) -_TxsFromTxIds = prism' TxsFromTxIds case _ of - (TxsFromTxIds a) -> Just a - _ -> Nothing - -_TxoSetAtAddress - :: Prism' ChainIndexQuery { a :: PageQuery TxOutRef, b :: Credential } -_TxoSetAtAddress = prism' (\{ a, b } -> (TxoSetAtAddress a b)) case _ of - (TxoSetAtAddress a b) -> Just { a, b } - _ -> Nothing - -_GetTip :: Prism' ChainIndexQuery Unit -_GetTip = prism' (const GetTip) case _ of - GetTip -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data ChainIndexResponse - = DatumHashResponse (Maybe String) - | ValidatorHashResponse (Maybe Validator) - | MintingPolicyHashResponse (Maybe MintingPolicy) - | StakeValidatorHashResponse (Maybe StakeValidator) - | TxOutRefResponse (Maybe ChainIndexTxOut) - | RedeemerHashResponse (Maybe String) - | TxIdResponse (Maybe ChainIndexTx) - | UtxoSetMembershipResponse IsUtxoResponse - | UtxoSetAtResponse UtxosResponse - | UtxoSetWithCurrencyResponse UtxosResponse - | TxIdsResponse (Array ChainIndexTx) - | TxoSetAtResponse TxosResponse - | GetTipResponse Tip - -derive instance Eq ChainIndexResponse - -instance Show ChainIndexResponse where - show a = genericShow a - -instance EncodeJson ChainIndexResponse where - encodeJson = defer \_ -> case _ of - DatumHashResponse a -> E.encodeTagged "DatumHashResponse" a - (E.maybe E.value) - ValidatorHashResponse a -> E.encodeTagged "ValidatorHashResponse" a - (E.maybe E.value) - MintingPolicyHashResponse a -> E.encodeTagged "MintingPolicyHashResponse" a - (E.maybe E.value) - StakeValidatorHashResponse a -> E.encodeTagged "StakeValidatorHashResponse" - a - (E.maybe E.value) - TxOutRefResponse a -> E.encodeTagged "TxOutRefResponse" a (E.maybe E.value) - RedeemerHashResponse a -> E.encodeTagged "RedeemerHashResponse" a - (E.maybe E.value) - TxIdResponse a -> E.encodeTagged "TxIdResponse" a (E.maybe E.value) - UtxoSetMembershipResponse a -> E.encodeTagged "UtxoSetMembershipResponse" a - E.value - UtxoSetAtResponse a -> E.encodeTagged "UtxoSetAtResponse" a E.value - UtxoSetWithCurrencyResponse a -> E.encodeTagged - "UtxoSetWithCurrencyResponse" - a - E.value - TxIdsResponse a -> E.encodeTagged "TxIdsResponse" a E.value - TxoSetAtResponse a -> E.encodeTagged "TxoSetAtResponse" a E.value - GetTipResponse a -> E.encodeTagged "GetTipResponse" a E.value - -instance DecodeJson ChainIndexResponse where - decodeJson = defer \_ -> D.decode - $ D.sumType "ChainIndexResponse" - $ Map.fromFoldable - [ "DatumHashResponse" /\ D.content - (DatumHashResponse <$> (D.maybe D.value)) - , "ValidatorHashResponse" /\ D.content - (ValidatorHashResponse <$> (D.maybe D.value)) - , "MintingPolicyHashResponse" /\ D.content - (MintingPolicyHashResponse <$> (D.maybe D.value)) - , "StakeValidatorHashResponse" /\ D.content - (StakeValidatorHashResponse <$> (D.maybe D.value)) - , "TxOutRefResponse" /\ D.content - (TxOutRefResponse <$> (D.maybe D.value)) - , "RedeemerHashResponse" /\ D.content - (RedeemerHashResponse <$> (D.maybe D.value)) - , "TxIdResponse" /\ D.content (TxIdResponse <$> (D.maybe D.value)) - , "UtxoSetMembershipResponse" /\ D.content - (UtxoSetMembershipResponse <$> D.value) - , "UtxoSetAtResponse" /\ D.content (UtxoSetAtResponse <$> D.value) - , "UtxoSetWithCurrencyResponse" /\ D.content - (UtxoSetWithCurrencyResponse <$> D.value) - , "TxIdsResponse" /\ D.content (TxIdsResponse <$> D.value) - , "TxoSetAtResponse" /\ D.content (TxoSetAtResponse <$> D.value) - , "GetTipResponse" /\ D.content (GetTipResponse <$> D.value) - ] - -derive instance Generic ChainIndexResponse _ - --------------------------------------------------------------------------------- - -_DatumHashResponse :: Prism' ChainIndexResponse (Maybe String) -_DatumHashResponse = prism' DatumHashResponse case _ of - (DatumHashResponse a) -> Just a - _ -> Nothing - -_ValidatorHashResponse :: Prism' ChainIndexResponse (Maybe Validator) -_ValidatorHashResponse = prism' ValidatorHashResponse case _ of - (ValidatorHashResponse a) -> Just a - _ -> Nothing - -_MintingPolicyHashResponse :: Prism' ChainIndexResponse (Maybe MintingPolicy) -_MintingPolicyHashResponse = prism' MintingPolicyHashResponse case _ of - (MintingPolicyHashResponse a) -> Just a - _ -> Nothing - -_StakeValidatorHashResponse :: Prism' ChainIndexResponse (Maybe StakeValidator) -_StakeValidatorHashResponse = prism' StakeValidatorHashResponse case _ of - (StakeValidatorHashResponse a) -> Just a - _ -> Nothing - -_TxOutRefResponse :: Prism' ChainIndexResponse (Maybe ChainIndexTxOut) -_TxOutRefResponse = prism' TxOutRefResponse case _ of - (TxOutRefResponse a) -> Just a - _ -> Nothing - -_RedeemerHashResponse :: Prism' ChainIndexResponse (Maybe String) -_RedeemerHashResponse = prism' RedeemerHashResponse case _ of - (RedeemerHashResponse a) -> Just a - _ -> Nothing - -_TxIdResponse :: Prism' ChainIndexResponse (Maybe ChainIndexTx) -_TxIdResponse = prism' TxIdResponse case _ of - (TxIdResponse a) -> Just a - _ -> Nothing - -_UtxoSetMembershipResponse :: Prism' ChainIndexResponse IsUtxoResponse -_UtxoSetMembershipResponse = prism' UtxoSetMembershipResponse case _ of - (UtxoSetMembershipResponse a) -> Just a - _ -> Nothing - -_UtxoSetAtResponse :: Prism' ChainIndexResponse UtxosResponse -_UtxoSetAtResponse = prism' UtxoSetAtResponse case _ of - (UtxoSetAtResponse a) -> Just a - _ -> Nothing - -_UtxoSetWithCurrencyResponse :: Prism' ChainIndexResponse UtxosResponse -_UtxoSetWithCurrencyResponse = prism' UtxoSetWithCurrencyResponse case _ of - (UtxoSetWithCurrencyResponse a) -> Just a - _ -> Nothing - -_TxIdsResponse :: Prism' ChainIndexResponse (Array ChainIndexTx) -_TxIdsResponse = prism' TxIdsResponse case _ of - (TxIdsResponse a) -> Just a - _ -> Nothing - -_TxoSetAtResponse :: Prism' ChainIndexResponse TxosResponse -_TxoSetAtResponse = prism' TxoSetAtResponse case _ of - (TxoSetAtResponse a) -> Just a - _ -> Nothing - -_GetTipResponse :: Prism' ChainIndexResponse Tip -_GetTipResponse = prism' GetTipResponse case _ of - (GetTipResponse a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data PABReq - = AwaitSlotReq Slot - | AwaitTimeReq POSIXTime - | AwaitUtxoSpentReq TxOutRef - | AwaitUtxoProducedReq Address - | AwaitTxStatusChangeReq TxId - | AwaitTxOutStatusChangeReq TxOutRef - | CurrentSlotReq - | CurrentTimeReq - | GetSlotConfigReq - | OwnContractInstanceIdReq - | OwnPaymentPublicKeyHashReq - | ChainIndexQueryReq ChainIndexQuery - | BalanceTxReq UnbalancedTx - | WriteBalancedTxReq CardanoTx - | ExposeEndpointReq ActiveEndpoint - | PosixTimeRangeToContainedSlotRangeReq (Interval POSIXTime) - | YieldUnbalancedTxReq UnbalancedTx - -derive instance Eq PABReq - -instance Show PABReq where - show a = genericShow a - -instance EncodeJson PABReq where - encodeJson = defer \_ -> case _ of - AwaitSlotReq a -> E.encodeTagged "AwaitSlotReq" a E.value - AwaitTimeReq a -> E.encodeTagged "AwaitTimeReq" a E.value - AwaitUtxoSpentReq a -> E.encodeTagged "AwaitUtxoSpentReq" a E.value - AwaitUtxoProducedReq a -> E.encodeTagged "AwaitUtxoProducedReq" a E.value - AwaitTxStatusChangeReq a -> E.encodeTagged "AwaitTxStatusChangeReq" a - E.value - AwaitTxOutStatusChangeReq a -> E.encodeTagged "AwaitTxOutStatusChangeReq" a - E.value - CurrentSlotReq -> encodeJson { tag: "CurrentSlotReq", contents: jsonNull } - CurrentTimeReq -> encodeJson { tag: "CurrentTimeReq", contents: jsonNull } - GetSlotConfigReq -> encodeJson - { tag: "GetSlotConfigReq", contents: jsonNull } - OwnContractInstanceIdReq -> encodeJson - { tag: "OwnContractInstanceIdReq", contents: jsonNull } - OwnPaymentPublicKeyHashReq -> encodeJson - { tag: "OwnPaymentPublicKeyHashReq", contents: jsonNull } - ChainIndexQueryReq a -> E.encodeTagged "ChainIndexQueryReq" a E.value - BalanceTxReq a -> E.encodeTagged "BalanceTxReq" a E.value - WriteBalancedTxReq a -> E.encodeTagged "WriteBalancedTxReq" a E.value - ExposeEndpointReq a -> E.encodeTagged "ExposeEndpointReq" a E.value - PosixTimeRangeToContainedSlotRangeReq a -> E.encodeTagged - "PosixTimeRangeToContainedSlotRangeReq" - a - E.value - YieldUnbalancedTxReq a -> E.encodeTagged "YieldUnbalancedTxReq" a E.value - -instance DecodeJson PABReq where - decodeJson = defer \_ -> D.decode - $ D.sumType "PABReq" - $ Map.fromFoldable - [ "AwaitSlotReq" /\ D.content (AwaitSlotReq <$> D.value) - , "AwaitTimeReq" /\ D.content (AwaitTimeReq <$> D.value) - , "AwaitUtxoSpentReq" /\ D.content (AwaitUtxoSpentReq <$> D.value) - , "AwaitUtxoProducedReq" /\ D.content (AwaitUtxoProducedReq <$> D.value) - , "AwaitTxStatusChangeReq" /\ D.content - (AwaitTxStatusChangeReq <$> D.value) - , "AwaitTxOutStatusChangeReq" /\ D.content - (AwaitTxOutStatusChangeReq <$> D.value) - , "CurrentSlotReq" /\ pure CurrentSlotReq - , "CurrentTimeReq" /\ pure CurrentTimeReq - , "GetSlotConfigReq" /\ pure GetSlotConfigReq - , "OwnContractInstanceIdReq" /\ pure OwnContractInstanceIdReq - , "OwnPaymentPublicKeyHashReq" /\ pure OwnPaymentPublicKeyHashReq - , "ChainIndexQueryReq" /\ D.content (ChainIndexQueryReq <$> D.value) - , "BalanceTxReq" /\ D.content (BalanceTxReq <$> D.value) - , "WriteBalancedTxReq" /\ D.content (WriteBalancedTxReq <$> D.value) - , "ExposeEndpointReq" /\ D.content (ExposeEndpointReq <$> D.value) - , "PosixTimeRangeToContainedSlotRangeReq" /\ D.content - (PosixTimeRangeToContainedSlotRangeReq <$> D.value) - , "YieldUnbalancedTxReq" /\ D.content (YieldUnbalancedTxReq <$> D.value) - ] - -derive instance Generic PABReq _ - --------------------------------------------------------------------------------- - -_AwaitSlotReq :: Prism' PABReq Slot -_AwaitSlotReq = prism' AwaitSlotReq case _ of - (AwaitSlotReq a) -> Just a - _ -> Nothing - -_AwaitTimeReq :: Prism' PABReq POSIXTime -_AwaitTimeReq = prism' AwaitTimeReq case _ of - (AwaitTimeReq a) -> Just a - _ -> Nothing - -_AwaitUtxoSpentReq :: Prism' PABReq TxOutRef -_AwaitUtxoSpentReq = prism' AwaitUtxoSpentReq case _ of - (AwaitUtxoSpentReq a) -> Just a - _ -> Nothing - -_AwaitUtxoProducedReq :: Prism' PABReq Address -_AwaitUtxoProducedReq = prism' AwaitUtxoProducedReq case _ of - (AwaitUtxoProducedReq a) -> Just a - _ -> Nothing - -_AwaitTxStatusChangeReq :: Prism' PABReq TxId -_AwaitTxStatusChangeReq = prism' AwaitTxStatusChangeReq case _ of - (AwaitTxStatusChangeReq a) -> Just a - _ -> Nothing - -_AwaitTxOutStatusChangeReq :: Prism' PABReq TxOutRef -_AwaitTxOutStatusChangeReq = prism' AwaitTxOutStatusChangeReq case _ of - (AwaitTxOutStatusChangeReq a) -> Just a - _ -> Nothing - -_CurrentSlotReq :: Prism' PABReq Unit -_CurrentSlotReq = prism' (const CurrentSlotReq) case _ of - CurrentSlotReq -> Just unit - _ -> Nothing - -_CurrentTimeReq :: Prism' PABReq Unit -_CurrentTimeReq = prism' (const CurrentTimeReq) case _ of - CurrentTimeReq -> Just unit - _ -> Nothing - -_GetSlotConfigReq :: Prism' PABReq Unit -_GetSlotConfigReq = prism' (const GetSlotConfigReq) case _ of - GetSlotConfigReq -> Just unit - _ -> Nothing - -_OwnContractInstanceIdReq :: Prism' PABReq Unit -_OwnContractInstanceIdReq = prism' (const OwnContractInstanceIdReq) case _ of - OwnContractInstanceIdReq -> Just unit - _ -> Nothing - -_OwnPaymentPublicKeyHashReq :: Prism' PABReq Unit -_OwnPaymentPublicKeyHashReq = prism' (const OwnPaymentPublicKeyHashReq) - case _ of - OwnPaymentPublicKeyHashReq -> Just unit - _ -> Nothing - -_ChainIndexQueryReq :: Prism' PABReq ChainIndexQuery -_ChainIndexQueryReq = prism' ChainIndexQueryReq case _ of - (ChainIndexQueryReq a) -> Just a - _ -> Nothing - -_BalanceTxReq :: Prism' PABReq UnbalancedTx -_BalanceTxReq = prism' BalanceTxReq case _ of - (BalanceTxReq a) -> Just a - _ -> Nothing - -_WriteBalancedTxReq :: Prism' PABReq CardanoTx -_WriteBalancedTxReq = prism' WriteBalancedTxReq case _ of - (WriteBalancedTxReq a) -> Just a - _ -> Nothing - -_ExposeEndpointReq :: Prism' PABReq ActiveEndpoint -_ExposeEndpointReq = prism' ExposeEndpointReq case _ of - (ExposeEndpointReq a) -> Just a - _ -> Nothing - -_PosixTimeRangeToContainedSlotRangeReq :: Prism' PABReq (Interval POSIXTime) -_PosixTimeRangeToContainedSlotRangeReq = prism' - PosixTimeRangeToContainedSlotRangeReq - case _ of - (PosixTimeRangeToContainedSlotRangeReq a) -> Just a - _ -> Nothing - -_YieldUnbalancedTxReq :: Prism' PABReq UnbalancedTx -_YieldUnbalancedTxReq = prism' YieldUnbalancedTxReq case _ of - (YieldUnbalancedTxReq a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data PABResp - = AwaitSlotResp Slot - | AwaitTimeResp POSIXTime - | AwaitUtxoSpentResp ChainIndexTx - | AwaitUtxoProducedResp (NonEmptyList ChainIndexTx) - | AwaitTxStatusChangeResp TxId (RollbackState Unit) - | AwaitTxOutStatusChangeResp TxOutRef (RollbackState TxOutState) - | CurrentSlotResp Slot - | CurrentTimeResp POSIXTime - | GetSlotConfigResp SlotConfig - | OwnContractInstanceIdResp ContractInstanceId - | OwnPaymentPublicKeyHashResp PaymentPubKeyHash - | ChainIndexQueryResp ChainIndexResponse - | BalanceTxResp BalanceTxResponse - | WriteBalancedTxResp WriteBalancedTxResponse - | ExposeEndpointResp EndpointDescription (EndpointValue RawJson) - | PosixTimeRangeToContainedSlotRangeResp - (Either SlotConversionError (Interval Slot)) - | YieldUnbalancedTxResp Unit - -derive instance Eq PABResp - -instance Show PABResp where - show a = genericShow a - -instance EncodeJson PABResp where - encodeJson = defer \_ -> case _ of - AwaitSlotResp a -> E.encodeTagged "AwaitSlotResp" a E.value - AwaitTimeResp a -> E.encodeTagged "AwaitTimeResp" a E.value - AwaitUtxoSpentResp a -> E.encodeTagged "AwaitUtxoSpentResp" a E.value - AwaitUtxoProducedResp a -> E.encodeTagged "AwaitUtxoProducedResp" a E.value - AwaitTxStatusChangeResp a b -> E.encodeTagged "AwaitTxStatusChangeResp" - (a /\ b) - (E.tuple (E.value >/\< E.value)) - AwaitTxOutStatusChangeResp a b -> E.encodeTagged - "AwaitTxOutStatusChangeResp" - (a /\ b) - (E.tuple (E.value >/\< E.value)) - CurrentSlotResp a -> E.encodeTagged "CurrentSlotResp" a E.value - CurrentTimeResp a -> E.encodeTagged "CurrentTimeResp" a E.value - GetSlotConfigResp a -> E.encodeTagged "GetSlotConfigResp" a E.value - OwnContractInstanceIdResp a -> E.encodeTagged "OwnContractInstanceIdResp" a - E.value - OwnPaymentPublicKeyHashResp a -> E.encodeTagged - "OwnPaymentPublicKeyHashResp" - a - E.value - ChainIndexQueryResp a -> E.encodeTagged "ChainIndexQueryResp" a E.value - BalanceTxResp a -> E.encodeTagged "BalanceTxResp" a E.value - WriteBalancedTxResp a -> E.encodeTagged "WriteBalancedTxResp" a E.value - ExposeEndpointResp a b -> E.encodeTagged "ExposeEndpointResp" (a /\ b) - (E.tuple (E.value >/\< E.value)) - PosixTimeRangeToContainedSlotRangeResp a -> E.encodeTagged - "PosixTimeRangeToContainedSlotRangeResp" - a - (E.either E.value E.value) - YieldUnbalancedTxResp a -> E.encodeTagged "YieldUnbalancedTxResp" a E.unit - -instance DecodeJson PABResp where - decodeJson = defer \_ -> D.decode - $ D.sumType "PABResp" - $ Map.fromFoldable - [ "AwaitSlotResp" /\ D.content (AwaitSlotResp <$> D.value) - , "AwaitTimeResp" /\ D.content (AwaitTimeResp <$> D.value) - , "AwaitUtxoSpentResp" /\ D.content (AwaitUtxoSpentResp <$> D.value) - , "AwaitUtxoProducedResp" /\ D.content - (AwaitUtxoProducedResp <$> D.value) - , "AwaitTxStatusChangeResp" /\ D.content - (D.tuple $ AwaitTxStatusChangeResp D.value D.value) - , "AwaitTxOutStatusChangeResp" /\ D.content - (D.tuple $ AwaitTxOutStatusChangeResp D.value D.value) - , "CurrentSlotResp" /\ D.content (CurrentSlotResp <$> D.value) - , "CurrentTimeResp" /\ D.content (CurrentTimeResp <$> D.value) - , "GetSlotConfigResp" /\ D.content (GetSlotConfigResp <$> D.value) - , "OwnContractInstanceIdResp" /\ D.content - (OwnContractInstanceIdResp <$> D.value) - , "OwnPaymentPublicKeyHashResp" /\ D.content - (OwnPaymentPublicKeyHashResp <$> D.value) - , "ChainIndexQueryResp" /\ D.content (ChainIndexQueryResp <$> D.value) - , "BalanceTxResp" /\ D.content (BalanceTxResp <$> D.value) - , "WriteBalancedTxResp" /\ D.content (WriteBalancedTxResp <$> D.value) - , "ExposeEndpointResp" /\ D.content - (D.tuple $ ExposeEndpointResp D.value D.value) - , "PosixTimeRangeToContainedSlotRangeResp" /\ D.content - ( PosixTimeRangeToContainedSlotRangeResp <$> - (D.either D.value D.value) - ) - , "YieldUnbalancedTxResp" /\ D.content - (YieldUnbalancedTxResp <$> D.unit) - ] - -derive instance Generic PABResp _ - --------------------------------------------------------------------------------- - -_AwaitSlotResp :: Prism' PABResp Slot -_AwaitSlotResp = prism' AwaitSlotResp case _ of - (AwaitSlotResp a) -> Just a - _ -> Nothing - -_AwaitTimeResp :: Prism' PABResp POSIXTime -_AwaitTimeResp = prism' AwaitTimeResp case _ of - (AwaitTimeResp a) -> Just a - _ -> Nothing - -_AwaitUtxoSpentResp :: Prism' PABResp ChainIndexTx -_AwaitUtxoSpentResp = prism' AwaitUtxoSpentResp case _ of - (AwaitUtxoSpentResp a) -> Just a - _ -> Nothing - -_AwaitUtxoProducedResp :: Prism' PABResp (NonEmptyList ChainIndexTx) -_AwaitUtxoProducedResp = prism' AwaitUtxoProducedResp case _ of - (AwaitUtxoProducedResp a) -> Just a - _ -> Nothing - -_AwaitTxStatusChangeResp - :: Prism' PABResp { a :: TxId, b :: RollbackState Unit } -_AwaitTxStatusChangeResp = prism' (\{ a, b } -> (AwaitTxStatusChangeResp a b)) - case _ of - (AwaitTxStatusChangeResp a b) -> Just { a, b } - _ -> Nothing - -_AwaitTxOutStatusChangeResp - :: Prism' PABResp { a :: TxOutRef, b :: RollbackState TxOutState } -_AwaitTxOutStatusChangeResp = prism' - (\{ a, b } -> (AwaitTxOutStatusChangeResp a b)) - case _ of - (AwaitTxOutStatusChangeResp a b) -> Just { a, b } - _ -> Nothing - -_CurrentSlotResp :: Prism' PABResp Slot -_CurrentSlotResp = prism' CurrentSlotResp case _ of - (CurrentSlotResp a) -> Just a - _ -> Nothing - -_CurrentTimeResp :: Prism' PABResp POSIXTime -_CurrentTimeResp = prism' CurrentTimeResp case _ of - (CurrentTimeResp a) -> Just a - _ -> Nothing - -_GetSlotConfigResp :: Prism' PABResp SlotConfig -_GetSlotConfigResp = prism' GetSlotConfigResp case _ of - (GetSlotConfigResp a) -> Just a - _ -> Nothing - -_OwnContractInstanceIdResp :: Prism' PABResp ContractInstanceId -_OwnContractInstanceIdResp = prism' OwnContractInstanceIdResp case _ of - (OwnContractInstanceIdResp a) -> Just a - _ -> Nothing - -_OwnPaymentPublicKeyHashResp :: Prism' PABResp PaymentPubKeyHash -_OwnPaymentPublicKeyHashResp = prism' OwnPaymentPublicKeyHashResp case _ of - (OwnPaymentPublicKeyHashResp a) -> Just a - _ -> Nothing - -_ChainIndexQueryResp :: Prism' PABResp ChainIndexResponse -_ChainIndexQueryResp = prism' ChainIndexQueryResp case _ of - (ChainIndexQueryResp a) -> Just a - _ -> Nothing - -_BalanceTxResp :: Prism' PABResp BalanceTxResponse -_BalanceTxResp = prism' BalanceTxResp case _ of - (BalanceTxResp a) -> Just a - _ -> Nothing - -_WriteBalancedTxResp :: Prism' PABResp WriteBalancedTxResponse -_WriteBalancedTxResp = prism' WriteBalancedTxResp case _ of - (WriteBalancedTxResp a) -> Just a - _ -> Nothing - -_ExposeEndpointResp - :: Prism' PABResp { a :: EndpointDescription, b :: EndpointValue RawJson } -_ExposeEndpointResp = prism' (\{ a, b } -> (ExposeEndpointResp a b)) case _ of - (ExposeEndpointResp a b) -> Just { a, b } - _ -> Nothing - -_PosixTimeRangeToContainedSlotRangeResp - :: Prism' PABResp (Either SlotConversionError (Interval Slot)) -_PosixTimeRangeToContainedSlotRangeResp = prism' - PosixTimeRangeToContainedSlotRangeResp - case _ of - (PosixTimeRangeToContainedSlotRangeResp a) -> Just a - _ -> Nothing - -_YieldUnbalancedTxResp :: Prism' PABResp Unit -_YieldUnbalancedTxResp = prism' YieldUnbalancedTxResp case _ of - (YieldUnbalancedTxResp a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data WriteBalancedTxResponse - = WriteBalancedTxFailed WalletAPIError - | WriteBalancedTxSuccess CardanoTx - -derive instance Eq WriteBalancedTxResponse - -instance Show WriteBalancedTxResponse where - show a = genericShow a - -instance EncodeJson WriteBalancedTxResponse where - encodeJson = defer \_ -> case _ of - WriteBalancedTxFailed a -> E.encodeTagged "WriteBalancedTxFailed" a E.value - WriteBalancedTxSuccess a -> E.encodeTagged "WriteBalancedTxSuccess" a - E.value - -instance DecodeJson WriteBalancedTxResponse where - decodeJson = defer \_ -> D.decode - $ D.sumType "WriteBalancedTxResponse" - $ Map.fromFoldable - [ "WriteBalancedTxFailed" /\ D.content - (WriteBalancedTxFailed <$> D.value) - , "WriteBalancedTxSuccess" /\ D.content - (WriteBalancedTxSuccess <$> D.value) - ] - -derive instance Generic WriteBalancedTxResponse _ - --------------------------------------------------------------------------------- - -_WriteBalancedTxFailed :: Prism' WriteBalancedTxResponse WalletAPIError -_WriteBalancedTxFailed = prism' WriteBalancedTxFailed case _ of - (WriteBalancedTxFailed a) -> Just a - _ -> Nothing - -_WriteBalancedTxSuccess :: Prism' WriteBalancedTxResponse CardanoTx -_WriteBalancedTxSuccess = prism' WriteBalancedTxSuccess case _ of - (WriteBalancedTxSuccess a) -> Just a - _ -> Nothing diff --git a/marlowe-playground-client/generated/Plutus/Contract/Error.purs b/marlowe-playground-client/generated/Plutus/Contract/Error.purs deleted file mode 100644 index d47b679abb..0000000000 --- a/marlowe-playground-client/generated/Plutus/Contract/Error.purs +++ /dev/null @@ -1,211 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.Contract.Error where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.RawJson (RawJson) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Ledger.Constraints.OffChain (MkTxError) -import Plutus.Contract.Checkpoint (CheckpointError) -import Plutus.Contract.Effects (ChainIndexResponse) -import Type.Proxy (Proxy(Proxy)) -import Wallet.Emulator.Error (WalletAPIError) -import Wallet.Types (EndpointDescription, EndpointValue) - -newtype AssertionError = GenericAssertion { unAssertionError :: String } - -derive instance Eq AssertionError - -instance Show AssertionError where - show a = genericShow a - -instance EncodeJson AssertionError where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unAssertionError: E.value :: _ String } - ) - -instance DecodeJson AssertionError where - decodeJson = defer \_ -> D.decode $ - ( GenericAssertion <$> D.record "GenericAssertion" - { unAssertionError: D.value :: _ String } - ) - -derive instance Generic AssertionError _ - -derive instance Newtype AssertionError _ - --------------------------------------------------------------------------------- - -_GenericAssertion :: Iso' AssertionError { unAssertionError :: String } -_GenericAssertion = _Newtype - --------------------------------------------------------------------------------- - -data ContractError - = WalletContractError WalletAPIError - | ChainIndexContractError String ChainIndexResponse - | EmulatorAssertionContractError AssertionError - | ConstraintResolutionContractError MkTxError - | ResumableContractError MatchingError - | CCheckpointContractError CheckpointError - | EndpointDecodeContractError - { eeEndpointDescription :: EndpointDescription - , eeEndpointValue :: EndpointValue RawJson - , eeErrorMessage :: String - } - | OtherContractError String - -derive instance Eq ContractError - -instance EncodeJson ContractError where - encodeJson = defer \_ -> case _ of - WalletContractError a -> E.encodeTagged "WalletContractError" a E.value - ChainIndexContractError a b -> E.encodeTagged "ChainIndexContractError" - (a /\ b) - (E.tuple (E.value >/\< E.value)) - EmulatorAssertionContractError a -> E.encodeTagged - "EmulatorAssertionContractError" - a - E.value - ConstraintResolutionContractError a -> E.encodeTagged - "ConstraintResolutionContractError" - a - E.value - ResumableContractError a -> E.encodeTagged "ResumableContractError" a - E.value - CCheckpointContractError a -> E.encodeTagged "CCheckpointContractError" a - E.value - EndpointDecodeContractError - { eeEndpointDescription, eeEndpointValue, eeErrorMessage } -> encodeJson - { tag: "EndpointDecodeContractError" - , eeEndpointDescription: flip E.encode eeEndpointDescription E.value - , eeEndpointValue: flip E.encode eeEndpointValue E.value - , eeErrorMessage: flip E.encode eeErrorMessage E.value - } - OtherContractError a -> E.encodeTagged "OtherContractError" a E.value - -instance DecodeJson ContractError where - decodeJson = defer \_ -> D.decode - $ D.sumType "ContractError" - $ Map.fromFoldable - [ "WalletContractError" /\ D.content (WalletContractError <$> D.value) - , "ChainIndexContractError" /\ D.content - (D.tuple $ ChainIndexContractError D.value D.value) - , "EmulatorAssertionContractError" /\ D.content - (EmulatorAssertionContractError <$> D.value) - , "ConstraintResolutionContractError" /\ D.content - (ConstraintResolutionContractError <$> D.value) - , "ResumableContractError" /\ D.content - (ResumableContractError <$> D.value) - , "CCheckpointContractError" /\ D.content - (CCheckpointContractError <$> D.value) - , "EndpointDecodeContractError" /\ - ( EndpointDecodeContractError <$> D.object - "EndpointDecodeContractError" - { eeEndpointDescription: D.value :: _ EndpointDescription - , eeEndpointValue: D.value :: _ (EndpointValue RawJson) - , eeErrorMessage: D.value :: _ String - } - ) - , "OtherContractError" /\ D.content (OtherContractError <$> D.value) - ] - -derive instance Generic ContractError _ - --------------------------------------------------------------------------------- - -_WalletContractError :: Prism' ContractError WalletAPIError -_WalletContractError = prism' WalletContractError case _ of - (WalletContractError a) -> Just a - _ -> Nothing - -_ChainIndexContractError - :: Prism' ContractError { a :: String, b :: ChainIndexResponse } -_ChainIndexContractError = prism' (\{ a, b } -> (ChainIndexContractError a b)) - case _ of - (ChainIndexContractError a b) -> Just { a, b } - _ -> Nothing - -_EmulatorAssertionContractError :: Prism' ContractError AssertionError -_EmulatorAssertionContractError = prism' EmulatorAssertionContractError - case _ of - (EmulatorAssertionContractError a) -> Just a - _ -> Nothing - -_ConstraintResolutionContractError :: Prism' ContractError MkTxError -_ConstraintResolutionContractError = prism' ConstraintResolutionContractError - case _ of - (ConstraintResolutionContractError a) -> Just a - _ -> Nothing - -_ResumableContractError :: Prism' ContractError MatchingError -_ResumableContractError = prism' ResumableContractError case _ of - (ResumableContractError a) -> Just a - _ -> Nothing - -_CCheckpointContractError :: Prism' ContractError CheckpointError -_CCheckpointContractError = prism' CCheckpointContractError case _ of - (CCheckpointContractError a) -> Just a - _ -> Nothing - -_EndpointDecodeContractError - :: Prism' ContractError - { eeEndpointDescription :: EndpointDescription - , eeEndpointValue :: EndpointValue RawJson - , eeErrorMessage :: String - } -_EndpointDecodeContractError = prism' EndpointDecodeContractError case _ of - (EndpointDecodeContractError a) -> Just a - _ -> Nothing - -_OtherContractError :: Prism' ContractError String -_OtherContractError = prism' OtherContractError case _ of - (OtherContractError a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype MatchingError = WrongVariantError { unWrongVariantError :: String } - -derive instance Eq MatchingError - -instance Show MatchingError where - show a = genericShow a - -instance EncodeJson MatchingError where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unWrongVariantError: E.value :: _ String } - ) - -instance DecodeJson MatchingError where - decodeJson = defer \_ -> D.decode $ - ( WrongVariantError <$> D.record "WrongVariantError" - { unWrongVariantError: D.value :: _ String } - ) - -derive instance Generic MatchingError _ - -derive instance Newtype MatchingError _ - --------------------------------------------------------------------------------- - -_WrongVariantError :: Iso' MatchingError { unWrongVariantError :: String } -_WrongVariantError = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/Contract/Resumable.purs b/marlowe-playground-client/generated/Plutus/Contract/Resumable.purs deleted file mode 100644 index 2dc802a5a7..0000000000 --- a/marlowe-playground-client/generated/Plutus/Contract/Resumable.purs +++ /dev/null @@ -1,158 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.Contract.Resumable where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype IterationID = IterationID Int - -derive instance Eq IterationID - -derive instance Ord IterationID - -instance Show IterationID where - show a = genericShow a - -instance EncodeJson IterationID where - encodeJson = defer \_ -> E.encode $ unwrap >$< E.value - -instance DecodeJson IterationID where - decodeJson = defer \_ -> D.decode $ (IterationID <$> D.value) - -derive instance Generic IterationID _ - -derive instance Newtype IterationID _ - --------------------------------------------------------------------------------- - -_IterationID :: Iso' IterationID Int -_IterationID = _Newtype - --------------------------------------------------------------------------------- - -newtype Request a = Request - { rqID :: RequestID - , itID :: IterationID - , rqRequest :: a - } - -derive instance (Eq a) => Eq (Request a) - -instance (Show a) => Show (Request a) where - show a = genericShow a - -instance (EncodeJson a) => EncodeJson (Request a) where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { rqID: E.value :: _ RequestID - , itID: E.value :: _ IterationID - , rqRequest: E.value :: _ a - } - ) - -instance (DecodeJson a) => DecodeJson (Request a) where - decodeJson = defer \_ -> D.decode $ - ( Request <$> D.record "Request" - { rqID: D.value :: _ RequestID - , itID: D.value :: _ IterationID - , rqRequest: D.value :: _ a - } - ) - -derive instance Generic (Request a) _ - -derive instance Newtype (Request a) _ - --------------------------------------------------------------------------------- - -_Request - :: forall a - . Iso' (Request a) { rqID :: RequestID, itID :: IterationID, rqRequest :: a } -_Request = _Newtype - --------------------------------------------------------------------------------- - -newtype RequestID = RequestID Int - -derive instance Eq RequestID - -derive instance Ord RequestID - -instance Show RequestID where - show a = genericShow a - -instance EncodeJson RequestID where - encodeJson = defer \_ -> E.encode $ unwrap >$< E.value - -instance DecodeJson RequestID where - decodeJson = defer \_ -> D.decode $ (RequestID <$> D.value) - -derive instance Generic RequestID _ - -derive instance Newtype RequestID _ - --------------------------------------------------------------------------------- - -_RequestID :: Iso' RequestID Int -_RequestID = _Newtype - --------------------------------------------------------------------------------- - -newtype Response a = Response - { rspRqID :: RequestID - , rspItID :: IterationID - , rspResponse :: a - } - -derive instance (Eq a) => Eq (Response a) - -instance (Show a) => Show (Response a) where - show a = genericShow a - -instance (EncodeJson a) => EncodeJson (Response a) where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { rspRqID: E.value :: _ RequestID - , rspItID: E.value :: _ IterationID - , rspResponse: E.value :: _ a - } - ) - -instance (DecodeJson a) => DecodeJson (Response a) where - decodeJson = defer \_ -> D.decode $ - ( Response <$> D.record "Response" - { rspRqID: D.value :: _ RequestID - , rspItID: D.value :: _ IterationID - , rspResponse: D.value :: _ a - } - ) - -derive instance Generic (Response a) _ - -derive instance Newtype (Response a) _ - --------------------------------------------------------------------------------- - -_Response - :: forall a - . Iso' (Response a) - { rspRqID :: RequestID, rspItID :: IterationID, rspResponse :: a } -_Response = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/Trace/Emulator/Types.purs b/marlowe-playground-client/generated/Plutus/Trace/Emulator/Types.purs deleted file mode 100644 index f9b239aee3..0000000000 --- a/marlowe-playground-client/generated/Plutus/Trace/Emulator/Types.purs +++ /dev/null @@ -1,398 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.Trace.Emulator.Types where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.RawJson (RawJson) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.Contract.Resumable (Request, Response) -import Plutus.Trace.Scheduler (ThreadId) -import Type.Proxy (Proxy(Proxy)) -import Wallet.Emulator.Error (WalletAPIError) -import Wallet.Emulator.Wallet (Wallet) -import Wallet.Types - ( ContractInstanceId - , EndpointDescription - , Notification - , NotificationError - ) - -newtype ContractInstanceLog = ContractInstanceLog - { _cilMessage :: ContractInstanceMsg - , _cilId :: ContractInstanceId - , _cilTag :: ContractInstanceTag - } - -derive instance Eq ContractInstanceLog - -instance Show ContractInstanceLog where - show a = genericShow a - -instance EncodeJson ContractInstanceLog where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { _cilMessage: E.value :: _ ContractInstanceMsg - , _cilId: E.value :: _ ContractInstanceId - , _cilTag: E.value :: _ ContractInstanceTag - } - ) - -instance DecodeJson ContractInstanceLog where - decodeJson = defer \_ -> D.decode $ - ( ContractInstanceLog <$> D.record "ContractInstanceLog" - { _cilMessage: D.value :: _ ContractInstanceMsg - , _cilId: D.value :: _ ContractInstanceId - , _cilTag: D.value :: _ ContractInstanceTag - } - ) - -derive instance Generic ContractInstanceLog _ - -derive instance Newtype ContractInstanceLog _ - --------------------------------------------------------------------------------- - -_ContractInstanceLog - :: Iso' ContractInstanceLog - { _cilMessage :: ContractInstanceMsg - , _cilId :: ContractInstanceId - , _cilTag :: ContractInstanceTag - } -_ContractInstanceLog = _Newtype - -cilMessage :: Lens' ContractInstanceLog ContractInstanceMsg -cilMessage = _Newtype <<< prop (Proxy :: _ "_cilMessage") - -cilId :: Lens' ContractInstanceLog ContractInstanceId -cilId = _Newtype <<< prop (Proxy :: _ "_cilId") - -cilTag :: Lens' ContractInstanceLog ContractInstanceTag -cilTag = _Newtype <<< prop (Proxy :: _ "_cilTag") - --------------------------------------------------------------------------------- - -data ContractInstanceMsg - = Started - | StoppedNoError - | StoppedWithError String - | ReceiveEndpointCall EndpointDescription RawJson - | ReceiveEndpointCallSuccess - | ReceiveEndpointCallFailure NotificationError - | NoRequestsHandled - | HandledRequest (Response RawJson) - | CurrentRequests (Array (Request RawJson)) - | InstErr EmulatorRuntimeError - | ContractLog RawJson - | SendingNotification Notification - | NotificationSuccess Notification - | NotificationFailure NotificationError - | SendingContractState ThreadId - | Freezing - -derive instance Eq ContractInstanceMsg - -instance Show ContractInstanceMsg where - show a = genericShow a - -instance EncodeJson ContractInstanceMsg where - encodeJson = defer \_ -> case _ of - Started -> encodeJson { tag: "Started", contents: jsonNull } - StoppedNoError -> encodeJson { tag: "StoppedNoError", contents: jsonNull } - StoppedWithError a -> E.encodeTagged "StoppedWithError" a E.value - ReceiveEndpointCall a b -> E.encodeTagged "ReceiveEndpointCall" (a /\ b) - (E.tuple (E.value >/\< E.value)) - ReceiveEndpointCallSuccess -> encodeJson - { tag: "ReceiveEndpointCallSuccess", contents: jsonNull } - ReceiveEndpointCallFailure a -> E.encodeTagged "ReceiveEndpointCallFailure" - a - E.value - NoRequestsHandled -> encodeJson - { tag: "NoRequestsHandled", contents: jsonNull } - HandledRequest a -> E.encodeTagged "HandledRequest" a E.value - CurrentRequests a -> E.encodeTagged "CurrentRequests" a E.value - InstErr a -> E.encodeTagged "InstErr" a E.value - ContractLog a -> E.encodeTagged "ContractLog" a E.value - SendingNotification a -> E.encodeTagged "SendingNotification" a E.value - NotificationSuccess a -> E.encodeTagged "NotificationSuccess" a E.value - NotificationFailure a -> E.encodeTagged "NotificationFailure" a E.value - SendingContractState a -> E.encodeTagged "SendingContractState" a E.value - Freezing -> encodeJson { tag: "Freezing", contents: jsonNull } - -instance DecodeJson ContractInstanceMsg where - decodeJson = defer \_ -> D.decode - $ D.sumType "ContractInstanceMsg" - $ Map.fromFoldable - [ "Started" /\ pure Started - , "StoppedNoError" /\ pure StoppedNoError - , "StoppedWithError" /\ D.content (StoppedWithError <$> D.value) - , "ReceiveEndpointCall" /\ D.content - (D.tuple $ ReceiveEndpointCall D.value D.value) - , "ReceiveEndpointCallSuccess" /\ pure ReceiveEndpointCallSuccess - , "ReceiveEndpointCallFailure" /\ D.content - (ReceiveEndpointCallFailure <$> D.value) - , "NoRequestsHandled" /\ pure NoRequestsHandled - , "HandledRequest" /\ D.content (HandledRequest <$> D.value) - , "CurrentRequests" /\ D.content (CurrentRequests <$> D.value) - , "InstErr" /\ D.content (InstErr <$> D.value) - , "ContractLog" /\ D.content (ContractLog <$> D.value) - , "SendingNotification" /\ D.content (SendingNotification <$> D.value) - , "NotificationSuccess" /\ D.content (NotificationSuccess <$> D.value) - , "NotificationFailure" /\ D.content (NotificationFailure <$> D.value) - , "SendingContractState" /\ D.content (SendingContractState <$> D.value) - , "Freezing" /\ pure Freezing - ] - -derive instance Generic ContractInstanceMsg _ - --------------------------------------------------------------------------------- - -_Started :: Prism' ContractInstanceMsg Unit -_Started = prism' (const Started) case _ of - Started -> Just unit - _ -> Nothing - -_StoppedNoError :: Prism' ContractInstanceMsg Unit -_StoppedNoError = prism' (const StoppedNoError) case _ of - StoppedNoError -> Just unit - _ -> Nothing - -_StoppedWithError :: Prism' ContractInstanceMsg String -_StoppedWithError = prism' StoppedWithError case _ of - (StoppedWithError a) -> Just a - _ -> Nothing - -_ReceiveEndpointCall - :: Prism' ContractInstanceMsg { a :: EndpointDescription, b :: RawJson } -_ReceiveEndpointCall = prism' (\{ a, b } -> (ReceiveEndpointCall a b)) case _ of - (ReceiveEndpointCall a b) -> Just { a, b } - _ -> Nothing - -_ReceiveEndpointCallSuccess :: Prism' ContractInstanceMsg Unit -_ReceiveEndpointCallSuccess = prism' (const ReceiveEndpointCallSuccess) - case _ of - ReceiveEndpointCallSuccess -> Just unit - _ -> Nothing - -_ReceiveEndpointCallFailure :: Prism' ContractInstanceMsg NotificationError -_ReceiveEndpointCallFailure = prism' ReceiveEndpointCallFailure case _ of - (ReceiveEndpointCallFailure a) -> Just a - _ -> Nothing - -_NoRequestsHandled :: Prism' ContractInstanceMsg Unit -_NoRequestsHandled = prism' (const NoRequestsHandled) case _ of - NoRequestsHandled -> Just unit - _ -> Nothing - -_HandledRequest :: Prism' ContractInstanceMsg (Response RawJson) -_HandledRequest = prism' HandledRequest case _ of - (HandledRequest a) -> Just a - _ -> Nothing - -_CurrentRequests :: Prism' ContractInstanceMsg (Array (Request RawJson)) -_CurrentRequests = prism' CurrentRequests case _ of - (CurrentRequests a) -> Just a - _ -> Nothing - -_InstErr :: Prism' ContractInstanceMsg EmulatorRuntimeError -_InstErr = prism' InstErr case _ of - (InstErr a) -> Just a - _ -> Nothing - -_ContractLog :: Prism' ContractInstanceMsg RawJson -_ContractLog = prism' ContractLog case _ of - (ContractLog a) -> Just a - _ -> Nothing - -_SendingNotification :: Prism' ContractInstanceMsg Notification -_SendingNotification = prism' SendingNotification case _ of - (SendingNotification a) -> Just a - _ -> Nothing - -_NotificationSuccess :: Prism' ContractInstanceMsg Notification -_NotificationSuccess = prism' NotificationSuccess case _ of - (NotificationSuccess a) -> Just a - _ -> Nothing - -_NotificationFailure :: Prism' ContractInstanceMsg NotificationError -_NotificationFailure = prism' NotificationFailure case _ of - (NotificationFailure a) -> Just a - _ -> Nothing - -_SendingContractState :: Prism' ContractInstanceMsg ThreadId -_SendingContractState = prism' SendingContractState case _ of - (SendingContractState a) -> Just a - _ -> Nothing - -_Freezing :: Prism' ContractInstanceMsg Unit -_Freezing = prism' (const Freezing) case _ of - Freezing -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype ContractInstanceTag = ContractInstanceTag - { unContractInstanceTag :: String - , shortContractInstanceTag :: String - } - -derive instance Eq ContractInstanceTag - -instance Show ContractInstanceTag where - show a = genericShow a - -instance EncodeJson ContractInstanceTag where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unContractInstanceTag: E.value :: _ String - , shortContractInstanceTag: E.value :: _ String - } - ) - -instance DecodeJson ContractInstanceTag where - decodeJson = defer \_ -> D.decode $ - ( ContractInstanceTag <$> D.record "ContractInstanceTag" - { unContractInstanceTag: D.value :: _ String - , shortContractInstanceTag: D.value :: _ String - } - ) - -derive instance Generic ContractInstanceTag _ - -derive instance Newtype ContractInstanceTag _ - --------------------------------------------------------------------------------- - -_ContractInstanceTag - :: Iso' ContractInstanceTag - { unContractInstanceTag :: String, shortContractInstanceTag :: String } -_ContractInstanceTag = _Newtype - --------------------------------------------------------------------------------- - -data EmulatorRuntimeError - = ThreadIdNotFound ContractInstanceId - | InstanceIdNotFound Wallet - | EmulatorJSONDecodingError String RawJson - | GenericError String - | EmulatedWalletError WalletAPIError - | AssertionError String - -derive instance Eq EmulatorRuntimeError - -instance Show EmulatorRuntimeError where - show a = genericShow a - -instance EncodeJson EmulatorRuntimeError where - encodeJson = defer \_ -> case _ of - ThreadIdNotFound a -> E.encodeTagged "ThreadIdNotFound" a E.value - InstanceIdNotFound a -> E.encodeTagged "InstanceIdNotFound" a E.value - EmulatorJSONDecodingError a b -> E.encodeTagged "EmulatorJSONDecodingError" - (a /\ b) - (E.tuple (E.value >/\< E.value)) - GenericError a -> E.encodeTagged "GenericError" a E.value - EmulatedWalletError a -> E.encodeTagged "EmulatedWalletError" a E.value - AssertionError a -> E.encodeTagged "AssertionError" a E.value - -instance DecodeJson EmulatorRuntimeError where - decodeJson = defer \_ -> D.decode - $ D.sumType "EmulatorRuntimeError" - $ Map.fromFoldable - [ "ThreadIdNotFound" /\ D.content (ThreadIdNotFound <$> D.value) - , "InstanceIdNotFound" /\ D.content (InstanceIdNotFound <$> D.value) - , "EmulatorJSONDecodingError" /\ D.content - (D.tuple $ EmulatorJSONDecodingError D.value D.value) - , "GenericError" /\ D.content (GenericError <$> D.value) - , "EmulatedWalletError" /\ D.content (EmulatedWalletError <$> D.value) - , "AssertionError" /\ D.content (AssertionError <$> D.value) - ] - -derive instance Generic EmulatorRuntimeError _ - --------------------------------------------------------------------------------- - -_ThreadIdNotFound :: Prism' EmulatorRuntimeError ContractInstanceId -_ThreadIdNotFound = prism' ThreadIdNotFound case _ of - (ThreadIdNotFound a) -> Just a - _ -> Nothing - -_InstanceIdNotFound :: Prism' EmulatorRuntimeError Wallet -_InstanceIdNotFound = prism' InstanceIdNotFound case _ of - (InstanceIdNotFound a) -> Just a - _ -> Nothing - -_EmulatorJSONDecodingError - :: Prism' EmulatorRuntimeError { a :: String, b :: RawJson } -_EmulatorJSONDecodingError = prism' - (\{ a, b } -> (EmulatorJSONDecodingError a b)) - case _ of - (EmulatorJSONDecodingError a b) -> Just { a, b } - _ -> Nothing - -_GenericError :: Prism' EmulatorRuntimeError String -_GenericError = prism' GenericError case _ of - (GenericError a) -> Just a - _ -> Nothing - -_EmulatedWalletError :: Prism' EmulatorRuntimeError WalletAPIError -_EmulatedWalletError = prism' EmulatedWalletError case _ of - (EmulatedWalletError a) -> Just a - _ -> Nothing - -_AssertionError :: Prism' EmulatorRuntimeError String -_AssertionError = prism' AssertionError case _ of - (AssertionError a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data UserThreadMsg - = UserThreadErr EmulatorRuntimeError - | UserLog String - -derive instance Eq UserThreadMsg - -instance Show UserThreadMsg where - show a = genericShow a - -instance EncodeJson UserThreadMsg where - encodeJson = defer \_ -> case _ of - UserThreadErr a -> E.encodeTagged "UserThreadErr" a E.value - UserLog a -> E.encodeTagged "UserLog" a E.value - -instance DecodeJson UserThreadMsg where - decodeJson = defer \_ -> D.decode - $ D.sumType "UserThreadMsg" - $ Map.fromFoldable - [ "UserThreadErr" /\ D.content (UserThreadErr <$> D.value) - , "UserLog" /\ D.content (UserLog <$> D.value) - ] - -derive instance Generic UserThreadMsg _ - --------------------------------------------------------------------------------- - -_UserThreadErr :: Prism' UserThreadMsg EmulatorRuntimeError -_UserThreadErr = prism' UserThreadErr case _ of - (UserThreadErr a) -> Just a - _ -> Nothing - -_UserLog :: Prism' UserThreadMsg String -_UserLog = prism' UserLog case _ of - (UserLog a) -> Just a - _ -> Nothing diff --git a/marlowe-playground-client/generated/Plutus/Trace/Scheduler.purs b/marlowe-playground-client/generated/Plutus/Trace/Scheduler.purs deleted file mode 100644 index af44eedae6..0000000000 --- a/marlowe-playground-client/generated/Plutus/Trace/Scheduler.purs +++ /dev/null @@ -1,252 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.Trace.Scheduler where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Bounded.Generic (genericBottom, genericTop) -import Data.Enum (class Enum) -import Data.Enum.Generic (genericPred, genericSucc) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.Trace.Tag (Tag) -import Type.Proxy (Proxy(Proxy)) - -data Priority - = Normal - | Sleeping - | Frozen - -derive instance Eq Priority - -derive instance Ord Priority - -instance Show Priority where - show a = genericShow a - -instance EncodeJson Priority where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson Priority where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic Priority _ - -instance Enum Priority where - succ = genericSucc - pred = genericPred - -instance Bounded Priority where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_Normal :: Prism' Priority Unit -_Normal = prism' (const Normal) case _ of - Normal -> Just unit - _ -> Nothing - -_Sleeping :: Prism' Priority Unit -_Sleeping = prism' (const Sleeping) case _ of - Sleeping -> Just unit - _ -> Nothing - -_Frozen :: Prism' Priority Unit -_Frozen = prism' (const Frozen) case _ of - Frozen -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype SchedulerLog = SchedulerLog - { slEvent :: ThreadEvent - , slThread :: ThreadId - , slTag :: Tag - , slPrio :: Priority - } - -derive instance Eq SchedulerLog - -instance Show SchedulerLog where - show a = genericShow a - -instance EncodeJson SchedulerLog where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { slEvent: E.value :: _ ThreadEvent - , slThread: E.value :: _ ThreadId - , slTag: E.value :: _ Tag - , slPrio: E.value :: _ Priority - } - ) - -instance DecodeJson SchedulerLog where - decodeJson = defer \_ -> D.decode $ - ( SchedulerLog <$> D.record "SchedulerLog" - { slEvent: D.value :: _ ThreadEvent - , slThread: D.value :: _ ThreadId - , slTag: D.value :: _ Tag - , slPrio: D.value :: _ Priority - } - ) - -derive instance Generic SchedulerLog _ - -derive instance Newtype SchedulerLog _ - --------------------------------------------------------------------------------- - -_SchedulerLog - :: Iso' SchedulerLog - { slEvent :: ThreadEvent - , slThread :: ThreadId - , slTag :: Tag - , slPrio :: Priority - } -_SchedulerLog = _Newtype - --------------------------------------------------------------------------------- - -data StopReason - = ThreadDone - | ThreadExit - -derive instance Eq StopReason - -derive instance Ord StopReason - -instance Show StopReason where - show a = genericShow a - -instance EncodeJson StopReason where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson StopReason where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic StopReason _ - -instance Enum StopReason where - succ = genericSucc - pred = genericPred - -instance Bounded StopReason where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_ThreadDone :: Prism' StopReason Unit -_ThreadDone = prism' (const ThreadDone) case _ of - ThreadDone -> Just unit - _ -> Nothing - -_ThreadExit :: Prism' StopReason Unit -_ThreadExit = prism' (const ThreadExit) case _ of - ThreadExit -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -data ThreadEvent - = Stopped StopReason - | Resumed - | Suspended - | Started - | Thawed - -derive instance Eq ThreadEvent - -instance Show ThreadEvent where - show a = genericShow a - -instance EncodeJson ThreadEvent where - encodeJson = defer \_ -> case _ of - Stopped a -> E.encodeTagged "Stopped" a E.value - Resumed -> encodeJson { tag: "Resumed", contents: jsonNull } - Suspended -> encodeJson { tag: "Suspended", contents: jsonNull } - Started -> encodeJson { tag: "Started", contents: jsonNull } - Thawed -> encodeJson { tag: "Thawed", contents: jsonNull } - -instance DecodeJson ThreadEvent where - decodeJson = defer \_ -> D.decode - $ D.sumType "ThreadEvent" - $ Map.fromFoldable - [ "Stopped" /\ D.content (Stopped <$> D.value) - , "Resumed" /\ pure Resumed - , "Suspended" /\ pure Suspended - , "Started" /\ pure Started - , "Thawed" /\ pure Thawed - ] - -derive instance Generic ThreadEvent _ - --------------------------------------------------------------------------------- - -_Stopped :: Prism' ThreadEvent StopReason -_Stopped = prism' Stopped case _ of - (Stopped a) -> Just a - _ -> Nothing - -_Resumed :: Prism' ThreadEvent Unit -_Resumed = prism' (const Resumed) case _ of - Resumed -> Just unit - _ -> Nothing - -_Suspended :: Prism' ThreadEvent Unit -_Suspended = prism' (const Suspended) case _ of - Suspended -> Just unit - _ -> Nothing - -_Started :: Prism' ThreadEvent Unit -_Started = prism' (const Started) case _ of - Started -> Just unit - _ -> Nothing - -_Thawed :: Prism' ThreadEvent Unit -_Thawed = prism' (const Thawed) case _ of - Thawed -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype ThreadId = ThreadId { unThreadId :: Int } - -derive instance Eq ThreadId - -instance Show ThreadId where - show a = genericShow a - -instance EncodeJson ThreadId where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unThreadId: E.value :: _ Int } - ) - -instance DecodeJson ThreadId where - decodeJson = defer \_ -> D.decode $ - (ThreadId <$> D.record "ThreadId" { unThreadId: D.value :: _ Int }) - -derive instance Generic ThreadId _ - -derive instance Newtype ThreadId _ - --------------------------------------------------------------------------------- - -_ThreadId :: Iso' ThreadId { unThreadId :: Int } -_ThreadId = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/Trace/Tag.purs b/marlowe-playground-client/generated/Plutus/Trace/Tag.purs deleted file mode 100644 index 28233080be..0000000000 --- a/marlowe-playground-client/generated/Plutus/Trace/Tag.purs +++ /dev/null @@ -1,49 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.Trace.Tag where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype Tag = Tag { unTag :: String } - -derive instance Eq Tag - -instance Show Tag where - show a = genericShow a - -instance EncodeJson Tag where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unTag: E.value :: _ String } - ) - -instance DecodeJson Tag where - decodeJson = defer \_ -> D.decode $ - (Tag <$> D.record "Tag" { unTag: D.value :: _ String }) - -derive instance Generic Tag _ - -derive instance Newtype Tag _ - --------------------------------------------------------------------------------- - -_Tag :: Iso' Tag { unTag :: String } -_Tag = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/V1/Ledger/Ada.purs b/marlowe-playground-client/generated/Plutus/V1/Ledger/Ada.purs deleted file mode 100644 index b608c13c0c..0000000000 --- a/marlowe-playground-client/generated/Plutus/V1/Ledger/Ada.purs +++ /dev/null @@ -1,50 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.V1.Ledger.Ada where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype Ada = Lovelace { getLovelace :: BigInt } - -derive instance Eq Ada - -instance Show Ada where - show a = genericShow a - -instance EncodeJson Ada where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getLovelace: E.value :: _ BigInt } - ) - -instance DecodeJson Ada where - decodeJson = defer \_ -> D.decode $ - (Lovelace <$> D.record "Lovelace" { getLovelace: D.value :: _ BigInt }) - -derive instance Generic Ada _ - -derive instance Newtype Ada _ - --------------------------------------------------------------------------------- - -_Lovelace :: Iso' Ada { getLovelace :: BigInt } -_Lovelace = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/V1/Ledger/Address.purs b/marlowe-playground-client/generated/Plutus/V1/Ledger/Address.purs deleted file mode 100644 index 12495b01f2..0000000000 --- a/marlowe-playground-client/generated/Plutus/V1/Ledger/Address.purs +++ /dev/null @@ -1,67 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.V1.Ledger.Address where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Credential (Credential, StakingCredential) -import Type.Proxy (Proxy(Proxy)) - -newtype Address = Address - { addressCredential :: Credential - , addressStakingCredential :: Maybe StakingCredential - } - -derive instance Eq Address - -derive instance Ord Address - -instance Show Address where - show a = genericShow a - -instance EncodeJson Address where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { addressCredential: E.value :: _ Credential - , addressStakingCredential: - (E.maybe E.value) :: _ (Maybe StakingCredential) - } - ) - -instance DecodeJson Address where - decodeJson = defer \_ -> D.decode $ - ( Address <$> D.record "Address" - { addressCredential: D.value :: _ Credential - , addressStakingCredential: - (D.maybe D.value) :: _ (Maybe StakingCredential) - } - ) - -derive instance Generic Address _ - -derive instance Newtype Address _ - --------------------------------------------------------------------------------- - -_Address - :: Iso' Address - { addressCredential :: Credential - , addressStakingCredential :: Maybe StakingCredential - } -_Address = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/V1/Ledger/Credential.purs b/marlowe-playground-client/generated/Plutus/V1/Ledger/Credential.purs deleted file mode 100644 index 9036b9852c..0000000000 --- a/marlowe-playground-client/generated/Plutus/V1/Ledger/Credential.purs +++ /dev/null @@ -1,106 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.V1.Ledger.Credential where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Crypto (PubKeyHash) -import Type.Proxy (Proxy(Proxy)) - -data Credential - = PubKeyCredential PubKeyHash - | ScriptCredential String - -derive instance Eq Credential - -derive instance Ord Credential - -instance Show Credential where - show a = genericShow a - -instance EncodeJson Credential where - encodeJson = defer \_ -> case _ of - PubKeyCredential a -> E.encodeTagged "PubKeyCredential" a E.value - ScriptCredential a -> E.encodeTagged "ScriptCredential" a E.value - -instance DecodeJson Credential where - decodeJson = defer \_ -> D.decode - $ D.sumType "Credential" - $ Map.fromFoldable - [ "PubKeyCredential" /\ D.content (PubKeyCredential <$> D.value) - , "ScriptCredential" /\ D.content (ScriptCredential <$> D.value) - ] - -derive instance Generic Credential _ - --------------------------------------------------------------------------------- - -_PubKeyCredential :: Prism' Credential PubKeyHash -_PubKeyCredential = prism' PubKeyCredential case _ of - (PubKeyCredential a) -> Just a - _ -> Nothing - -_ScriptCredential :: Prism' Credential String -_ScriptCredential = prism' ScriptCredential case _ of - (ScriptCredential a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data StakingCredential - = StakingHash Credential - | StakingPtr BigInt BigInt BigInt - -derive instance Eq StakingCredential - -derive instance Ord StakingCredential - -instance Show StakingCredential where - show a = genericShow a - -instance EncodeJson StakingCredential where - encodeJson = defer \_ -> case _ of - StakingHash a -> E.encodeTagged "StakingHash" a E.value - StakingPtr a b c -> E.encodeTagged "StakingPtr" (a /\ b /\ c) - (E.tuple (E.value >/\< E.value >/\< E.value)) - -instance DecodeJson StakingCredential where - decodeJson = defer \_ -> D.decode - $ D.sumType "StakingCredential" - $ Map.fromFoldable - [ "StakingHash" /\ D.content (StakingHash <$> D.value) - , "StakingPtr" /\ D.content - (D.tuple $ StakingPtr D.value D.value D.value) - ] - -derive instance Generic StakingCredential _ - --------------------------------------------------------------------------------- - -_StakingHash :: Prism' StakingCredential Credential -_StakingHash = prism' StakingHash case _ of - (StakingHash a) -> Just a - _ -> Nothing - -_StakingPtr - :: Prism' StakingCredential { a :: BigInt, b :: BigInt, c :: BigInt } -_StakingPtr = prism' (\{ a, b, c } -> (StakingPtr a b c)) case _ of - (StakingPtr a b c) -> Just { a, b, c } - _ -> Nothing diff --git a/marlowe-playground-client/generated/Plutus/V1/Ledger/Crypto.purs b/marlowe-playground-client/generated/Plutus/V1/Ledger/Crypto.purs deleted file mode 100644 index c39900fd41..0000000000 --- a/marlowe-playground-client/generated/Plutus/V1/Ledger/Crypto.purs +++ /dev/null @@ -1,113 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.V1.Ledger.Crypto where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype PubKey = PubKey { getPubKey :: String } - -derive instance Eq PubKey - -derive instance Ord PubKey - -instance Show PubKey where - show a = genericShow a - -instance EncodeJson PubKey where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getPubKey: E.value :: _ String } - ) - -instance DecodeJson PubKey where - decodeJson = defer \_ -> D.decode $ - (PubKey <$> D.record "PubKey" { getPubKey: D.value :: _ String }) - -derive instance Generic PubKey _ - -derive instance Newtype PubKey _ - --------------------------------------------------------------------------------- - -_PubKey :: Iso' PubKey { getPubKey :: String } -_PubKey = _Newtype - --------------------------------------------------------------------------------- - -newtype PubKeyHash = PubKeyHash { getPubKeyHash :: String } - -derive instance Eq PubKeyHash - -derive instance Ord PubKeyHash - -instance Show PubKeyHash where - show a = genericShow a - -instance EncodeJson PubKeyHash where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getPubKeyHash: E.value :: _ String } - ) - -instance DecodeJson PubKeyHash where - decodeJson = defer \_ -> D.decode $ - ( PubKeyHash <$> D.record "PubKeyHash" - { getPubKeyHash: D.value :: _ String } - ) - -derive instance Generic PubKeyHash _ - -derive instance Newtype PubKeyHash _ - --------------------------------------------------------------------------------- - -_PubKeyHash :: Iso' PubKeyHash { getPubKeyHash :: String } -_PubKeyHash = _Newtype - --------------------------------------------------------------------------------- - -newtype Signature = Signature { getSignature :: String } - -instance Show Signature where - show a = genericShow a - -derive instance Eq Signature - -derive instance Ord Signature - -instance EncodeJson Signature where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getSignature: E.value :: _ String } - ) - -instance DecodeJson Signature where - decodeJson = defer \_ -> D.decode $ - (Signature <$> D.record "Signature" { getSignature: D.value :: _ String }) - -derive instance Generic Signature _ - -derive instance Newtype Signature _ - --------------------------------------------------------------------------------- - -_Signature :: Iso' Signature { getSignature :: String } -_Signature = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/V1/Ledger/DCert.purs b/marlowe-playground-client/generated/Plutus/V1/Ledger/DCert.purs deleted file mode 100644 index 3dfc0b79bd..0000000000 --- a/marlowe-playground-client/generated/Plutus/V1/Ledger/DCert.purs +++ /dev/null @@ -1,110 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.V1.Ledger.DCert where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Credential (StakingCredential) -import Plutus.V1.Ledger.Crypto (PubKeyHash) -import Type.Proxy (Proxy(Proxy)) - -data DCert - = DCertDelegRegKey StakingCredential - | DCertDelegDeRegKey StakingCredential - | DCertDelegDelegate StakingCredential PubKeyHash - | DCertPoolRegister PubKeyHash PubKeyHash - | DCertPoolRetire PubKeyHash BigInt - | DCertGenesis - | DCertMir - -derive instance Eq DCert - -derive instance Ord DCert - -instance Show DCert where - show a = genericShow a - -instance EncodeJson DCert where - encodeJson = defer \_ -> case _ of - DCertDelegRegKey a -> E.encodeTagged "DCertDelegRegKey" a E.value - DCertDelegDeRegKey a -> E.encodeTagged "DCertDelegDeRegKey" a E.value - DCertDelegDelegate a b -> E.encodeTagged "DCertDelegDelegate" (a /\ b) - (E.tuple (E.value >/\< E.value)) - DCertPoolRegister a b -> E.encodeTagged "DCertPoolRegister" (a /\ b) - (E.tuple (E.value >/\< E.value)) - DCertPoolRetire a b -> E.encodeTagged "DCertPoolRetire" (a /\ b) - (E.tuple (E.value >/\< E.value)) - DCertGenesis -> encodeJson { tag: "DCertGenesis", contents: jsonNull } - DCertMir -> encodeJson { tag: "DCertMir", contents: jsonNull } - -instance DecodeJson DCert where - decodeJson = defer \_ -> D.decode - $ D.sumType "DCert" - $ Map.fromFoldable - [ "DCertDelegRegKey" /\ D.content (DCertDelegRegKey <$> D.value) - , "DCertDelegDeRegKey" /\ D.content (DCertDelegDeRegKey <$> D.value) - , "DCertDelegDelegate" /\ D.content - (D.tuple $ DCertDelegDelegate D.value D.value) - , "DCertPoolRegister" /\ D.content - (D.tuple $ DCertPoolRegister D.value D.value) - , "DCertPoolRetire" /\ D.content - (D.tuple $ DCertPoolRetire D.value D.value) - , "DCertGenesis" /\ pure DCertGenesis - , "DCertMir" /\ pure DCertMir - ] - -derive instance Generic DCert _ - --------------------------------------------------------------------------------- - -_DCertDelegRegKey :: Prism' DCert StakingCredential -_DCertDelegRegKey = prism' DCertDelegRegKey case _ of - (DCertDelegRegKey a) -> Just a - _ -> Nothing - -_DCertDelegDeRegKey :: Prism' DCert StakingCredential -_DCertDelegDeRegKey = prism' DCertDelegDeRegKey case _ of - (DCertDelegDeRegKey a) -> Just a - _ -> Nothing - -_DCertDelegDelegate :: Prism' DCert { a :: StakingCredential, b :: PubKeyHash } -_DCertDelegDelegate = prism' (\{ a, b } -> (DCertDelegDelegate a b)) case _ of - (DCertDelegDelegate a b) -> Just { a, b } - _ -> Nothing - -_DCertPoolRegister :: Prism' DCert { a :: PubKeyHash, b :: PubKeyHash } -_DCertPoolRegister = prism' (\{ a, b } -> (DCertPoolRegister a b)) case _ of - (DCertPoolRegister a b) -> Just { a, b } - _ -> Nothing - -_DCertPoolRetire :: Prism' DCert { a :: PubKeyHash, b :: BigInt } -_DCertPoolRetire = prism' (\{ a, b } -> (DCertPoolRetire a b)) case _ of - (DCertPoolRetire a b) -> Just { a, b } - _ -> Nothing - -_DCertGenesis :: Prism' DCert Unit -_DCertGenesis = prism' (const DCertGenesis) case _ of - DCertGenesis -> Just unit - _ -> Nothing - -_DCertMir :: Prism' DCert Unit -_DCertMir = prism' (const DCertMir) case _ of - DCertMir -> Just unit - _ -> Nothing diff --git a/marlowe-playground-client/generated/Plutus/V1/Ledger/Interval.purs b/marlowe-playground-client/generated/Plutus/V1/Ledger/Interval.purs deleted file mode 100644 index cb7a125086..0000000000 --- a/marlowe-playground-client/generated/Plutus/V1/Ledger/Interval.purs +++ /dev/null @@ -1,164 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.V1.Ledger.Interval where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -data Extended a - = NegInf - | Finite a - | PosInf - -derive instance Functor Extended - -derive instance (Eq a) => Eq (Extended a) - -instance (Show a) => Show (Extended a) where - show a = genericShow a - -instance (EncodeJson a) => EncodeJson (Extended a) where - encodeJson = defer \_ -> case _ of - NegInf -> encodeJson { tag: "NegInf", contents: jsonNull } - Finite a -> E.encodeTagged "Finite" a E.value - PosInf -> encodeJson { tag: "PosInf", contents: jsonNull } - -instance (DecodeJson a) => DecodeJson (Extended a) where - decodeJson = defer \_ -> D.decode - $ D.sumType "Extended" - $ Map.fromFoldable - [ "NegInf" /\ pure NegInf - , "Finite" /\ D.content (Finite <$> D.value) - , "PosInf" /\ pure PosInf - ] - -derive instance Generic (Extended a) _ - --------------------------------------------------------------------------------- - -_NegInf :: forall a. Prism' (Extended a) Unit -_NegInf = prism' (const NegInf) case _ of - NegInf -> Just unit - _ -> Nothing - -_Finite :: forall a. Prism' (Extended a) a -_Finite = prism' Finite case _ of - (Finite a) -> Just a - _ -> Nothing - -_PosInf :: forall a. Prism' (Extended a) Unit -_PosInf = prism' (const PosInf) case _ of - PosInf -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype Interval a = Interval - { ivFrom :: LowerBound a - , ivTo :: UpperBound a - } - -derive instance Functor Interval - -derive instance (Eq a) => Eq (Interval a) - -instance (Show a) => Show (Interval a) where - show a = genericShow a - -instance (EncodeJson a) => EncodeJson (Interval a) where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { ivFrom: E.value :: _ (LowerBound a) - , ivTo: E.value :: _ (UpperBound a) - } - ) - -instance (DecodeJson a) => DecodeJson (Interval a) where - decodeJson = defer \_ -> D.decode $ - ( Interval <$> D.record "Interval" - { ivFrom: D.value :: _ (LowerBound a) - , ivTo: D.value :: _ (UpperBound a) - } - ) - -derive instance Generic (Interval a) _ - -derive instance Newtype (Interval a) _ - --------------------------------------------------------------------------------- - -_Interval - :: forall a - . Iso' (Interval a) { ivFrom :: LowerBound a, ivTo :: UpperBound a } -_Interval = _Newtype - --------------------------------------------------------------------------------- - -data LowerBound a = LowerBound (Extended a) Boolean - -derive instance Functor LowerBound - -derive instance (Eq a) => Eq (LowerBound a) - -instance (Show a) => Show (LowerBound a) where - show a = genericShow a - -instance (EncodeJson a) => EncodeJson (LowerBound a) where - encodeJson = defer \_ -> E.encode $ (case _ of LowerBound a b -> (a /\ b)) >$< - (E.tuple (E.value >/\< E.value)) - -instance (DecodeJson a) => DecodeJson (LowerBound a) where - decodeJson = defer \_ -> D.decode $ - (D.tuple $ LowerBound D.value D.value) - -derive instance Generic (LowerBound a) _ - --------------------------------------------------------------------------------- - -_LowerBound :: forall a. Iso' (LowerBound a) { a :: Extended a, b :: Boolean } -_LowerBound = iso (\(LowerBound a b) -> { a, b }) - (\{ a, b } -> (LowerBound a b)) - --------------------------------------------------------------------------------- - -data UpperBound a = UpperBound (Extended a) Boolean - -derive instance Functor UpperBound - -derive instance (Eq a) => Eq (UpperBound a) - -instance (Show a) => Show (UpperBound a) where - show a = genericShow a - -instance (EncodeJson a) => EncodeJson (UpperBound a) where - encodeJson = defer \_ -> E.encode $ (case _ of UpperBound a b -> (a /\ b)) >$< - (E.tuple (E.value >/\< E.value)) - -instance (DecodeJson a) => DecodeJson (UpperBound a) where - decodeJson = defer \_ -> D.decode $ - (D.tuple $ UpperBound D.value D.value) - -derive instance Generic (UpperBound a) _ - --------------------------------------------------------------------------------- - -_UpperBound :: forall a. Iso' (UpperBound a) { a :: Extended a, b :: Boolean } -_UpperBound = iso (\(UpperBound a b) -> { a, b }) - (\{ a, b } -> (UpperBound a b)) diff --git a/marlowe-playground-client/generated/Plutus/V1/Ledger/Scripts.purs b/marlowe-playground-client/generated/Plutus/V1/Ledger/Scripts.purs deleted file mode 100644 index de49d207b7..0000000000 --- a/marlowe-playground-client/generated/Plutus/V1/Ledger/Scripts.purs +++ /dev/null @@ -1,183 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.V1.Ledger.Scripts where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype DatumHash = DatumHash String - -derive instance Eq DatumHash - -derive instance Ord DatumHash - -instance Show DatumHash where - show a = genericShow a - -instance EncodeJson DatumHash where - encodeJson = defer \_ -> E.encode $ unwrap >$< E.value - -instance DecodeJson DatumHash where - decodeJson = defer \_ -> D.decode $ (DatumHash <$> D.value) - -derive instance Generic DatumHash _ - -derive instance Newtype DatumHash _ - --------------------------------------------------------------------------------- - -_DatumHash :: Iso' DatumHash String -_DatumHash = _Newtype - --------------------------------------------------------------------------------- - -newtype MintingPolicy = MintingPolicy { getMintingPolicy :: String } - -instance Show MintingPolicy where - show a = genericShow a - -derive instance Eq MintingPolicy - -derive instance Ord MintingPolicy - -instance EncodeJson MintingPolicy where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getMintingPolicy: E.value :: _ String } - ) - -instance DecodeJson MintingPolicy where - decodeJson = defer \_ -> D.decode $ - ( MintingPolicy <$> D.record "MintingPolicy" - { getMintingPolicy: D.value :: _ String } - ) - -derive instance Generic MintingPolicy _ - -derive instance Newtype MintingPolicy _ - --------------------------------------------------------------------------------- - -_MintingPolicy :: Iso' MintingPolicy { getMintingPolicy :: String } -_MintingPolicy = _Newtype - --------------------------------------------------------------------------------- - -data ScriptError - = EvaluationError (Array String) String - | EvaluationException String String - -derive instance Eq ScriptError - -instance Show ScriptError where - show a = genericShow a - -instance EncodeJson ScriptError where - encodeJson = defer \_ -> case _ of - EvaluationError a b -> E.encodeTagged "EvaluationError" (a /\ b) - (E.tuple (E.value >/\< E.value)) - EvaluationException a b -> E.encodeTagged "EvaluationException" (a /\ b) - (E.tuple (E.value >/\< E.value)) - -instance DecodeJson ScriptError where - decodeJson = defer \_ -> D.decode - $ D.sumType "ScriptError" - $ Map.fromFoldable - [ "EvaluationError" /\ D.content - (D.tuple $ EvaluationError D.value D.value) - , "EvaluationException" /\ D.content - (D.tuple $ EvaluationException D.value D.value) - ] - -derive instance Generic ScriptError _ - --------------------------------------------------------------------------------- - -_EvaluationError :: Prism' ScriptError { a :: Array String, b :: String } -_EvaluationError = prism' (\{ a, b } -> (EvaluationError a b)) case _ of - (EvaluationError a b) -> Just { a, b } - _ -> Nothing - -_EvaluationException :: Prism' ScriptError { a :: String, b :: String } -_EvaluationException = prism' (\{ a, b } -> (EvaluationException a b)) case _ of - (EvaluationException a b) -> Just { a, b } - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype StakeValidator = StakeValidator { getStakeValidator :: String } - -instance Show StakeValidator where - show a = genericShow a - -derive instance Eq StakeValidator - -derive instance Ord StakeValidator - -instance EncodeJson StakeValidator where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getStakeValidator: E.value :: _ String } - ) - -instance DecodeJson StakeValidator where - decodeJson = defer \_ -> D.decode $ - ( StakeValidator <$> D.record "StakeValidator" - { getStakeValidator: D.value :: _ String } - ) - -derive instance Generic StakeValidator _ - -derive instance Newtype StakeValidator _ - --------------------------------------------------------------------------------- - -_StakeValidator :: Iso' StakeValidator { getStakeValidator :: String } -_StakeValidator = _Newtype - --------------------------------------------------------------------------------- - -newtype Validator = Validator { getValidator :: String } - -instance Show Validator where - show a = genericShow a - -derive instance Eq Validator - -derive instance Ord Validator - -instance EncodeJson Validator where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getValidator: E.value :: _ String } - ) - -instance DecodeJson Validator where - decodeJson = defer \_ -> D.decode $ - (Validator <$> D.record "Validator" { getValidator: D.value :: _ String }) - -derive instance Generic Validator _ - -derive instance Newtype Validator _ - --------------------------------------------------------------------------------- - -_Validator :: Iso' Validator { getValidator :: String } -_Validator = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/V1/Ledger/Slot.purs b/marlowe-playground-client/generated/Plutus/V1/Ledger/Slot.purs deleted file mode 100644 index 282066c0e2..0000000000 --- a/marlowe-playground-client/generated/Plutus/V1/Ledger/Slot.purs +++ /dev/null @@ -1,50 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.V1.Ledger.Slot where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype Slot = Slot { getSlot :: BigInt } - -derive instance Eq Slot - -instance Show Slot where - show a = genericShow a - -instance EncodeJson Slot where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getSlot: E.value :: _ BigInt } - ) - -instance DecodeJson Slot where - decodeJson = defer \_ -> D.decode $ - (Slot <$> D.record "Slot" { getSlot: D.value :: _ BigInt }) - -derive instance Generic Slot _ - -derive instance Newtype Slot _ - --------------------------------------------------------------------------------- - -_Slot :: Iso' Slot { getSlot :: BigInt } -_Slot = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/V1/Ledger/Tx.purs b/marlowe-playground-client/generated/Plutus/V1/Ledger/Tx.purs deleted file mode 100644 index 4176115508..0000000000 --- a/marlowe-playground-client/generated/Plutus/V1/Ledger/Tx.purs +++ /dev/null @@ -1,409 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.V1.Ledger.Tx where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Bounded.Generic (genericBottom, genericTop) -import Data.Enum (class Enum) -import Data.Enum.Generic (genericPred, genericSucc) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map (Map) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Set (Set) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Address (Address) -import Plutus.V1.Ledger.Crypto (PubKey, Signature) -import Plutus.V1.Ledger.Interval (Interval) -import Plutus.V1.Ledger.Scripts (DatumHash, MintingPolicy, Validator) -import Plutus.V1.Ledger.Slot (Slot) -import Plutus.V1.Ledger.TxId (TxId) -import Plutus.V1.Ledger.Value (Value) -import Type.Proxy (Proxy(Proxy)) - -data RedeemerPtr = RedeemerPtr ScriptTag BigInt - -instance Show RedeemerPtr where - show a = genericShow a - -derive instance Eq RedeemerPtr - -derive instance Ord RedeemerPtr - -instance EncodeJson RedeemerPtr where - encodeJson = defer \_ -> E.encode $ (case _ of RedeemerPtr a b -> (a /\ b)) - >$< (E.tuple (E.value >/\< E.value)) - -instance DecodeJson RedeemerPtr where - decodeJson = defer \_ -> D.decode $ - (D.tuple $ RedeemerPtr D.value D.value) - -derive instance Generic RedeemerPtr _ - --------------------------------------------------------------------------------- - -_RedeemerPtr :: Iso' RedeemerPtr { a :: ScriptTag, b :: BigInt } -_RedeemerPtr = iso (\(RedeemerPtr a b) -> { a, b }) - (\{ a, b } -> (RedeemerPtr a b)) - --------------------------------------------------------------------------------- - -data ScriptTag - = Spend - | Mint - | Cert - | Reward - -instance Show ScriptTag where - show a = genericShow a - -derive instance Eq ScriptTag - -derive instance Ord ScriptTag - -instance EncodeJson ScriptTag where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson ScriptTag where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic ScriptTag _ - -instance Enum ScriptTag where - succ = genericSucc - pred = genericPred - -instance Bounded ScriptTag where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_Spend :: Prism' ScriptTag Unit -_Spend = prism' (const Spend) case _ of - Spend -> Just unit - _ -> Nothing - -_Mint :: Prism' ScriptTag Unit -_Mint = prism' (const Mint) case _ of - Mint -> Just unit - _ -> Nothing - -_Cert :: Prism' ScriptTag Unit -_Cert = prism' (const Cert) case _ of - Cert -> Just unit - _ -> Nothing - -_Reward :: Prism' ScriptTag Unit -_Reward = prism' (const Reward) case _ of - Reward -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype Tx = Tx - { txInputs :: Set TxIn - , txCollateral :: Set TxIn - , txOutputs :: Array TxOut - , txMint :: Value - , txFee :: Value - , txValidRange :: Interval Slot - , txMintScripts :: Set MintingPolicy - , txSignatures :: Map PubKey Signature - , txRedeemers :: Map RedeemerPtr String - , txData :: Map DatumHash String - } - -derive instance Eq Tx - -instance Show Tx where - show a = genericShow a - -instance EncodeJson Tx where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { txInputs: E.value :: _ (Set TxIn) - , txCollateral: E.value :: _ (Set TxIn) - , txOutputs: E.value :: _ (Array TxOut) - , txMint: E.value :: _ Value - , txFee: E.value :: _ Value - , txValidRange: E.value :: _ (Interval Slot) - , txMintScripts: E.value :: _ (Set MintingPolicy) - , txSignatures: - (E.dictionary E.value E.value) :: _ (Map PubKey Signature) - , txRedeemers: - (E.dictionary E.value E.value) :: _ (Map RedeemerPtr String) - , txData: (E.dictionary E.value E.value) :: _ (Map DatumHash String) - } - ) - -instance DecodeJson Tx where - decodeJson = defer \_ -> D.decode $ - ( Tx <$> D.record "Tx" - { txInputs: D.value :: _ (Set TxIn) - , txCollateral: D.value :: _ (Set TxIn) - , txOutputs: D.value :: _ (Array TxOut) - , txMint: D.value :: _ Value - , txFee: D.value :: _ Value - , txValidRange: D.value :: _ (Interval Slot) - , txMintScripts: D.value :: _ (Set MintingPolicy) - , txSignatures: - (D.dictionary D.value D.value) :: _ (Map PubKey Signature) - , txRedeemers: - (D.dictionary D.value D.value) :: _ (Map RedeemerPtr String) - , txData: (D.dictionary D.value D.value) :: _ (Map DatumHash String) - } - ) - -derive instance Generic Tx _ - -derive instance Newtype Tx _ - --------------------------------------------------------------------------------- - -_Tx - :: Iso' Tx - { txInputs :: Set TxIn - , txCollateral :: Set TxIn - , txOutputs :: Array TxOut - , txMint :: Value - , txFee :: Value - , txValidRange :: Interval Slot - , txMintScripts :: Set MintingPolicy - , txSignatures :: Map PubKey Signature - , txRedeemers :: Map RedeemerPtr String - , txData :: Map DatumHash String - } -_Tx = _Newtype - --------------------------------------------------------------------------------- - -newtype TxIn = TxIn - { txInRef :: TxOutRef - , txInType :: Maybe TxInType - } - -derive instance Eq TxIn - -derive instance Ord TxIn - -instance Show TxIn where - show a = genericShow a - -instance EncodeJson TxIn where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { txInRef: E.value :: _ TxOutRef - , txInType: (E.maybe E.value) :: _ (Maybe TxInType) - } - ) - -instance DecodeJson TxIn where - decodeJson = defer \_ -> D.decode $ - ( TxIn <$> D.record "TxIn" - { txInRef: D.value :: _ TxOutRef - , txInType: (D.maybe D.value) :: _ (Maybe TxInType) - } - ) - -derive instance Generic TxIn _ - -derive instance Newtype TxIn _ - --------------------------------------------------------------------------------- - -_TxIn :: Iso' TxIn { txInRef :: TxOutRef, txInType :: Maybe TxInType } -_TxIn = _Newtype - --------------------------------------------------------------------------------- - -data TxInType - = ConsumeScriptAddress Validator String String - | ConsumePublicKeyAddress - | ConsumeSimpleScriptAddress - -instance Show TxInType where - show a = genericShow a - -derive instance Eq TxInType - -derive instance Ord TxInType - -instance EncodeJson TxInType where - encodeJson = defer \_ -> case _ of - ConsumeScriptAddress a b c -> E.encodeTagged "ConsumeScriptAddress" - (a /\ b /\ c) - (E.tuple (E.value >/\< E.value >/\< E.value)) - ConsumePublicKeyAddress -> encodeJson - { tag: "ConsumePublicKeyAddress", contents: jsonNull } - ConsumeSimpleScriptAddress -> encodeJson - { tag: "ConsumeSimpleScriptAddress", contents: jsonNull } - -instance DecodeJson TxInType where - decodeJson = defer \_ -> D.decode - $ D.sumType "TxInType" - $ Map.fromFoldable - [ "ConsumeScriptAddress" /\ D.content - ( D.tuple $ ConsumeScriptAddress D.value D.value - D.value - ) - , "ConsumePublicKeyAddress" /\ pure ConsumePublicKeyAddress - , "ConsumeSimpleScriptAddress" /\ pure ConsumeSimpleScriptAddress - ] - -derive instance Generic TxInType _ - --------------------------------------------------------------------------------- - -_ConsumeScriptAddress - :: Prism' TxInType { a :: Validator, b :: String, c :: String } -_ConsumeScriptAddress = prism' (\{ a, b, c } -> (ConsumeScriptAddress a b c)) - case _ of - (ConsumeScriptAddress a b c) -> Just { a, b, c } - _ -> Nothing - -_ConsumePublicKeyAddress :: Prism' TxInType Unit -_ConsumePublicKeyAddress = prism' (const ConsumePublicKeyAddress) case _ of - ConsumePublicKeyAddress -> Just unit - _ -> Nothing - -_ConsumeSimpleScriptAddress :: Prism' TxInType Unit -_ConsumeSimpleScriptAddress = prism' (const ConsumeSimpleScriptAddress) - case _ of - ConsumeSimpleScriptAddress -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype TxOut = TxOut - { txOutAddress :: Address - , txOutValue :: Value - , txOutDatumHash :: Maybe DatumHash - } - -derive instance Eq TxOut - -instance Show TxOut where - show a = genericShow a - -instance EncodeJson TxOut where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { txOutAddress: E.value :: _ Address - , txOutValue: E.value :: _ Value - , txOutDatumHash: (E.maybe E.value) :: _ (Maybe DatumHash) - } - ) - -instance DecodeJson TxOut where - decodeJson = defer \_ -> D.decode $ - ( TxOut <$> D.record "TxOut" - { txOutAddress: D.value :: _ Address - , txOutValue: D.value :: _ Value - , txOutDatumHash: (D.maybe D.value) :: _ (Maybe DatumHash) - } - ) - -derive instance Generic TxOut _ - -derive instance Newtype TxOut _ - --------------------------------------------------------------------------------- - -_TxOut - :: Iso' TxOut - { txOutAddress :: Address - , txOutValue :: Value - , txOutDatumHash :: Maybe DatumHash - } -_TxOut = _Newtype - --------------------------------------------------------------------------------- - -newtype TxOutRef = TxOutRef - { txOutRefId :: TxId - , txOutRefIdx :: BigInt - } - -derive instance Eq TxOutRef - -derive instance Ord TxOutRef - -instance Show TxOutRef where - show a = genericShow a - -instance EncodeJson TxOutRef where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { txOutRefId: E.value :: _ TxId - , txOutRefIdx: E.value :: _ BigInt - } - ) - -instance DecodeJson TxOutRef where - decodeJson = defer \_ -> D.decode $ - ( TxOutRef <$> D.record "TxOutRef" - { txOutRefId: D.value :: _ TxId - , txOutRefIdx: D.value :: _ BigInt - } - ) - -derive instance Generic TxOutRef _ - -derive instance Newtype TxOutRef _ - --------------------------------------------------------------------------------- - -_TxOutRef :: Iso' TxOutRef { txOutRefId :: TxId, txOutRefIdx :: BigInt } -_TxOutRef = _Newtype - --------------------------------------------------------------------------------- - -newtype TxOutTx = TxOutTx - { txOutTxTx :: Tx - , txOutTxOut :: TxOut - } - -derive instance Eq TxOutTx - -instance Show TxOutTx where - show a = genericShow a - -instance EncodeJson TxOutTx where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { txOutTxTx: E.value :: _ Tx - , txOutTxOut: E.value :: _ TxOut - } - ) - -instance DecodeJson TxOutTx where - decodeJson = defer \_ -> D.decode $ - ( TxOutTx <$> D.record "TxOutTx" - { txOutTxTx: D.value :: _ Tx - , txOutTxOut: D.value :: _ TxOut - } - ) - -derive instance Generic TxOutTx _ - -derive instance Newtype TxOutTx _ - --------------------------------------------------------------------------------- - -_TxOutTx :: Iso' TxOutTx { txOutTxTx :: Tx, txOutTxOut :: TxOut } -_TxOutTx = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/V1/Ledger/TxId.purs b/marlowe-playground-client/generated/Plutus/V1/Ledger/TxId.purs deleted file mode 100644 index c09dddcd43..0000000000 --- a/marlowe-playground-client/generated/Plutus/V1/Ledger/TxId.purs +++ /dev/null @@ -1,51 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.V1.Ledger.TxId where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype TxId = TxId { getTxId :: String } - -derive instance Eq TxId - -derive instance Ord TxId - -instance Show TxId where - show a = genericShow a - -instance EncodeJson TxId where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getTxId: E.value :: _ String } - ) - -instance DecodeJson TxId where - decodeJson = defer \_ -> D.decode $ - (TxId <$> D.record "TxId" { getTxId: D.value :: _ String }) - -derive instance Generic TxId _ - -derive instance Newtype TxId _ - --------------------------------------------------------------------------------- - -_TxId :: Iso' TxId { getTxId :: String } -_TxId = _Newtype diff --git a/marlowe-playground-client/generated/Plutus/V1/Ledger/Value.purs b/marlowe-playground-client/generated/Plutus/V1/Ledger/Value.purs deleted file mode 100644 index c60be8143d..0000000000 --- a/marlowe-playground-client/generated/Plutus/V1/Ledger/Value.purs +++ /dev/null @@ -1,156 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Plutus.V1.Ledger.Value where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple (Tuple) -import Data.Tuple.Nested ((/\)) -import PlutusTx.AssocMap (Map) -import Type.Proxy (Proxy(Proxy)) - -newtype AssetClass = AssetClass - { unAssetClass :: Tuple CurrencySymbol TokenName } - -instance Show AssetClass where - show a = genericShow a - -derive instance Eq AssetClass - -derive instance Ord AssetClass - -instance EncodeJson AssetClass where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unAssetClass: - (E.tuple (E.value >/\< E.value)) - :: _ (Tuple CurrencySymbol TokenName) - } - ) - -instance DecodeJson AssetClass where - decodeJson = defer \_ -> D.decode $ - ( AssetClass <$> D.record "AssetClass" - { unAssetClass: - (D.tuple (D.value D.value)) - :: _ (Tuple CurrencySymbol TokenName) - } - ) - -derive instance Generic AssetClass _ - -derive instance Newtype AssetClass _ - --------------------------------------------------------------------------------- - -_AssetClass - :: Iso' AssetClass { unAssetClass :: Tuple CurrencySymbol TokenName } -_AssetClass = _Newtype - --------------------------------------------------------------------------------- - -newtype CurrencySymbol = CurrencySymbol { unCurrencySymbol :: String } - -instance Show CurrencySymbol where - show a = genericShow a - -derive instance Eq CurrencySymbol - -derive instance Ord CurrencySymbol - -instance EncodeJson CurrencySymbol where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unCurrencySymbol: E.value :: _ String } - ) - -instance DecodeJson CurrencySymbol where - decodeJson = defer \_ -> D.decode $ - ( CurrencySymbol <$> D.record "CurrencySymbol" - { unCurrencySymbol: D.value :: _ String } - ) - -derive instance Generic CurrencySymbol _ - -derive instance Newtype CurrencySymbol _ - --------------------------------------------------------------------------------- - -_CurrencySymbol :: Iso' CurrencySymbol { unCurrencySymbol :: String } -_CurrencySymbol = _Newtype - --------------------------------------------------------------------------------- - -newtype TokenName = TokenName { unTokenName :: String } - -instance Show TokenName where - show a = genericShow a - -derive instance Eq TokenName - -derive instance Ord TokenName - -instance EncodeJson TokenName where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unTokenName: E.value :: _ String } - ) - -instance DecodeJson TokenName where - decodeJson = defer \_ -> D.decode $ - (TokenName <$> D.record "TokenName" { unTokenName: D.value :: _ String }) - -derive instance Generic TokenName _ - -derive instance Newtype TokenName _ - --------------------------------------------------------------------------------- - -_TokenName :: Iso' TokenName { unTokenName :: String } -_TokenName = _Newtype - --------------------------------------------------------------------------------- - -newtype Value = Value { getValue :: Map CurrencySymbol (Map TokenName BigInt) } - -derive instance Eq Value - -instance Show Value where - show a = genericShow a - -instance EncodeJson Value where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getValue: E.value :: _ (Map CurrencySymbol (Map TokenName BigInt)) } - ) - -instance DecodeJson Value where - decodeJson = defer \_ -> D.decode $ - ( Value <$> D.record "Value" - { getValue: D.value :: _ (Map CurrencySymbol (Map TokenName BigInt)) } - ) - -derive instance Generic Value _ - -derive instance Newtype Value _ - --------------------------------------------------------------------------------- - -_Value :: Iso' Value { getValue :: Map CurrencySymbol (Map TokenName BigInt) } -_Value = _Newtype diff --git a/marlowe-playground-client/generated/PlutusCore/Evaluation/Machine/ExMemory.purs b/marlowe-playground-client/generated/PlutusCore/Evaluation/Machine/ExMemory.purs deleted file mode 100644 index 5a171c1245..0000000000 --- a/marlowe-playground-client/generated/PlutusCore/Evaluation/Machine/ExMemory.purs +++ /dev/null @@ -1,69 +0,0 @@ --- File auto generated by purescript-bridge! -- -module PlutusCore.Evaluation.Machine.ExMemory where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype ExCPU = ExCPU Int - -derive instance Eq ExCPU - -instance Show ExCPU where - show a = genericShow a - -instance EncodeJson ExCPU where - encodeJson = defer \_ -> E.encode $ unwrap >$< E.value - -instance DecodeJson ExCPU where - decodeJson = defer \_ -> D.decode $ (ExCPU <$> D.value) - -derive instance Generic ExCPU _ - -derive instance Newtype ExCPU _ - --------------------------------------------------------------------------------- - -_ExCPU :: Iso' ExCPU Int -_ExCPU = _Newtype - --------------------------------------------------------------------------------- - -newtype ExMemory = ExMemory Int - -derive instance Eq ExMemory - -instance Show ExMemory where - show a = genericShow a - -instance EncodeJson ExMemory where - encodeJson = defer \_ -> E.encode $ unwrap >$< E.value - -instance DecodeJson ExMemory where - decodeJson = defer \_ -> D.decode $ (ExMemory <$> D.value) - -derive instance Generic ExMemory _ - -derive instance Newtype ExMemory _ - --------------------------------------------------------------------------------- - -_ExMemory :: Iso' ExMemory Int -_ExMemory = _Newtype diff --git a/marlowe-playground-client/generated/Schema.purs b/marlowe-playground-client/generated/Schema.purs deleted file mode 100644 index 5ce69faebc..0000000000 --- a/marlowe-playground-client/generated/Schema.purs +++ /dev/null @@ -1,316 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Schema where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Eq (class Eq1) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple (Tuple) -import Data.Tuple.Nested ((/\)) -import Plutus.V1.Ledger.Interval (Interval) -import Plutus.V1.Ledger.Time (POSIXTime) -import Plutus.V1.Ledger.Value (Value) -import Type.Proxy (Proxy(Proxy)) - -data FormArgumentF a - = FormUnitF - | FormBoolF Boolean - | FormIntF (Maybe Int) - | FormIntegerF (Maybe BigInt) - | FormStringF (Maybe String) - | FormHexF (Maybe String) - | FormRadioF (Array String) (Maybe String) - | FormArrayF FormSchema (Array a) - | FormMaybeF FormSchema (Maybe a) - | FormTupleF a a - | FormObjectF (Array (Tuple String a)) - | FormValueF Value - | FormPOSIXTimeRangeF (Interval POSIXTime) - | FormUnsupportedF String - -derive instance Functor FormArgumentF - -derive instance (Eq a) => Eq (FormArgumentF a) - -derive instance Eq1 FormArgumentF - -instance (Show a) => Show (FormArgumentF a) where - show a = genericShow a - -instance (EncodeJson a) => EncodeJson (FormArgumentF a) where - encodeJson = defer \_ -> case _ of - FormUnitF -> encodeJson { tag: "FormUnitF", contents: jsonNull } - FormBoolF a -> E.encodeTagged "FormBoolF" a E.value - FormIntF a -> E.encodeTagged "FormIntF" a (E.maybe E.value) - FormIntegerF a -> E.encodeTagged "FormIntegerF" a (E.maybe E.value) - FormStringF a -> E.encodeTagged "FormStringF" a (E.maybe E.value) - FormHexF a -> E.encodeTagged "FormHexF" a (E.maybe E.value) - FormRadioF a b -> E.encodeTagged "FormRadioF" (a /\ b) - (E.tuple (E.value >/\< (E.maybe E.value))) - FormArrayF a b -> E.encodeTagged "FormArrayF" (a /\ b) - (E.tuple (E.value >/\< E.value)) - FormMaybeF a b -> E.encodeTagged "FormMaybeF" (a /\ b) - (E.tuple (E.value >/\< (E.maybe E.value))) - FormTupleF a b -> E.encodeTagged "FormTupleF" (a /\ b) - (E.tuple (E.value >/\< E.value)) - FormObjectF a -> E.encodeTagged "FormObjectF" a E.value - FormValueF a -> E.encodeTagged "FormValueF" a E.value - FormPOSIXTimeRangeF a -> E.encodeTagged "FormPOSIXTimeRangeF" a E.value - FormUnsupportedF a -> E.encodeTagged "FormUnsupportedF" a E.value - -instance (DecodeJson a) => DecodeJson (FormArgumentF a) where - decodeJson = defer \_ -> D.decode - $ D.sumType "FormArgumentF" - $ Map.fromFoldable - [ "FormUnitF" /\ pure FormUnitF - , "FormBoolF" /\ D.content (FormBoolF <$> D.value) - , "FormIntF" /\ D.content (FormIntF <$> (D.maybe D.value)) - , "FormIntegerF" /\ D.content (FormIntegerF <$> (D.maybe D.value)) - , "FormStringF" /\ D.content (FormStringF <$> (D.maybe D.value)) - , "FormHexF" /\ D.content (FormHexF <$> (D.maybe D.value)) - , "FormRadioF" /\ D.content - (D.tuple $ FormRadioF D.value (D.maybe D.value)) - , "FormArrayF" /\ D.content - (D.tuple $ FormArrayF D.value D.value) - , "FormMaybeF" /\ D.content - (D.tuple $ FormMaybeF D.value (D.maybe D.value)) - , "FormTupleF" /\ D.content - (D.tuple $ FormTupleF D.value D.value) - , "FormObjectF" /\ D.content (FormObjectF <$> D.value) - , "FormValueF" /\ D.content (FormValueF <$> D.value) - , "FormPOSIXTimeRangeF" /\ D.content (FormPOSIXTimeRangeF <$> D.value) - , "FormUnsupportedF" /\ D.content (FormUnsupportedF <$> D.value) - ] - -derive instance Generic (FormArgumentF a) _ - --------------------------------------------------------------------------------- - -_FormUnitF :: forall a. Prism' (FormArgumentF a) Unit -_FormUnitF = prism' (const FormUnitF) case _ of - FormUnitF -> Just unit - _ -> Nothing - -_FormBoolF :: forall a. Prism' (FormArgumentF a) Boolean -_FormBoolF = prism' FormBoolF case _ of - (FormBoolF a) -> Just a - _ -> Nothing - -_FormIntF :: forall a. Prism' (FormArgumentF a) (Maybe Int) -_FormIntF = prism' FormIntF case _ of - (FormIntF a) -> Just a - _ -> Nothing - -_FormIntegerF :: forall a. Prism' (FormArgumentF a) (Maybe BigInt) -_FormIntegerF = prism' FormIntegerF case _ of - (FormIntegerF a) -> Just a - _ -> Nothing - -_FormStringF :: forall a. Prism' (FormArgumentF a) (Maybe String) -_FormStringF = prism' FormStringF case _ of - (FormStringF a) -> Just a - _ -> Nothing - -_FormHexF :: forall a. Prism' (FormArgumentF a) (Maybe String) -_FormHexF = prism' FormHexF case _ of - (FormHexF a) -> Just a - _ -> Nothing - -_FormRadioF - :: forall a. Prism' (FormArgumentF a) { a :: Array String, b :: Maybe String } -_FormRadioF = prism' (\{ a, b } -> (FormRadioF a b)) case _ of - (FormRadioF a b) -> Just { a, b } - _ -> Nothing - -_FormArrayF - :: forall a. Prism' (FormArgumentF a) { a :: FormSchema, b :: Array a } -_FormArrayF = prism' (\{ a, b } -> (FormArrayF a b)) case _ of - (FormArrayF a b) -> Just { a, b } - _ -> Nothing - -_FormMaybeF - :: forall a. Prism' (FormArgumentF a) { a :: FormSchema, b :: Maybe a } -_FormMaybeF = prism' (\{ a, b } -> (FormMaybeF a b)) case _ of - (FormMaybeF a b) -> Just { a, b } - _ -> Nothing - -_FormTupleF :: forall a. Prism' (FormArgumentF a) { a :: a, b :: a } -_FormTupleF = prism' (\{ a, b } -> (FormTupleF a b)) case _ of - (FormTupleF a b) -> Just { a, b } - _ -> Nothing - -_FormObjectF :: forall a. Prism' (FormArgumentF a) (Array (Tuple String a)) -_FormObjectF = prism' FormObjectF case _ of - (FormObjectF a) -> Just a - _ -> Nothing - -_FormValueF :: forall a. Prism' (FormArgumentF a) Value -_FormValueF = prism' FormValueF case _ of - (FormValueF a) -> Just a - _ -> Nothing - -_FormPOSIXTimeRangeF :: forall a. Prism' (FormArgumentF a) (Interval POSIXTime) -_FormPOSIXTimeRangeF = prism' FormPOSIXTimeRangeF case _ of - (FormPOSIXTimeRangeF a) -> Just a - _ -> Nothing - -_FormUnsupportedF :: forall a. Prism' (FormArgumentF a) String -_FormUnsupportedF = prism' FormUnsupportedF case _ of - (FormUnsupportedF a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data FormSchema - = FormSchemaUnit - | FormSchemaBool - | FormSchemaInt - | FormSchemaInteger - | FormSchemaString - | FormSchemaHex - | FormSchemaArray FormSchema - | FormSchemaMaybe FormSchema - | FormSchemaRadio (Array String) - | FormSchemaTuple FormSchema FormSchema - | FormSchemaObject (Array (Tuple String FormSchema)) - | FormSchemaValue - | FormSchemaPOSIXTimeRange - | FormSchemaUnsupported String - -instance Show FormSchema where - show a = genericShow a - -derive instance Eq FormSchema - -instance EncodeJson FormSchema where - encodeJson = defer \_ -> case _ of - FormSchemaUnit -> encodeJson { tag: "FormSchemaUnit", contents: jsonNull } - FormSchemaBool -> encodeJson { tag: "FormSchemaBool", contents: jsonNull } - FormSchemaInt -> encodeJson { tag: "FormSchemaInt", contents: jsonNull } - FormSchemaInteger -> encodeJson - { tag: "FormSchemaInteger", contents: jsonNull } - FormSchemaString -> encodeJson - { tag: "FormSchemaString", contents: jsonNull } - FormSchemaHex -> encodeJson { tag: "FormSchemaHex", contents: jsonNull } - FormSchemaArray a -> E.encodeTagged "FormSchemaArray" a E.value - FormSchemaMaybe a -> E.encodeTagged "FormSchemaMaybe" a E.value - FormSchemaRadio a -> E.encodeTagged "FormSchemaRadio" a E.value - FormSchemaTuple a b -> E.encodeTagged "FormSchemaTuple" (a /\ b) - (E.tuple (E.value >/\< E.value)) - FormSchemaObject a -> E.encodeTagged "FormSchemaObject" a E.value - FormSchemaValue -> encodeJson { tag: "FormSchemaValue", contents: jsonNull } - FormSchemaPOSIXTimeRange -> encodeJson - { tag: "FormSchemaPOSIXTimeRange", contents: jsonNull } - FormSchemaUnsupported a -> E.encodeTagged "FormSchemaUnsupported" a E.value - -instance DecodeJson FormSchema where - decodeJson = defer \_ -> D.decode - $ D.sumType "FormSchema" - $ Map.fromFoldable - [ "FormSchemaUnit" /\ pure FormSchemaUnit - , "FormSchemaBool" /\ pure FormSchemaBool - , "FormSchemaInt" /\ pure FormSchemaInt - , "FormSchemaInteger" /\ pure FormSchemaInteger - , "FormSchemaString" /\ pure FormSchemaString - , "FormSchemaHex" /\ pure FormSchemaHex - , "FormSchemaArray" /\ D.content (FormSchemaArray <$> D.value) - , "FormSchemaMaybe" /\ D.content (FormSchemaMaybe <$> D.value) - , "FormSchemaRadio" /\ D.content (FormSchemaRadio <$> D.value) - , "FormSchemaTuple" /\ D.content - (D.tuple $ FormSchemaTuple D.value D.value) - , "FormSchemaObject" /\ D.content (FormSchemaObject <$> D.value) - , "FormSchemaValue" /\ pure FormSchemaValue - , "FormSchemaPOSIXTimeRange" /\ pure FormSchemaPOSIXTimeRange - , "FormSchemaUnsupported" /\ D.content - (FormSchemaUnsupported <$> D.value) - ] - -derive instance Generic FormSchema _ - --------------------------------------------------------------------------------- - -_FormSchemaUnit :: Prism' FormSchema Unit -_FormSchemaUnit = prism' (const FormSchemaUnit) case _ of - FormSchemaUnit -> Just unit - _ -> Nothing - -_FormSchemaBool :: Prism' FormSchema Unit -_FormSchemaBool = prism' (const FormSchemaBool) case _ of - FormSchemaBool -> Just unit - _ -> Nothing - -_FormSchemaInt :: Prism' FormSchema Unit -_FormSchemaInt = prism' (const FormSchemaInt) case _ of - FormSchemaInt -> Just unit - _ -> Nothing - -_FormSchemaInteger :: Prism' FormSchema Unit -_FormSchemaInteger = prism' (const FormSchemaInteger) case _ of - FormSchemaInteger -> Just unit - _ -> Nothing - -_FormSchemaString :: Prism' FormSchema Unit -_FormSchemaString = prism' (const FormSchemaString) case _ of - FormSchemaString -> Just unit - _ -> Nothing - -_FormSchemaHex :: Prism' FormSchema Unit -_FormSchemaHex = prism' (const FormSchemaHex) case _ of - FormSchemaHex -> Just unit - _ -> Nothing - -_FormSchemaArray :: Prism' FormSchema FormSchema -_FormSchemaArray = prism' FormSchemaArray case _ of - (FormSchemaArray a) -> Just a - _ -> Nothing - -_FormSchemaMaybe :: Prism' FormSchema FormSchema -_FormSchemaMaybe = prism' FormSchemaMaybe case _ of - (FormSchemaMaybe a) -> Just a - _ -> Nothing - -_FormSchemaRadio :: Prism' FormSchema (Array String) -_FormSchemaRadio = prism' FormSchemaRadio case _ of - (FormSchemaRadio a) -> Just a - _ -> Nothing - -_FormSchemaTuple :: Prism' FormSchema { a :: FormSchema, b :: FormSchema } -_FormSchemaTuple = prism' (\{ a, b } -> (FormSchemaTuple a b)) case _ of - (FormSchemaTuple a b) -> Just { a, b } - _ -> Nothing - -_FormSchemaObject :: Prism' FormSchema (Array (Tuple String FormSchema)) -_FormSchemaObject = prism' FormSchemaObject case _ of - (FormSchemaObject a) -> Just a - _ -> Nothing - -_FormSchemaValue :: Prism' FormSchema Unit -_FormSchemaValue = prism' (const FormSchemaValue) case _ of - FormSchemaValue -> Just unit - _ -> Nothing - -_FormSchemaPOSIXTimeRange :: Prism' FormSchema Unit -_FormSchemaPOSIXTimeRange = prism' (const FormSchemaPOSIXTimeRange) case _ of - FormSchemaPOSIXTimeRange -> Just unit - _ -> Nothing - -_FormSchemaUnsupported :: Prism' FormSchema String -_FormSchemaUnsupported = prism' FormSchemaUnsupported case _ of - (FormSchemaUnsupported a) -> Just a - _ -> Nothing diff --git a/marlowe-playground-client/generated/Wallet/Emulator/Error.purs b/marlowe-playground-client/generated/Wallet/Emulator/Error.purs deleted file mode 100644 index e09f617d46..0000000000 --- a/marlowe-playground-client/generated/Wallet/Emulator/Error.purs +++ /dev/null @@ -1,124 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Wallet.Emulator.Error where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Ledger.Address (PaymentPubKeyHash) -import Ledger.Constraints.OffChain (MkTxError) -import Ledger.Index (ValidationError) -import Ledger.Tx.CardanoAPI (ToCardanoError) -import Plutus.V1.Ledger.Ada (Ada) -import Plutus.V1.Ledger.Value (Value) -import Type.Proxy (Proxy(Proxy)) - -data WalletAPIError - = InsufficientFunds String - | ChangeHasLessThanNAda Value Ada - | PaymentPrivateKeyNotFound PaymentPubKeyHash - | ValidationError ValidationError - | ToCardanoError ToCardanoError - | PaymentMkTxError MkTxError - | RemoteClientFunctionNotYetSupported String - | OtherError String - -derive instance Eq WalletAPIError - -instance Show WalletAPIError where - show a = genericShow a - -instance EncodeJson WalletAPIError where - encodeJson = defer \_ -> case _ of - InsufficientFunds a -> E.encodeTagged "InsufficientFunds" a E.value - ChangeHasLessThanNAda a b -> E.encodeTagged "ChangeHasLessThanNAda" (a /\ b) - (E.tuple (E.value >/\< E.value)) - PaymentPrivateKeyNotFound a -> E.encodeTagged "PaymentPrivateKeyNotFound" a - E.value - ValidationError a -> E.encodeTagged "ValidationError" a E.value - ToCardanoError a -> E.encodeTagged "ToCardanoError" a E.value - PaymentMkTxError a -> E.encodeTagged "PaymentMkTxError" a E.value - RemoteClientFunctionNotYetSupported a -> E.encodeTagged - "RemoteClientFunctionNotYetSupported" - a - E.value - OtherError a -> E.encodeTagged "OtherError" a E.value - -instance DecodeJson WalletAPIError where - decodeJson = defer \_ -> D.decode - $ D.sumType "WalletAPIError" - $ Map.fromFoldable - [ "InsufficientFunds" /\ D.content (InsufficientFunds <$> D.value) - , "ChangeHasLessThanNAda" /\ D.content - (D.tuple $ ChangeHasLessThanNAda D.value D.value) - , "PaymentPrivateKeyNotFound" /\ D.content - (PaymentPrivateKeyNotFound <$> D.value) - , "ValidationError" /\ D.content (ValidationError <$> D.value) - , "ToCardanoError" /\ D.content (ToCardanoError <$> D.value) - , "PaymentMkTxError" /\ D.content (PaymentMkTxError <$> D.value) - , "RemoteClientFunctionNotYetSupported" /\ D.content - (RemoteClientFunctionNotYetSupported <$> D.value) - , "OtherError" /\ D.content (OtherError <$> D.value) - ] - -derive instance Generic WalletAPIError _ - --------------------------------------------------------------------------------- - -_InsufficientFunds :: Prism' WalletAPIError String -_InsufficientFunds = prism' InsufficientFunds case _ of - (InsufficientFunds a) -> Just a - _ -> Nothing - -_ChangeHasLessThanNAda :: Prism' WalletAPIError { a :: Value, b :: Ada } -_ChangeHasLessThanNAda = prism' (\{ a, b } -> (ChangeHasLessThanNAda a b)) - case _ of - (ChangeHasLessThanNAda a b) -> Just { a, b } - _ -> Nothing - -_PaymentPrivateKeyNotFound :: Prism' WalletAPIError PaymentPubKeyHash -_PaymentPrivateKeyNotFound = prism' PaymentPrivateKeyNotFound case _ of - (PaymentPrivateKeyNotFound a) -> Just a - _ -> Nothing - -_ValidationError :: Prism' WalletAPIError ValidationError -_ValidationError = prism' ValidationError case _ of - (ValidationError a) -> Just a - _ -> Nothing - -_ToCardanoError :: Prism' WalletAPIError ToCardanoError -_ToCardanoError = prism' ToCardanoError case _ of - (ToCardanoError a) -> Just a - _ -> Nothing - -_PaymentMkTxError :: Prism' WalletAPIError MkTxError -_PaymentMkTxError = prism' PaymentMkTxError case _ of - (PaymentMkTxError a) -> Just a - _ -> Nothing - -_RemoteClientFunctionNotYetSupported :: Prism' WalletAPIError String -_RemoteClientFunctionNotYetSupported = prism' - RemoteClientFunctionNotYetSupported - case _ of - (RemoteClientFunctionNotYetSupported a) -> Just a - _ -> Nothing - -_OtherError :: Prism' WalletAPIError String -_OtherError = prism' OtherError case _ of - (OtherError a) -> Just a - _ -> Nothing diff --git a/marlowe-playground-client/generated/Wallet/Emulator/Wallet.purs b/marlowe-playground-client/generated/Wallet/Emulator/Wallet.purs deleted file mode 100644 index f7911e8ff7..0000000000 --- a/marlowe-playground-client/generated/Wallet/Emulator/Wallet.purs +++ /dev/null @@ -1,59 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Wallet.Emulator.Wallet where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Type.Proxy (Proxy(Proxy)) - -newtype Wallet = Wallet - { prettyWalletName :: Maybe String - , getWalletId :: String - } - -derive instance Eq Wallet - -instance Show Wallet where - show a = genericShow a - -instance EncodeJson Wallet where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { prettyWalletName: (E.maybe E.value) :: _ (Maybe String) - , getWalletId: E.value :: _ String - } - ) - -instance DecodeJson Wallet where - decodeJson = defer \_ -> D.decode $ - ( Wallet <$> D.record "Wallet" - { prettyWalletName: (D.maybe D.value) :: _ (Maybe String) - , getWalletId: D.value :: _ String - } - ) - -derive instance Generic Wallet _ - -derive instance Newtype Wallet _ - --------------------------------------------------------------------------------- - -_Wallet - :: Iso' Wallet { prettyWalletName :: Maybe String, getWalletId :: String } -_Wallet = _Newtype diff --git a/marlowe-playground-client/generated/Wallet/Rollup/Types.purs b/marlowe-playground-client/generated/Wallet/Rollup/Types.purs deleted file mode 100644 index dab4b1cc74..0000000000 --- a/marlowe-playground-client/generated/Wallet/Rollup/Types.purs +++ /dev/null @@ -1,261 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Wallet.Rollup.Types where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.BigInt.Argonaut (BigInt) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map (Map) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Ledger.Address (PaymentPubKeyHash) -import Plutus.V1.Ledger.Tx (Tx, TxIn, TxOut) -import Plutus.V1.Ledger.TxId (TxId) -import Plutus.V1.Ledger.Value (Value) -import Type.Proxy (Proxy(Proxy)) - -newtype AnnotatedTx = AnnotatedTx - { sequenceId :: SequenceId - , txId :: TxId - , tx :: Tx - , dereferencedInputs :: Array DereferencedInput - , balances :: Map BeneficialOwner Value - , valid :: Boolean - } - -derive instance Eq AnnotatedTx - -instance Show AnnotatedTx where - show a = genericShow a - -instance EncodeJson AnnotatedTx where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { sequenceId: E.value :: _ SequenceId - , txId: E.value :: _ TxId - , tx: E.value :: _ Tx - , dereferencedInputs: E.value :: _ (Array DereferencedInput) - , balances: - (E.dictionary E.value E.value) :: _ (Map BeneficialOwner Value) - , valid: E.value :: _ Boolean - } - ) - -instance DecodeJson AnnotatedTx where - decodeJson = defer \_ -> D.decode $ - ( AnnotatedTx <$> D.record "AnnotatedTx" - { sequenceId: D.value :: _ SequenceId - , txId: D.value :: _ TxId - , tx: D.value :: _ Tx - , dereferencedInputs: D.value :: _ (Array DereferencedInput) - , balances: - (D.dictionary D.value D.value) :: _ (Map BeneficialOwner Value) - , valid: D.value :: _ Boolean - } - ) - -derive instance Generic AnnotatedTx _ - -derive instance Newtype AnnotatedTx _ - --------------------------------------------------------------------------------- - -_AnnotatedTx - :: Iso' AnnotatedTx - { sequenceId :: SequenceId - , txId :: TxId - , tx :: Tx - , dereferencedInputs :: Array DereferencedInput - , balances :: Map BeneficialOwner Value - , valid :: Boolean - } -_AnnotatedTx = _Newtype - --------------------------------------------------------------------------------- - -data BeneficialOwner - = OwnedByPaymentPubKey PaymentPubKeyHash - | OwnedByScript String - -derive instance Eq BeneficialOwner - -derive instance Ord BeneficialOwner - -instance Show BeneficialOwner where - show a = genericShow a - -instance EncodeJson BeneficialOwner where - encodeJson = defer \_ -> case _ of - OwnedByPaymentPubKey a -> E.encodeTagged "OwnedByPaymentPubKey" a E.value - OwnedByScript a -> E.encodeTagged "OwnedByScript" a E.value - -instance DecodeJson BeneficialOwner where - decodeJson = defer \_ -> D.decode - $ D.sumType "BeneficialOwner" - $ Map.fromFoldable - [ "OwnedByPaymentPubKey" /\ D.content (OwnedByPaymentPubKey <$> D.value) - , "OwnedByScript" /\ D.content (OwnedByScript <$> D.value) - ] - -derive instance Generic BeneficialOwner _ - --------------------------------------------------------------------------------- - -_OwnedByPaymentPubKey :: Prism' BeneficialOwner PaymentPubKeyHash -_OwnedByPaymentPubKey = prism' OwnedByPaymentPubKey case _ of - (OwnedByPaymentPubKey a) -> Just a - _ -> Nothing - -_OwnedByScript :: Prism' BeneficialOwner String -_OwnedByScript = prism' OwnedByScript case _ of - (OwnedByScript a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -data DereferencedInput - = DereferencedInput - { originalInput :: TxIn - , refersTo :: TxOut - } - | InputNotFound TxKey - -derive instance Eq DereferencedInput - -instance Show DereferencedInput where - show a = genericShow a - -instance EncodeJson DereferencedInput where - encodeJson = defer \_ -> case _ of - DereferencedInput { originalInput, refersTo } -> encodeJson - { tag: "DereferencedInput" - , originalInput: flip E.encode originalInput E.value - , refersTo: flip E.encode refersTo E.value - } - InputNotFound a -> E.encodeTagged "InputNotFound" a E.value - -instance DecodeJson DereferencedInput where - decodeJson = defer \_ -> D.decode - $ D.sumType "DereferencedInput" - $ Map.fromFoldable - [ "DereferencedInput" /\ - ( DereferencedInput <$> D.object "DereferencedInput" - { originalInput: D.value :: _ TxIn - , refersTo: D.value :: _ TxOut - } - ) - , "InputNotFound" /\ D.content (InputNotFound <$> D.value) - ] - -derive instance Generic DereferencedInput _ - --------------------------------------------------------------------------------- - -_DereferencedInput - :: Prism' DereferencedInput { originalInput :: TxIn, refersTo :: TxOut } -_DereferencedInput = prism' DereferencedInput case _ of - (DereferencedInput a) -> Just a - _ -> Nothing - -_InputNotFound :: Prism' DereferencedInput TxKey -_InputNotFound = prism' InputNotFound case _ of - (InputNotFound a) -> Just a - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype SequenceId = SequenceId - { slotIndex :: Int - , txIndex :: Int - } - -derive instance Eq SequenceId - -derive instance Ord SequenceId - -instance Show SequenceId where - show a = genericShow a - -instance EncodeJson SequenceId where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { slotIndex: E.value :: _ Int - , txIndex: E.value :: _ Int - } - ) - -instance DecodeJson SequenceId where - decodeJson = defer \_ -> D.decode $ - ( SequenceId <$> D.record "SequenceId" - { slotIndex: D.value :: _ Int - , txIndex: D.value :: _ Int - } - ) - -derive instance Generic SequenceId _ - -derive instance Newtype SequenceId _ - --------------------------------------------------------------------------------- - -_SequenceId :: Iso' SequenceId { slotIndex :: Int, txIndex :: Int } -_SequenceId = _Newtype - --------------------------------------------------------------------------------- - -newtype TxKey = TxKey - { _txKeyTxId :: TxId - , _txKeyTxOutRefIdx :: BigInt - } - -derive instance Eq TxKey - -derive instance Ord TxKey - -instance Show TxKey where - show a = genericShow a - -instance EncodeJson TxKey where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { _txKeyTxId: E.value :: _ TxId - , _txKeyTxOutRefIdx: E.value :: _ BigInt - } - ) - -instance DecodeJson TxKey where - decodeJson = defer \_ -> D.decode $ - ( TxKey <$> D.record "TxKey" - { _txKeyTxId: D.value :: _ TxId - , _txKeyTxOutRefIdx: D.value :: _ BigInt - } - ) - -derive instance Generic TxKey _ - -derive instance Newtype TxKey _ - --------------------------------------------------------------------------------- - -_TxKey :: Iso' TxKey { _txKeyTxId :: TxId, _txKeyTxOutRefIdx :: BigInt } -_TxKey = _Newtype - -txKeyTxId :: Lens' TxKey TxId -txKeyTxId = _Newtype <<< prop (Proxy :: _ "_txKeyTxId") - -txKeyTxOutRefIdx :: Lens' TxKey BigInt -txKeyTxOutRefIdx = _Newtype <<< prop (Proxy :: _ "_txKeyTxOutRefIdx") diff --git a/marlowe-playground-client/generated/Wallet/Types.purs b/marlowe-playground-client/generated/Wallet/Types.purs deleted file mode 100644 index 9b621758aa..0000000000 --- a/marlowe-playground-client/generated/Wallet/Types.purs +++ /dev/null @@ -1,291 +0,0 @@ --- File auto generated by purescript-bridge! -- -module Wallet.Types where - -import Prelude - -import Control.Lazy (defer) -import Data.Argonaut (encodeJson, jsonNull) -import Data.Argonaut.Decode (class DecodeJson) -import Data.Argonaut.Decode.Aeson ((), (), ()) -import Data.Argonaut.Decode.Aeson as D -import Data.Argonaut.Encode (class EncodeJson) -import Data.Argonaut.Encode.Aeson ((>$<), (>/\<)) -import Data.Argonaut.Encode.Aeson as E -import Data.Bounded.Generic (genericBottom, genericTop) -import Data.Enum (class Enum) -import Data.Enum.Generic (genericPred, genericSucc) -import Data.Generic.Rep (class Generic) -import Data.Lens (Iso', Lens', Prism', iso, prism') -import Data.Lens.Iso.Newtype (_Newtype) -import Data.Lens.Record (prop) -import Data.Map as Map -import Data.Maybe (Maybe(..)) -import Data.Newtype (class Newtype, unwrap) -import Data.RawJson (RawJson) -import Data.Show.Generic (genericShow) -import Data.Tuple.Nested ((/\)) -import Data.UUID.Argonaut (UUID) -import Type.Proxy (Proxy(Proxy)) - -data ContractActivityStatus - = Active - | Stopped - | Done - -derive instance Eq ContractActivityStatus - -derive instance Ord ContractActivityStatus - -instance Show ContractActivityStatus where - show a = genericShow a - -instance EncodeJson ContractActivityStatus where - encodeJson = defer \_ -> E.encode E.enum - -instance DecodeJson ContractActivityStatus where - decodeJson = defer \_ -> D.decode D.enum - -derive instance Generic ContractActivityStatus _ - -instance Enum ContractActivityStatus where - succ = genericSucc - pred = genericPred - -instance Bounded ContractActivityStatus where - bottom = genericBottom - top = genericTop - --------------------------------------------------------------------------------- - -_Active :: Prism' ContractActivityStatus Unit -_Active = prism' (const Active) case _ of - Active -> Just unit - _ -> Nothing - -_Stopped :: Prism' ContractActivityStatus Unit -_Stopped = prism' (const Stopped) case _ of - Stopped -> Just unit - _ -> Nothing - -_Done :: Prism' ContractActivityStatus Unit -_Done = prism' (const Done) case _ of - Done -> Just unit - _ -> Nothing - --------------------------------------------------------------------------------- - -newtype ContractInstanceId = ContractInstanceId { unContractInstanceId :: UUID } - -derive instance Eq ContractInstanceId - -derive instance Ord ContractInstanceId - -instance Show ContractInstanceId where - show a = genericShow a - -instance EncodeJson ContractInstanceId where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unContractInstanceId: E.value :: _ UUID } - ) - -instance DecodeJson ContractInstanceId where - decodeJson = defer \_ -> D.decode $ - ( ContractInstanceId <$> D.record "ContractInstanceId" - { unContractInstanceId: D.value :: _ UUID } - ) - -derive instance Generic ContractInstanceId _ - -derive instance Newtype ContractInstanceId _ - --------------------------------------------------------------------------------- - -_ContractInstanceId :: Iso' ContractInstanceId { unContractInstanceId :: UUID } -_ContractInstanceId = _Newtype - --------------------------------------------------------------------------------- - -newtype EndpointDescription = EndpointDescription - { getEndpointDescription :: String } - -instance Show EndpointDescription where - show a = genericShow a - -derive instance Eq EndpointDescription - -derive instance Ord EndpointDescription - -instance EncodeJson EndpointDescription where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { getEndpointDescription: E.value :: _ String } - ) - -instance DecodeJson EndpointDescription where - decodeJson = defer \_ -> D.decode $ - ( EndpointDescription <$> D.record "EndpointDescription" - { getEndpointDescription: D.value :: _ String } - ) - -derive instance Generic EndpointDescription _ - -derive instance Newtype EndpointDescription _ - --------------------------------------------------------------------------------- - -_EndpointDescription - :: Iso' EndpointDescription { getEndpointDescription :: String } -_EndpointDescription = _Newtype - --------------------------------------------------------------------------------- - -newtype EndpointValue a = EndpointValue { unEndpointValue :: a } - -derive instance (Eq a) => Eq (EndpointValue a) - -instance (Show a) => Show (EndpointValue a) where - show a = genericShow a - -instance (EncodeJson a) => EncodeJson (EndpointValue a) where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { unEndpointValue: E.value :: _ a } - ) - -instance (DecodeJson a) => DecodeJson (EndpointValue a) where - decodeJson = defer \_ -> D.decode $ - ( EndpointValue <$> D.record "EndpointValue" - { unEndpointValue: D.value :: _ a } - ) - -derive instance Generic (EndpointValue a) _ - -derive instance Newtype (EndpointValue a) _ - --------------------------------------------------------------------------------- - -_EndpointValue :: forall a. Iso' (EndpointValue a) { unEndpointValue :: a } -_EndpointValue = _Newtype - --------------------------------------------------------------------------------- - -newtype Notification = Notification - { notificationContractID :: ContractInstanceId - , notificationContractEndpoint :: EndpointDescription - , notificationContractArg :: RawJson - } - -derive instance Eq Notification - -instance Show Notification where - show a = genericShow a - -instance EncodeJson Notification where - encodeJson = defer \_ -> E.encode $ unwrap >$< - ( E.record - { notificationContractID: E.value :: _ ContractInstanceId - , notificationContractEndpoint: E.value :: _ EndpointDescription - , notificationContractArg: E.value :: _ RawJson - } - ) - -instance DecodeJson Notification where - decodeJson = defer \_ -> D.decode $ - ( Notification <$> D.record "Notification" - { notificationContractID: D.value :: _ ContractInstanceId - , notificationContractEndpoint: D.value :: _ EndpointDescription - , notificationContractArg: D.value :: _ RawJson - } - ) - -derive instance Generic Notification _ - -derive instance Newtype Notification _ - --------------------------------------------------------------------------------- - -_Notification - :: Iso' Notification - { notificationContractID :: ContractInstanceId - , notificationContractEndpoint :: EndpointDescription - , notificationContractArg :: RawJson - } -_Notification = _Newtype - --------------------------------------------------------------------------------- - -data NotificationError - = EndpointNotAvailable ContractInstanceId EndpointDescription - | MoreThanOneEndpointAvailable ContractInstanceId EndpointDescription - | InstanceDoesNotExist ContractInstanceId - | NotificationJSONDecodeError EndpointDescription RawJson String - -derive instance Eq NotificationError - -instance Show NotificationError where - show a = genericShow a - -instance EncodeJson NotificationError where - encodeJson = defer \_ -> case _ of - EndpointNotAvailable a b -> E.encodeTagged "EndpointNotAvailable" (a /\ b) - (E.tuple (E.value >/\< E.value)) - MoreThanOneEndpointAvailable a b -> E.encodeTagged - "MoreThanOneEndpointAvailable" - (a /\ b) - (E.tuple (E.value >/\< E.value)) - InstanceDoesNotExist a -> E.encodeTagged "InstanceDoesNotExist" a E.value - NotificationJSONDecodeError a b c -> E.encodeTagged - "NotificationJSONDecodeError" - (a /\ b /\ c) - (E.tuple (E.value >/\< E.value >/\< E.value)) - -instance DecodeJson NotificationError where - decodeJson = defer \_ -> D.decode - $ D.sumType "NotificationError" - $ Map.fromFoldable - [ "EndpointNotAvailable" /\ D.content - (D.tuple $ EndpointNotAvailable D.value D.value) - , "MoreThanOneEndpointAvailable" /\ D.content - (D.tuple $ MoreThanOneEndpointAvailable D.value D.value) - , "InstanceDoesNotExist" /\ D.content (InstanceDoesNotExist <$> D.value) - , "NotificationJSONDecodeError" /\ D.content - ( D.tuple $ NotificationJSONDecodeError D.value D.value - D.value - ) - ] - -derive instance Generic NotificationError _ - --------------------------------------------------------------------------------- - -_EndpointNotAvailable - :: Prism' NotificationError - { a :: ContractInstanceId, b :: EndpointDescription } -_EndpointNotAvailable = prism' (\{ a, b } -> (EndpointNotAvailable a b)) - case _ of - (EndpointNotAvailable a b) -> Just { a, b } - _ -> Nothing - -_MoreThanOneEndpointAvailable - :: Prism' NotificationError - { a :: ContractInstanceId, b :: EndpointDescription } -_MoreThanOneEndpointAvailable = prism' - (\{ a, b } -> (MoreThanOneEndpointAvailable a b)) - case _ of - (MoreThanOneEndpointAvailable a b) -> Just { a, b } - _ -> Nothing - -_InstanceDoesNotExist :: Prism' NotificationError ContractInstanceId -_InstanceDoesNotExist = prism' InstanceDoesNotExist case _ of - (InstanceDoesNotExist a) -> Just a - _ -> Nothing - -_NotificationJSONDecodeError - :: Prism' NotificationError - { a :: EndpointDescription, b :: RawJson, c :: String } -_NotificationJSONDecodeError = prism' - (\{ a, b, c } -> (NotificationJSONDecodeError a b c)) - case _ of - (NotificationJSONDecodeError a b c) -> Just { a, b, c } - _ -> Nothing diff --git a/marlowe-playground-server/app/PSGenerator.hs b/marlowe-playground-server/app/PSGenerator.hs index 879a286438..ae40711a74 100644 --- a/marlowe-playground-server/app/PSGenerator.hs +++ b/marlowe-playground-server/app/PSGenerator.hs @@ -2,6 +2,7 @@ {-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE LambdaCase #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE OverloadedStrings #-} @@ -19,7 +20,7 @@ import qualified API import qualified Auth import qualified ContractForDifferences import qualified ContractForDifferencesWithOracle -import Control.Applicative ((<|>)) +import Control.Applicative (empty, (<|>)) import Control.Lens (set, (&)) import Control.Monad.Reader (MonadReader) import qualified CouponBondGuaranteed @@ -33,11 +34,12 @@ import qualified Data.Text.IO as T () import qualified Escrow import qualified EscrowWithCollateral import qualified Example +import Gist (Gist, GistFile, NewGist, NewGistFile, Owner) import Language.Haskell.Interpreter (CompilationError, InterpreterError, InterpreterResult, SourceCode, Warning) import Language.Marlowe.Extended.V1 import Language.PureScript.Bridge (BridgePart, Language (Haskell, PureScript), PSType, SumType (..), TypeInfo (..), - argonaut, buildBridge, genericShow, mkSumType, psTypeParameters, typeModule, - typeName, (^==)) + argonaut, buildBridge, equal, genericShow, mkSumType, order, psTypeParameters, + typeModule, typeName, (^==)) import Language.PureScript.Bridge.Builder (BridgeData) import Language.PureScript.Bridge.PSTypes (psString) import Language.PureScript.Bridge.TypeParameters (A) @@ -46,7 +48,6 @@ import Marlowe.Contracts (contractForDifferences, contractForDifferencesWithOrac import qualified Marlowe.Symbolic.Server as MS import qualified Marlowe.Symbolic.Types.Request as MSReq import qualified Marlowe.Symbolic.Types.Response as MSRes --- import qualified PSGenerator.Common import Servant ((:<|>), (:>)) import Servant.PureScript (HasBridge, Settings, addTypes, apiModuleName, defaultBridge, defaultSettings, generateWithSettings, languageBridge) @@ -56,6 +57,15 @@ import System.FilePath (()) import qualified Webghc.Server as Webghc import qualified ZeroCouponBond +psJson :: PSType +psJson = TypeInfo "web-common" "Data.RawJson" "RawJson" [] + +aesonValueBridge :: BridgePart +aesonValueBridge = do + typeName ^== "Value" + typeModule ^== "Data.Aeson.Types.Internal" + pure psJson + -- See Note [GistID hotfix] psGistId :: TypeInfo 'PureScript psGistId = TypeInfo "marlowe-playground-client" "Gists.Extra" "GistId" [] @@ -139,18 +149,40 @@ dayBridge = typeName ^== "Day" >> return psString timeBridge :: BridgePart timeBridge = typeName ^== "LocalTime" >> return psString +psBigInteger :: PSType +psBigInteger = TypeInfo "web-common" "Data.BigInt.Argonaut" "BigInt" [] + +integerBridge :: BridgePart +integerBridge = do + typeName ^== "Integer" + pure psBigInteger + + +headersBridge :: BridgePart +headersBridge = do + typeModule ^== "Servant.API.ResponseHeaders" + typeName ^== "Headers" + -- Headers should have two parameters, the list of headers and the return type. + psTypeParameters >>= \case + [_, returnType] -> pure returnType + _ -> empty + +headerBridge :: BridgePart +headerBridge = do + typeModule ^== "Servant.API.Header" + typeName ^== "Header'" + empty + +servantBridge :: BridgePart +servantBridge = headersBridge <|> headerBridge + myBridge :: BridgePart myBridge = -- See Note [GistID hotfix] gistIdBridge <|> - -- FIXME: Just commenting these, not removing until I make SCP-4726 to see that it - -- does not affect the entire build - -- PSGenerator.Common.aesonBridge <|> - -- PSGenerator.Common.containersBridge <|> - -- PSGenerator.Common.languageBridge <|> - -- PSGenerator.Common.ledgerBridge <|> - -- PSGenerator.Common.servantBridge <|> - -- PSGenerator.Common.miscBridge <|> + aesonValueBridge <|> + servantBridge <|> + integerBridge <|> dayBridge <|> timeBridge <|> contractBridge <|> @@ -169,27 +201,27 @@ myBridgeProxy = Proxy instance HasBridge MyBridge where languageBridge _ = buildBridge myBridge --- -- See Note [GistID hotfix] --- playgroundTypes' :: [SumType 'Haskell] --- playgroundTypes' = filter (\(SumType TypeInfo{_typeName} _ _) -> _typeName /= "GistId" ) --- PSGenerator.Common.playgroundTypes myTypes :: [SumType 'Haskell] myTypes = - -- PSGenerator.Common.ledgerTypes <> - -- PSGenerator.Common.walletTypes <> - -- playgroundTypes' <> - [ argonaut $ mkSumType @SourceCode - , argonaut $ mkSumType @CompilationError - , argonaut $ mkSumType @InterpreterError - , argonaut $ mkSumType @Warning - , argonaut $ mkSumType @(InterpreterResult A) - , genericShow . argonaut $ mkSumType @MSRes.Response - , genericShow . argonaut $ mkSumType @MSRes.Result - , argonaut $ mkSumType @MSReq.Request - , argonaut $ mkSumType @Webghc.CompileRequest - ] + [ + equal . genericShow . argonaut $ mkSumType @Gist + , equal . genericShow . argonaut $ mkSumType @GistFile + , argonaut $ mkSumType @NewGist + , argonaut $ mkSumType @NewGistFile + , equal . genericShow . argonaut $ mkSumType @Owner + , equal . genericShow . argonaut $ mkSumType @Auth.AuthStatus + , order . equal . genericShow . argonaut $ mkSumType @Auth.AuthRole + , argonaut $ mkSumType @CompilationError + , argonaut $ mkSumType @InterpreterError + , argonaut $ mkSumType @Warning + , argonaut $ mkSumType @(InterpreterResult A) + , genericShow . argonaut $ mkSumType @MSRes.Response + , genericShow . argonaut $ mkSumType @MSRes.Result + , argonaut $ mkSumType @MSReq.Request + , argonaut $ mkSumType @Webghc.CompileRequest + ] mySettings :: Settings mySettings = defaultSettings diff --git a/marlowe-playground-server/marlowe-playground-server.cabal b/marlowe-playground-server/marlowe-playground-server.cabal index 2175b2ffb3..11eacf981d 100644 --- a/marlowe-playground-server/marlowe-playground-server.cabal +++ b/marlowe-playground-server/marlowe-playground-server.cabal @@ -24,6 +24,7 @@ library Marlowe.Contracts Marlowe.Mermaid Server + Gist -- contracts ContractForDifferences ContractForDifferencesWithOracle @@ -43,7 +44,6 @@ library Control.Monad.Now Control.Monad.Trace Control.Monad.Web - Gist Webghc.Client Webghc.Interpreter Servant.Extra diff --git a/marlowe-symbolic/marlowe-symbolic.cabal b/marlowe-symbolic/marlowe-symbolic.cabal index 095c0ca67c..1bf618bd4a 100644 --- a/marlowe-symbolic/marlowe-symbolic.cabal +++ b/marlowe-symbolic/marlowe-symbolic.cabal @@ -1,7 +1,7 @@ name: marlowe-symbolic version: 0.3.0.0 license: BSD3 -license-file: LICENSE +license-file: ../LICENSE author: Alexander Nemish maintainer: alexander.nemish@iohk.io build-type: Simple diff --git a/nix/pkgs/haskell/materialized-darwin/default.nix b/nix/pkgs/haskell/materialized-darwin/default.nix deleted file mode 100644 index faf8e58806..0000000000 --- a/nix/pkgs/haskell/materialized-darwin/default.nix +++ /dev/null @@ -1,1815 +0,0 @@ -{ - pkgs = hackage: - { - packages = { - "charset".revision = (((hackage."charset")."0.3.9").revisions).default; - "partial-order".revision = (((hackage."partial-order")."0.2.0.0").revisions).default; - "partial-order".flags.extra-instances = true; - "wcwidth".revision = (((hackage."wcwidth")."0.0.2").revisions).default; - "wcwidth".flags.split-base = true; - "wcwidth".flags.cli = false; - "old-time".revision = (((hackage."old-time")."1.1.0.3").revisions).default; - "ghc-boot".revision = (((hackage."ghc-boot")."8.10.7").revisions).default; - "row-types".revision = (((hackage."row-types")."1.0.1.2").revisions).default; - "tf-random".revision = (((hackage."tf-random")."0.5").revisions).default; - "servant-client".revision = (((hackage."servant-client")."0.18.3").revisions).default; - "mmorph".revision = (((hackage."mmorph")."1.1.5").revisions).default; - "http-conduit".revision = (((hackage."http-conduit")."2.3.8").revisions).default; - "http-conduit".flags.aeson = true; - "natural-transformation".revision = (((hackage."natural-transformation")."0.4").revisions).default; - "network-bsd".revision = (((hackage."network-bsd")."2.8.1.0").revisions).default; - "req".revision = (((hackage."req")."3.10.0").revisions).default; - "req".flags.dev = false; - "happy".revision = (((hackage."happy")."1.20.0").revisions).default; - "blaze-textual".revision = (((hackage."blaze-textual")."0.2.2.1").revisions).default; - "blaze-textual".flags.integer-simple = false; - "blaze-textual".flags.developer = false; - "blaze-textual".flags.native = true; - "streaming-commons".revision = (((hackage."streaming-commons")."0.2.2.4").revisions).default; - "streaming-commons".flags.use-bytestring-builder = false; - "pretty".revision = (((hackage."pretty")."1.1.3.6").revisions).default; - "haskell-src-exts".revision = (((hackage."haskell-src-exts")."1.23.1").revisions).default; - "cborg".revision = (((hackage."cborg")."0.2.6.0").revisions).default; - "cborg".flags.optimize-gmp = true; - "regex-posix".revision = (((hackage."regex-posix")."0.96.0.1").revisions).default; - "regex-posix".flags._regex-posix-clib = false; - "servant-swagger-ui-core".revision = (((hackage."servant-swagger-ui-core")."0.3.5").revisions).default; - "network-uri".revision = (((hackage."network-uri")."2.6.4.1").revisions).default; - "universe-reverse-instances".revision = (((hackage."universe-reverse-instances")."1.1.1").revisions).default; - "parsers".revision = (((hackage."parsers")."0.12.10").revisions).default; - "parsers".flags.parsec = true; - "parsers".flags.binary = true; - "parsers".flags.attoparsec = true; - "unordered-containers".revision = (((hackage."unordered-containers")."0.2.16.0").revisions).default; - "unordered-containers".flags.debug = false; - "cassava".revision = (((hackage."cassava")."0.5.2.0").revisions).default; - "cassava".flags.bytestring--lt-0_10_4 = false; - "vector-binary-instances".revision = (((hackage."vector-binary-instances")."0.2.5.2").revisions).default; - "integer-logarithms".revision = (((hackage."integer-logarithms")."1.0.3.1").revisions).default; - "integer-logarithms".flags.check-bounds = false; - "integer-logarithms".flags.integer-gmp = true; - "HUnit".revision = (((hackage."HUnit")."1.6.2.0").revisions).default; - "hourglass".revision = (((hackage."hourglass")."0.2.12").revisions).default; - "psqueues".revision = (((hackage."psqueues")."0.2.7.3").revisions).default; - "servant-options".revision = (((hackage."servant-options")."0.1.0.0").revisions).default; - "adjunctions".revision = (((hackage."adjunctions")."4.4").revisions).default; - "dlist".revision = (((hackage."dlist")."1.0").revisions).default; - "dlist".flags.werror = false; - "servant-multipart".revision = (((hackage."servant-multipart")."0.12.1").revisions).default; - "string-interpolate".revision = (((hackage."string-interpolate")."0.3.1.1").revisions).default; - "string-interpolate".flags.bytestring-builder = false; - "string-interpolate".flags.text-builder = false; - "string-interpolate".flags.extended-benchmarks = false; - "text".revision = (((hackage."text")."1.2.4.1").revisions).default; - "lift-type".revision = (((hackage."lift-type")."0.1.0.1").revisions).default; - "easy-file".revision = (((hackage."easy-file")."0.2.2").revisions).default; - "math-functions".revision = (((hackage."math-functions")."0.3.4.2").revisions).default; - "math-functions".flags.system-erf = true; - "math-functions".flags.system-expm1 = true; - "fmt".revision = (((hackage."fmt")."0.6.1.2").revisions).default; - "servant-multipart-client".revision = (((hackage."servant-multipart-client")."0.12.1").revisions).default; - "groups".revision = (((hackage."groups")."0.5.3").revisions).default; - "Stream".revision = (((hackage."Stream")."0.4.7.2").revisions).default; - "aeson-casing".revision = (((hackage."aeson-casing")."0.2.0.0").revisions).default; - "threepenny-gui".revision = (((hackage."threepenny-gui")."0.9.1.0").revisions).default; - "threepenny-gui".flags.buildexamples = false; - "threepenny-gui".flags.rebug = false; - "entropy".revision = (((hackage."entropy")."0.4.1.7").revisions).default; - "entropy".flags.halvm = false; - "lzma".revision = (((hackage."lzma")."0.0.0.3").revisions).default; - "array".revision = (((hackage."array")."0.5.4.0").revisions).default; - "base64-bytestring".revision = (((hackage."base64-bytestring")."1.2.1.0").revisions).default; - "network".revision = (((hackage."network")."3.1.2.7").revisions).default; - "network".flags.devel = false; - "servant-openapi3".revision = (((hackage."servant-openapi3")."2.0.1.3").revisions).default; - "statistics".revision = (((hackage."statistics")."0.16.0.1").revisions).default; - "invariant".revision = (((hackage."invariant")."0.5.3").revisions).default; - "int-cast".revision = (((hackage."int-cast")."0.2.0.0").revisions).default; - "parallel".revision = (((hackage."parallel")."3.2.2.0").revisions).default; - "asn1-parse".revision = (((hackage."asn1-parse")."0.9.5").revisions).default; - "microstache".revision = (((hackage."microstache")."1.0.2").revisions).default; - "quickcheck-classes-base".revision = (((hackage."quickcheck-classes-base")."0.6.2.0").revisions).default; - "quickcheck-classes-base".flags.binary-laws = true; - "quickcheck-classes-base".flags.unary-laws = true; - "random-shuffle".revision = (((hackage."random-shuffle")."0.0.4").revisions).default; - "parser-combinators".revision = (((hackage."parser-combinators")."1.3.0").revisions).default; - "parser-combinators".flags.dev = false; - "MonadRandom".revision = (((hackage."MonadRandom")."0.5.3").revisions).default; - "beam-migrate".revision = (((hackage."beam-migrate")."0.5.1.2").revisions).default; - "beam-migrate".flags.werror = false; - "cryptonite".revision = (((hackage."cryptonite")."0.27").revisions).default; - "cryptonite".flags.check_alignment = false; - "cryptonite".flags.support_sse = false; - "cryptonite".flags.use_target_attributes = true; - "cryptonite".flags.support_deepseq = true; - "cryptonite".flags.support_rdrand = true; - "cryptonite".flags.old_toolchain_inliner = false; - "cryptonite".flags.integer-gmp = true; - "cryptonite".flags.support_pclmuldq = false; - "cryptonite".flags.support_aesni = true; - "unagi-chan".revision = (((hackage."unagi-chan")."0.4.1.4").revisions).default; - "unagi-chan".flags.compare-benchmarks = false; - "servant-server".revision = (((hackage."servant-server")."0.18.3").revisions).default; - "vector".revision = (((hackage."vector")."0.12.3.1").revisions).default; - "vector".flags.internalchecks = false; - "vector".flags.wall = false; - "vector".flags.boundschecks = true; - "vector".flags.unsafechecks = false; - "socks".revision = (((hackage."socks")."0.6.1").revisions).default; - "erf".revision = (((hackage."erf")."2.0.0.0").revisions).default; - "lens".revision = (((hackage."lens")."4.19.2").revisions).default; - "lens".flags.safe = false; - "lens".flags.test-templates = true; - "lens".flags.benchmark-uniplate = false; - "lens".flags.test-properties = true; - "lens".flags.j = false; - "lens".flags.trustworthy = true; - "lens".flags.test-hunit = true; - "lens".flags.old-inline-pragmas = false; - "lens".flags.test-doctests = true; - "lens".flags.dump-splices = false; - "lens".flags.inlining = true; - "http-types".revision = (((hackage."http-types")."0.12.3").revisions).default; - "some".revision = (((hackage."some")."1.0.2").revisions).default; - "some".flags.newtype-unsafe = true; - "temporary".revision = (((hackage."temporary")."1.3").revisions).default; - "jwt".revision = (((hackage."jwt")."0.11.0").revisions).default; - "katip".revision = (((hackage."katip")."0.8.7.0").revisions).default; - "katip".flags.lib-werror = false; - "quickcheck-classes".revision = (((hackage."quickcheck-classes")."0.6.5.0").revisions).default; - "quickcheck-classes".flags.aeson = true; - "quickcheck-classes".flags.semigroupoids = true; - "quickcheck-classes".flags.semirings = true; - "quickcheck-classes".flags.binary-laws = true; - "quickcheck-classes".flags.unary-laws = true; - "quickcheck-classes".flags.vector = true; - "comonad".revision = (((hackage."comonad")."5.0.8").revisions).default; - "comonad".flags.containers = true; - "comonad".flags.distributive = true; - "comonad".flags.indexed-traversable = true; - "x509".revision = (((hackage."x509")."1.7.6").revisions).default; - "optics-th".revision = (((hackage."optics-th")."0.3.0.2").revisions).default; - "profunctors".revision = (((hackage."profunctors")."5.6").revisions).default; - "x509-system".revision = (((hackage."x509-system")."1.6.7").revisions).default; - "appar".revision = (((hackage."appar")."0.1.8").revisions).default; - "extra".revision = (((hackage."extra")."1.7.10").revisions).default; - "asn1-types".revision = (((hackage."asn1-types")."0.3.4").revisions).default; - "base-compat".revision = (((hackage."base-compat")."0.11.2").revisions).default; - "string-conversions".revision = (((hackage."string-conversions")."0.4.0.1").revisions).default; - "snap-server".revision = (((hackage."snap-server")."1.1.2.0").revisions).default; - "snap-server".flags.portable = false; - "snap-server".flags.build-pong = false; - "snap-server".flags.build-testserver = false; - "snap-server".flags.openssl = false; - "snap-server".flags.debug = false; - "zlib-bindings".revision = (((hackage."zlib-bindings")."0.1.1.5").revisions).default; - "bytestring-builder".revision = (((hackage."bytestring-builder")."0.10.8.2.0").revisions).default; - "bytestring-builder".flags.bytestring_has_builder = true; - "generic-random".revision = (((hackage."generic-random")."1.5.0.1").revisions).default; - "generic-random".flags.enable-inspect = false; - "contravariant".revision = (((hackage."contravariant")."1.5.5").revisions).default; - "contravariant".flags.tagged = true; - "contravariant".flags.semigroups = true; - "contravariant".flags.statevar = true; - "wl-pprint-text".revision = (((hackage."wl-pprint-text")."1.2.0.2").revisions).default; - "persistent-sqlite".revision = (((hackage."persistent-sqlite")."2.13.1.0").revisions).default; - "persistent-sqlite".flags.use-pkgconfig = false; - "persistent-sqlite".flags.use-stat3 = false; - "persistent-sqlite".flags.systemlib = false; - "persistent-sqlite".flags.uri-filenames = true; - "persistent-sqlite".flags.use-stat4 = true; - "persistent-sqlite".flags.build-sanity-exe = false; - "persistent-sqlite".flags.have-usleep = true; - "persistent-sqlite".flags.full-text-search = true; - "persistent-sqlite".flags.json1 = true; - "ghc".revision = (((hackage."ghc")."8.10.7").revisions).default; - "base-compat-batteries".revision = (((hackage."base-compat-batteries")."0.11.2").revisions).default; - "safe".revision = (((hackage."safe")."0.3.19").revisions).default; - "generic-lens-core".revision = (((hackage."generic-lens-core")."2.2.1.0").revisions).default; - "tree-diff".revision = (((hackage."tree-diff")."0.2.1.1").revisions).default; - "yaml".revision = (((hackage."yaml")."0.11.7.0").revisions).default; - "yaml".flags.no-examples = true; - "yaml".flags.no-exe = true; - "tasty-quickcheck".revision = (((hackage."tasty-quickcheck")."0.10.2").revisions).default; - "th-lift-instances".revision = (((hackage."th-lift-instances")."0.1.19").revisions).default; - "Cabal".revision = (((hackage."Cabal")."3.2.1.0").revisions).default; - "pretty-simple".revision = (((hackage."pretty-simple")."4.0.0.0").revisions).default; - "pretty-simple".flags.buildexe = false; - "pretty-simple".flags.buildexample = false; - "mtl-compat".revision = (((hackage."mtl-compat")."0.2.2").revisions).default; - "mtl-compat".flags.two-point-two = false; - "mtl-compat".flags.two-point-one = false; - "sop-core".revision = (((hackage."sop-core")."0.5.0.2").revisions).default; - "assoc".revision = (((hackage."assoc")."1.0.2").revisions).default; - "IntervalMap".revision = (((hackage."IntervalMap")."0.6.1.2").revisions).default; - "safe-money".revision = (((hackage."safe-money")."0.9.1").revisions).default; - "websockets-snap".revision = (((hackage."websockets-snap")."0.10.3.1").revisions).default; - "blockfrost-client".revision = (((hackage."blockfrost-client")."0.3.1.0").revisions).default; - "blockfrost-client".flags.production = false; - "blockfrost-client".flags.buildfast = true; - "blockfrost-client".flags.examples = false; - "unliftio".revision = (((hackage."unliftio")."0.2.21.0").revisions).default; - "data-fix".revision = (((hackage."data-fix")."0.3.2").revisions).default; - "tls".revision = (((hackage."tls")."1.5.7").revisions).default; - "tls".flags.network = true; - "tls".flags.hans = false; - "tls".flags.compat = true; - "quickcheck-io".revision = (((hackage."quickcheck-io")."0.2.0").revisions).default; - "time-locale-compat".revision = (((hackage."time-locale-compat")."0.1.1.5").revisions).default; - "time-locale-compat".flags.old-locale = false; - "ekg-core".revision = (((hackage."ekg-core")."0.1.1.7").revisions).default; - "retry".revision = (((hackage."retry")."0.9.1.0").revisions).default; - "retry".flags.lib-werror = false; - "deque".revision = (((hackage."deque")."0.4.4").revisions).default; - "http-client-tls".revision = (((hackage."http-client-tls")."0.3.6.1").revisions).default; - "bech32-th".revision = (((hackage."bech32-th")."1.1.1").revisions).default; - "bech32-th".flags.release = false; - "tls-session-manager".revision = (((hackage."tls-session-manager")."0.0.4").revisions).default; - "basement".revision = (((hackage."basement")."0.0.12").revisions).default; - "alex".revision = (((hackage."alex")."3.2.7.1").revisions).default; - "generic-lens".revision = (((hackage."generic-lens")."2.2.1.0").revisions).default; - "servant-websockets".revision = (((hackage."servant-websockets")."2.0.0").revisions).default; - "old-locale".revision = (((hackage."old-locale")."1.0.0.7").revisions).default; - "constraints-extras".revision = (((hackage."constraints-extras")."0.3.2.1").revisions).default; - "constraints-extras".flags.build-readme = true; - "tasty".revision = (((hackage."tasty")."1.4.2.1").revisions).default; - "tasty".flags.clock = true; - "tasty".flags.unix = true; - "mtl".revision = (((hackage."mtl")."2.2.2").revisions).default; - "OneTuple".revision = (((hackage."OneTuple")."0.3.1").revisions).default; - "monad-par".revision = (((hackage."monad-par")."0.3.5").revisions).default; - "monad-par".flags.chaselev = false; - "monad-par".flags.newgeneric = false; - "mime-types".revision = (((hackage."mime-types")."0.1.0.9").revisions).default; - "serialise".revision = (((hackage."serialise")."0.2.4.0").revisions).default; - "serialise".flags.newtime15 = true; - "silently".revision = (((hackage."silently")."1.2.5.2").revisions).default; - "prometheus".revision = (((hackage."prometheus")."2.2.3").revisions).default; - "monad-logger".revision = (((hackage."monad-logger")."0.3.36").revisions).default; - "monad-logger".flags.template_haskell = true; - "parsec".revision = (((hackage."parsec")."3.1.14.0").revisions).default; - "mwc-random".revision = (((hackage."mwc-random")."0.15.0.2").revisions).default; - "bytestring".revision = (((hackage."bytestring")."0.10.12.0").revisions).default; - "list-t".revision = (((hackage."list-t")."1.0.5.1").revisions).default; - "attoparsec-iso8601".revision = (((hackage."attoparsec-iso8601")."1.0.2.0").revisions).default; - "attoparsec-iso8601".flags.fast = false; - "attoparsec-iso8601".flags.developer = false; - "lattices".revision = (((hackage."lattices")."2.0.3").revisions).default; - "beam-sqlite".revision = (((hackage."beam-sqlite")."0.5.1.2").revisions).default; - "beam-sqlite".flags.werror = false; - "hspec-expectations-lifted".revision = (((hackage."hspec-expectations-lifted")."0.10.0").revisions).default; - "vector-sized".revision = (((hackage."vector-sized")."1.5.0").revisions).default; - "reflection".revision = (((hackage."reflection")."2.1.6").revisions).default; - "reflection".flags.slow = false; - "reflection".flags.template-haskell = true; - "newtype".revision = (((hackage."newtype")."0.2.2.0").revisions).default; - "hspec-discover".revision = (((hackage."hspec-discover")."2.9.4").revisions).default; - "freer-simple".revision = (((hackage."freer-simple")."1.2.1.2").revisions).default; - "snap-core".revision = (((hackage."snap-core")."1.0.4.2").revisions).default; - "snap-core".flags.portable = false; - "snap-core".flags.network-uri = true; - "snap-core".flags.debug = false; - "pem".revision = (((hackage."pem")."0.2.4").revisions).default; - "barbies".revision = (((hackage."barbies")."2.0.3.1").revisions).default; - "persistent-template".revision = (((hackage."persistent-template")."2.12.0.0").revisions).default; - "lens-aeson".revision = (((hackage."lens-aeson")."1.1.3").revisions).default; - "strict".revision = (((hackage."strict")."0.4.0.1").revisions).default; - "strict".flags.assoc = true; - "aeson".revision = (((hackage."aeson")."1.5.6.0").revisions).default; - "aeson".flags.fast = false; - "aeson".flags.bytestring-builder = false; - "aeson".flags.developer = false; - "aeson".flags.cffi = false; - "tdigest".revision = (((hackage."tdigest")."0.2.1.1").revisions).default; - "docopt".revision = (((hackage."docopt")."0.7.0.7").revisions).default; - "docopt".flags.template-haskell = true; - "zlib".revision = (((hackage."zlib")."0.6.2.3").revisions).default; - "zlib".flags.non-blocking-ffi = false; - "zlib".flags.bundled-c-zlib = false; - "zlib".flags.pkg-config = false; - "nothunks".revision = (((hackage."nothunks")."0.1.3").revisions).default; - "nothunks".flags.bytestring = true; - "nothunks".flags.text = true; - "nothunks".flags.vector = true; - "tagged".revision = (((hackage."tagged")."0.8.6.1").revisions).default; - "tagged".flags.deepseq = true; - "tagged".flags.transformers = true; - "splitmix".revision = (((hackage."splitmix")."0.1.0.4").revisions).default; - "splitmix".flags.optimised-mixer = false; - "gray-code".revision = (((hackage."gray-code")."0.3.1").revisions).default; - "time-out".revision = (((hackage."time-out")."0.2").revisions).default; - "file-embed".revision = (((hackage."file-embed")."0.0.15.0").revisions).default; - "attoparsec".revision = (((hackage."attoparsec")."0.13.2.5").revisions).default; - "attoparsec".flags.developer = false; - "singleton-bool".revision = (((hackage."singleton-bool")."0.1.5").revisions).default; - "th-compat".revision = (((hackage."th-compat")."0.1.3").revisions).default; - "generic-arbitrary".revision = (((hackage."generic-arbitrary")."0.2.0").revisions).default; - "memory".revision = (((hackage."memory")."0.16.0").revisions).default; - "memory".flags.support_basement = true; - "memory".flags.support_deepseq = true; - "memory".flags.support_bytestring = true; - "memory".flags.support_foundation = true; - "time-units".revision = (((hackage."time-units")."1.0.0").revisions).default; - "fmlist".revision = (((hackage."fmlist")."0.9.4").revisions).default; - "filepath".revision = (((hackage."filepath")."1.4.2.1").revisions).default; - "th-lift".revision = (((hackage."th-lift")."0.8.2").revisions).default; - "libyaml".revision = (((hackage."libyaml")."0.1.2").revisions).default; - "libyaml".flags.system-libyaml = false; - "libyaml".flags.no-unicode = false; - "dec".revision = (((hackage."dec")."0.0.4").revisions).default; - "terminal-size".revision = (((hackage."terminal-size")."0.3.2.1").revisions).default; - "criterion-measurement".revision = (((hackage."criterion-measurement")."0.1.3.0").revisions).default; - "criterion-measurement".flags.fast = false; - "pqueue".revision = (((hackage."pqueue")."1.4.1.4").revisions).default; - "SHA".revision = (((hackage."SHA")."1.6.4.4").revisions).default; - "SHA".flags.exe = false; - "unliftio-core".revision = (((hackage."unliftio-core")."0.2.0.1").revisions).default; - "persistent".revision = (((hackage."persistent")."2.13.3.0").revisions).default; - "th-extras".revision = (((hackage."th-extras")."0.0.0.4").revisions).default; - "th-extras".flags.base4 = true; - "stm".revision = (((hackage."stm")."2.5.0.1").revisions).default; - "void".revision = (((hackage."void")."0.7.3").revisions).default; - "void".flags.safe = false; - "regex-compat".revision = (((hackage."regex-compat")."0.95.2.1").revisions).default; - "testing-type-modifiers".revision = (((hackage."testing-type-modifiers")."0.1.0.1").revisions).default; - "MemoTrie".revision = (((hackage."MemoTrie")."0.6.10").revisions).default; - "MemoTrie".flags.examples = false; - "statistics-linreg".revision = (((hackage."statistics-linreg")."0.3").revisions).default; - "semigroups".revision = (((hackage."semigroups")."0.19.2").revisions).default; - "semigroups".flags.bytestring = true; - "semigroups".flags.bytestring-builder = false; - "semigroups".flags.tagged = true; - "semigroups".flags.containers = true; - "semigroups".flags.deepseq = true; - "semigroups".flags.template-haskell = true; - "semigroups".flags.binary = true; - "semigroups".flags.transformers = true; - "semigroups".flags.unordered-containers = true; - "semigroups".flags.text = true; - "semigroups".flags.hashable = true; - "free".revision = (((hackage."free")."5.1.3").revisions).default; - "terminfo".revision = (((hackage."terminfo")."0.4.1.4").revisions).default; - "connection".revision = (((hackage."connection")."0.3.1").revisions).default; - "pipes".revision = (((hackage."pipes")."4.3.16").revisions).default; - "crypto-api".revision = (((hackage."crypto-api")."0.13.3").revisions).default; - "crypto-api".flags.all_cpolys = false; - "haskell-lexer".revision = (((hackage."haskell-lexer")."1.1").revisions).default; - "microlens".revision = (((hackage."microlens")."0.4.12.0").revisions).default; - "one-line-aeson-text".revision = (((hackage."one-line-aeson-text")."0.1.0.2").revisions).default; - "ghc-heap".revision = (((hackage."ghc-heap")."8.10.7").revisions).default; - "resourcet".revision = (((hackage."resourcet")."1.2.4.3").revisions).default; - "vault".revision = (((hackage."vault")."0.3.1.5").revisions).default; - "vault".flags.useghc = true; - "optics-core".revision = (((hackage."optics-core")."0.3.0.1").revisions).default; - "primitive-addr".revision = (((hackage."primitive-addr")."0.1.0.2").revisions).default; - "wl-pprint-annotated".revision = (((hackage."wl-pprint-annotated")."0.1.0.1").revisions).default; - "data-default-instances-old-locale".revision = (((hackage."data-default-instances-old-locale")."0.0.1").revisions).default; - "unix-bytestring".revision = (((hackage."unix-bytestring")."0.3.7.6").revisions).default; - "canonical-json".revision = (((hackage."canonical-json")."0.6.0.0").revisions).default; - "indexed-list-literals".revision = (((hackage."indexed-list-literals")."0.2.1.3").revisions).default; - "foldl".revision = (((hackage."foldl")."1.4.12").revisions).default; - "io-streams".revision = (((hackage."io-streams")."1.5.2.1").revisions).default; - "io-streams".flags.network = true; - "io-streams".flags.zlib = true; - "io-streams".flags.nointeractivetests = false; - "universe-base".revision = (((hackage."universe-base")."1.1.3").revisions).default; - "streaming-bytestring".revision = (((hackage."streaming-bytestring")."0.2.1").revisions).default; - "unix-compat".revision = (((hackage."unix-compat")."0.5.4").revisions).default; - "unix-compat".flags.old-time = false; - "case-insensitive".revision = (((hackage."case-insensitive")."1.2.1.0").revisions).default; - "http-date".revision = (((hackage."http-date")."0.0.11").revisions).default; - "optparse-generic".revision = (((hackage."optparse-generic")."1.4.7").revisions).default; - "type-equality".revision = (((hackage."type-equality")."1").revisions).default; - "blockfrost-api".revision = (((hackage."blockfrost-api")."0.3.1.0").revisions).default; - "blockfrost-api".flags.production = false; - "blockfrost-api".flags.buildfast = true; - "cryptohash-sha1".revision = (((hackage."cryptohash-sha1")."0.11.101.0").revisions).default; - "warp-tls".revision = (((hackage."warp-tls")."3.3.2").revisions).default; - "digest".revision = (((hackage."digest")."0.0.1.3").revisions).default; - "digest".flags.bytestring-in-base = false; - "cryptohash-md5".revision = (((hackage."cryptohash-md5")."0.11.101.0").revisions).default; - "indexed-profunctors".revision = (((hackage."indexed-profunctors")."0.1.1").revisions).default; - "say".revision = (((hackage."say")."0.1.0.1").revisions).default; - "data-default".revision = (((hackage."data-default")."0.7.1.1").revisions).default; - "io-streams-haproxy".revision = (((hackage."io-streams-haproxy")."1.0.1.0").revisions).default; - "sqlite-simple".revision = (((hackage."sqlite-simple")."0.4.18.0").revisions).default; - "size-based".revision = (((hackage."size-based")."0.1.2.0").revisions).default; - "openapi3".revision = (((hackage."openapi3")."3.2.1").revisions).default; - "http-media".revision = (((hackage."http-media")."0.8.0.0").revisions).default; - "call-stack".revision = (((hackage."call-stack")."0.4.0").revisions).default; - "time-manager".revision = (((hackage."time-manager")."0.0.0").revisions).default; - "dependent-map".revision = (((hackage."dependent-map")."0.4.0.0").revisions).default; - "generics-sop".revision = (((hackage."generics-sop")."0.5.1.0").revisions).default; - "byteorder".revision = (((hackage."byteorder")."1.0.4").revisions).default; - "insert-ordered-containers".revision = (((hackage."insert-ordered-containers")."0.2.5.1").revisions).default; - "tasty-hedgehog".revision = (((hackage."tasty-hedgehog")."1.1.0.0").revisions).default; - "http-api-data".revision = (((hackage."http-api-data")."0.4.3").revisions).default; - "http-api-data".flags.use-text-show = false; - "streaming".revision = (((hackage."streaming")."0.2.3.1").revisions).default; - "ghc-prim".revision = (((hackage."ghc-prim")."0.6.1").revisions).default; - "x509-validation".revision = (((hackage."x509-validation")."1.6.12").revisions).default; - "typerep-map".revision = (((hackage."typerep-map")."0.5.0.0").revisions).default; - "hslogger".revision = (((hackage."hslogger")."1.3.1.0").revisions).default; - "hslogger".flags.network--gt-3_0_0 = true; - "abstract-deque".revision = (((hackage."abstract-deque")."0.3").revisions).default; - "abstract-deque".flags.usecas = false; - "ghc-boot-th".revision = (((hackage."ghc-boot-th")."8.10.7").revisions).default; - "asn1-encoding".revision = (((hackage."asn1-encoding")."0.9.6").revisions).default; - "MissingH".revision = (((hackage."MissingH")."1.5.0.0").revisions).default; - "MissingH".flags.network--ge-3_0_0 = true; - "hedgehog-quickcheck".revision = (((hackage."hedgehog-quickcheck")."0.1.1").revisions).default; - "indexed-traversable".revision = (((hackage."indexed-traversable")."0.1.2").revisions).default; - "distributive".revision = (((hackage."distributive")."0.6.2.1").revisions).default; - "distributive".flags.tagged = true; - "distributive".flags.semigroups = true; - "lazy-search".revision = (((hackage."lazy-search")."0.1.2.1").revisions).default; - "libBF".revision = (((hackage."libBF")."0.6.3").revisions).default; - "libBF".flags.system-libbf = false; - "text-short".revision = (((hackage."text-short")."0.1.5").revisions).default; - "text-short".flags.asserts = false; - "servant".revision = (((hackage."servant")."0.18.3").revisions).default; - "vector-space".revision = (((hackage."vector-space")."0.16").revisions).default; - "bin".revision = (((hackage."bin")."0.1").revisions).default; - "signal".revision = (((hackage."signal")."0.1.0.4").revisions).default; - "Boolean".revision = (((hackage."Boolean")."0.2.4").revisions).default; - "show-combinators".revision = (((hackage."show-combinators")."0.2.0.0").revisions).default; - "bsb-http-chunked".revision = (((hackage."bsb-http-chunked")."0.0.0.4").revisions).default; - "bifunctors".revision = (((hackage."bifunctors")."5.5.7").revisions).default; - "bifunctors".flags.tagged = true; - "bifunctors".flags.semigroups = true; - "kan-extensions".revision = (((hackage."kan-extensions")."5.2.3").revisions).default; - "uuid".revision = (((hackage."uuid")."1.3.15").revisions).default; - "lifted-async".revision = (((hackage."lifted-async")."0.10.2.2").revisions).default; - "microlens-mtl".revision = (((hackage."microlens-mtl")."0.2.0.1").revisions).default; - "reducers".revision = (((hackage."reducers")."3.12.4").revisions).default; - "servant-swagger-ui".revision = (((hackage."servant-swagger-ui")."0.3.5.4.5.0").revisions).default; - "RSA".revision = (((hackage."RSA")."2.4.1").revisions).default; - "base".revision = (((hackage."base")."4.14.3.0").revisions).default; - "time".revision = (((hackage."time")."1.9.3").revisions).default; - "ListLike".revision = (((hackage."ListLike")."4.7.6").revisions).default; - "base58-bytestring".revision = (((hackage."base58-bytestring")."0.1.0").revisions).default; - "network-info".revision = (((hackage."network-info")."0.2.1").revisions).default; - "errors".revision = (((hackage."errors")."2.3.0").revisions).default; - "formatting".revision = (((hackage."formatting")."6.3.7").revisions).default; - "async".revision = (((hackage."async")."2.2.4").revisions).default; - "async".flags.bench = false; - "word8".revision = (((hackage."word8")."0.1.3").revisions).default; - "cabal-doctest".revision = (((hackage."cabal-doctest")."1.0.9").revisions).default; - "random".revision = (((hackage."random")."1.2.1").revisions).default; - "unix-time".revision = (((hackage."unix-time")."0.4.7").revisions).default; - "beam-core".revision = (((hackage."beam-core")."0.9.2.1").revisions).default; - "beam-core".flags.werror = false; - "ral".revision = (((hackage."ral")."0.1").revisions).default; - "ral".flags.adjunctions = true; - "ral".flags.semigroupoids = true; - "ral".flags.distributive = true; - "sort".revision = (((hackage."sort")."1.0.0.0").revisions).default; - "wai".revision = (((hackage."wai")."3.2.3").revisions).default; - "th-orphans".revision = (((hackage."th-orphans")."0.13.12").revisions).default; - "cookie".revision = (((hackage."cookie")."0.4.5").revisions).default; - "process".revision = (((hackage."process")."1.6.13.2").revisions).default; - "sbv".revision = (((hackage."sbv")."8.17").revisions).default; - "system-filepath".revision = (((hackage."system-filepath")."0.4.14").revisions).default; - "cereal".revision = (((hackage."cereal")."0.5.8.2").revisions).default; - "cereal".flags.bytestring-builder = false; - "utf8-string".revision = (((hackage."utf8-string")."1.0.2").revisions).default; - "streaming-binary".revision = (((hackage."streaming-binary")."0.2.2.0").revisions).default; - "vector-th-unbox".revision = (((hackage."vector-th-unbox")."0.2.2").revisions).default; - "megaparsec".revision = (((hackage."megaparsec")."9.2.0").revisions).default; - "megaparsec".flags.dev = false; - "base16-bytestring".revision = (((hackage."base16-bytestring")."1.0.2.0").revisions).default; - "conduit".revision = (((hackage."conduit")."1.3.4.2").revisions).default; - "transformers-base".revision = (((hackage."transformers-base")."0.4.6").revisions).default; - "transformers-base".flags.orphaninstances = true; - "aeson-qq".revision = (((hackage."aeson-qq")."0.8.4").revisions).default; - "unbounded-delays".revision = (((hackage."unbounded-delays")."0.1.1.1").revisions).default; - "monad-par-extras".revision = (((hackage."monad-par-extras")."0.3.3").revisions).default; - "data-default-class".revision = (((hackage."data-default-class")."0.1.2.0").revisions).default; - "regex-base".revision = (((hackage."regex-base")."0.94.0.2").revisions).default; - "vector-algorithms".revision = (((hackage."vector-algorithms")."0.8.0.4").revisions).default; - "vector-algorithms".flags.internalchecks = false; - "vector-algorithms".flags.llvm = false; - "vector-algorithms".flags.properties = true; - "vector-algorithms".flags.boundschecks = true; - "vector-algorithms".flags.unsafechecks = false; - "vector-algorithms".flags.bench = true; - "th-abstraction".revision = (((hackage."th-abstraction")."0.3.2.0").revisions).default; - "semigroupoids".revision = (((hackage."semigroupoids")."5.3.4").revisions).default; - "semigroupoids".flags.doctests = true; - "semigroupoids".flags.tagged = true; - "semigroupoids".flags.containers = true; - "semigroupoids".flags.distributive = true; - "semigroupoids".flags.unordered-containers = true; - "semigroupoids".flags.contravariant = true; - "semigroupoids".flags.comonad = true; - "finite-typelits".revision = (((hackage."finite-typelits")."0.1.4.2").revisions).default; - "hsc2hs".revision = (((hackage."hsc2hs")."0.68.8").revisions).default; - "hsc2hs".flags.in-ghc-tree = false; - "data-default-instances-containers".revision = (((hackage."data-default-instances-containers")."0.0.1").revisions).default; - "base-unicode-symbols".revision = (((hackage."base-unicode-symbols")."0.2.4.2").revisions).default; - "base-unicode-symbols".flags.base-4-8 = true; - "base-unicode-symbols".flags.old-base = false; - "generic-monoid".revision = (((hackage."generic-monoid")."0.1.0.1").revisions).default; - "semirings".revision = (((hackage."semirings")."0.6").revisions).default; - "semirings".flags.containers = true; - "semirings".flags.unordered-containers = true; - "atomic-primops".revision = (((hackage."atomic-primops")."0.8.4").revisions).default; - "atomic-primops".flags.debug = false; - "ekg".revision = (((hackage."ekg")."0.4.0.15").revisions).default; - "wai-logger".revision = (((hackage."wai-logger")."2.4.0").revisions).default; - "quickcheck-instances".revision = (((hackage."quickcheck-instances")."0.3.27").revisions).default; - "quickcheck-instances".flags.bytestring-builder = false; - "bimap".revision = (((hackage."bimap")."0.4.0").revisions).default; - "prettyprinter-ansi-terminal".revision = (((hackage."prettyprinter-ansi-terminal")."1.1.3").revisions).default; - "generic-data".revision = (((hackage."generic-data")."0.9.2.1").revisions).default; - "dependent-sum-template".revision = (((hackage."dependent-sum-template")."0.1.0.3").revisions).default; - "srcloc".revision = (((hackage."srcloc")."0.6").revisions).default; - "logict".revision = (((hackage."logict")."0.7.0.3").revisions).default; - "mersenne-random-pure64".revision = (((hackage."mersenne-random-pure64")."0.2.2.0").revisions).default; - "mersenne-random-pure64".flags.small_base = false; - "NumInstances".revision = (((hackage."NumInstances")."1.4").revisions).default; - "these".revision = (((hackage."these")."1.1.1.1").revisions).default; - "these".flags.assoc = true; - "split".revision = (((hackage."split")."0.2.3.4").revisions).default; - "base-orphans".revision = (((hackage."base-orphans")."0.8.6").revisions).default; - "protolude".revision = (((hackage."protolude")."0.3.0").revisions).default; - "protolude".flags.dev = false; - "lazysmallcheck".revision = (((hackage."lazysmallcheck")."0.6").revisions).default; - "strict-list".revision = (((hackage."strict-list")."0.1.6").revisions).default; - "hspec-core".revision = (((hackage."hspec-core")."2.9.4").revisions).default; - "time-compat".revision = (((hackage."time-compat")."1.9.6.1").revisions).default; - "time-compat".flags.old-locale = false; - "string-conv".revision = (((hackage."string-conv")."0.1.2").revisions).default; - "string-conv".flags.lib-werror = false; - "scrypt".revision = (((hackage."scrypt")."0.5.0").revisions).default; - "foundation".revision = (((hackage."foundation")."0.0.26.1").revisions).default; - "foundation".flags.linktest = false; - "foundation".flags.bounds-check = false; - "foundation".flags.bench-all = false; - "foundation".flags.experimental = false; - "foundation".flags.doctest = false; - "foundation".flags.minimal-deps = false; - "setenv".revision = (((hackage."setenv")."0.1.1.3").revisions).default; - "either".revision = (((hackage."either")."5.0.1.1").revisions).default; - "typed-process".revision = (((hackage."typed-process")."0.2.8.0").revisions).default; - "http2".revision = (((hackage."http2")."3.0.3").revisions).default; - "http2".flags.devel = false; - "http2".flags.h2spec = false; - "http2".flags.doc = false; - "cryptostore".revision = (((hackage."cryptostore")."0.2.1.0").revisions).default; - "blockfrost-client-core".revision = (((hackage."blockfrost-client-core")."0.2.0.0").revisions).default; - "blockfrost-client-core".flags.production = false; - "blockfrost-client-core".flags.buildfast = true; - "deriving-aeson".revision = (((hackage."deriving-aeson")."0.2.8").revisions).default; - "hspec".revision = (((hackage."hspec")."2.9.4").revisions).default; - "primitive".revision = (((hackage."primitive")."0.7.3.0").revisions).default; - "servant-client-core".revision = (((hackage."servant-client-core")."0.18.3").revisions).default; - "directory".revision = (((hackage."directory")."1.3.6.0").revisions).default; - "command".revision = (((hackage."command")."0.1.1").revisions).default; - "concurrent-output".revision = (((hackage."concurrent-output")."1.10.15").revisions).default; - "exceptions".revision = (((hackage."exceptions")."0.10.4").revisions).default; - "base64-bytestring-type".revision = (((hackage."base64-bytestring-type")."1.0.1").revisions).default; - "base64-bytestring-type".flags.http-api-data = true; - "base64-bytestring-type".flags.cereal = true; - "base64-bytestring-type".flags.serialise = true; - "modern-uri".revision = (((hackage."modern-uri")."0.3.4.3").revisions).default; - "modern-uri".flags.dev = false; - "abstract-par".revision = (((hackage."abstract-par")."0.3.3").revisions).default; - "hpc".revision = (((hackage."hpc")."0.6.1.0").revisions).default; - "half".revision = (((hackage."half")."0.3.1").revisions).default; - "optparse-applicative".revision = (((hackage."optparse-applicative")."0.17.0.0").revisions).default; - "optparse-applicative".flags.process = true; - "constraints".revision = (((hackage."constraints")."0.13.3").revisions).default; - "bech32".revision = (((hackage."bech32")."1.1.2").revisions).default; - "bech32".flags.static = false; - "bech32".flags.release = false; - "lifted-base".revision = (((hackage."lifted-base")."0.2.3.12").revisions).default; - "wai-cors".revision = (((hackage."wai-cors")."0.2.7").revisions).default; - "clock".revision = (((hackage."clock")."0.8.3").revisions).default; - "clock".flags.llvm = false; - "th-expand-syns".revision = (((hackage."th-expand-syns")."0.4.7.0").revisions).default; - "hspec-expectations".revision = (((hackage."hspec-expectations")."0.8.2").revisions).default; - "prettyprinter".revision = (((hackage."prettyprinter")."1.7.1").revisions).default; - "prettyprinter".flags.buildreadme = false; - "prettyprinter".flags.text = true; - "hostname".revision = (((hackage."hostname")."1.0").revisions).default; - "servant-foreign".revision = (((hackage."servant-foreign")."0.15.4").revisions).default; - "resource-pool".revision = (((hackage."resource-pool")."0.2.3.2").revisions).default; - "resource-pool".flags.developer = false; - "simple-sendfile".revision = (((hackage."simple-sendfile")."0.2.30").revisions).default; - "simple-sendfile".flags.allow-bsd = true; - "rts".revision = (((hackage."rts")."1.0.1").revisions).default; - "wl-pprint".revision = (((hackage."wl-pprint")."1.2.1").revisions).default; - "network-byte-order".revision = (((hackage."network-byte-order")."0.1.6").revisions).default; - "ekg-json".revision = (((hackage."ekg-json")."0.1.0.6").revisions).default; - "OddWord".revision = (((hackage."OddWord")."1.0.2.0").revisions).default; - "rate-limit".revision = (((hackage."rate-limit")."1.4.2").revisions).default; - "monad-control".revision = (((hackage."monad-control")."1.0.3.1").revisions).default; - "semialign".revision = (((hackage."semialign")."1.1.0.1").revisions).default; - "semialign".flags.semigroupoids = true; - "wai-app-static".revision = (((hackage."wai-app-static")."3.1.7.2").revisions).default; - "wai-app-static".flags.print = false; - "transformers".revision = (((hackage."transformers")."0.5.6.2").revisions).default; - "moo".revision = (((hackage."moo")."1.2").revisions).default; - "authenticate-oauth".revision = (((hackage."authenticate-oauth")."1.7").revisions).default; - "template-haskell".revision = (((hackage."template-haskell")."2.16.0.0").revisions).default; - "direct-sqlite".revision = (((hackage."direct-sqlite")."2.3.26").revisions).default; - "direct-sqlite".flags.haveusleep = true; - "direct-sqlite".flags.systemlib = false; - "direct-sqlite".flags.fulltextsearch = true; - "direct-sqlite".flags.urifilenames = true; - "direct-sqlite".flags.json1 = true; - "blaze-markup".revision = (((hackage."blaze-markup")."0.8.2.8").revisions).default; - "ghci".revision = (((hackage."ghci")."8.10.7").revisions).default; - "crypto-pubkey-types".revision = (((hackage."crypto-pubkey-types")."0.4.3").revisions).default; - "optics-extra".revision = (((hackage."optics-extra")."0.3").revisions).default; - "pretty-show".revision = (((hackage."pretty-show")."1.10").revisions).default; - "tasty-golden".revision = (((hackage."tasty-golden")."2.3.5").revisions).default; - "tasty-golden".flags.build-example = false; - "Unique".revision = (((hackage."Unique")."0.4.7.9").revisions).default; - "mono-traversable".revision = (((hackage."mono-traversable")."1.0.15.3").revisions).default; - "witherable".revision = (((hackage."witherable")."0.4.2").revisions).default; - "syb".revision = (((hackage."syb")."0.7.2.1").revisions).default; - "aeson-pretty".revision = (((hackage."aeson-pretty")."0.8.9").revisions).default; - "aeson-pretty".flags.lib-only = false; - "dom-lt".revision = (((hackage."dom-lt")."0.2.3").revisions).default; - "fingertree".revision = (((hackage."fingertree")."0.1.5.0").revisions).default; - "th-reify-many".revision = (((hackage."th-reify-many")."0.1.10").revisions).default; - "tasty-hunit".revision = (((hackage."tasty-hunit")."0.10.0.3").revisions).default; - "conduit-extra".revision = (((hackage."conduit-extra")."1.3.5").revisions).default; - "algebraic-graphs".revision = (((hackage."algebraic-graphs")."0.6").revisions).default; - "wai-websockets".revision = (((hackage."wai-websockets")."3.0.1.2").revisions).default; - "wai-websockets".flags.example = true; - "uniplate".revision = (((hackage."uniplate")."1.6.13").revisions).default; - "blaze-html".revision = (((hackage."blaze-html")."0.9.1.2").revisions).default; - "data-default-instances-dlist".revision = (((hackage."data-default-instances-dlist")."0.0.1").revisions).default; - "quickcheck-arbitrary-adt".revision = (((hackage."quickcheck-arbitrary-adt")."0.3.1.0").revisions).default; - "hspec-golden-aeson".revision = (((hackage."hspec-golden-aeson")."0.9.0.0").revisions).default; - "dense-linear-algebra".revision = (((hackage."dense-linear-algebra")."0.1.0.0").revisions).default; - "deepseq".revision = (((hackage."deepseq")."1.4.4.0").revisions).default; - "unix".revision = (((hackage."unix")."2.7.2.2").revisions).default; - "newtype-generics".revision = (((hackage."newtype-generics")."0.6.1").revisions).default; - "text-conversions".revision = (((hackage."text-conversions")."0.3.1").revisions).default; - "composition-prelude".revision = (((hackage."composition-prelude")."3.0.0.2").revisions).default; - "composition-prelude".flags.development = false; - "servant-docs".revision = (((hackage."servant-docs")."0.12").revisions).default; - "stm-chans".revision = (((hackage."stm-chans")."3.0.0.6").revisions).default; - "th-utilities".revision = (((hackage."th-utilities")."0.2.4.1").revisions).default; - "casing".revision = (((hackage."casing")."0.1.4.1").revisions).default; - "quiet".revision = (((hackage."quiet")."0.2").revisions).default; - "servant-blaze".revision = (((hackage."servant-blaze")."0.9.1").revisions).default; - "transformers-except".revision = (((hackage."transformers-except")."0.1.2").revisions).default; - "ansi-terminal".revision = (((hackage."ansi-terminal")."0.11.1").revisions).default; - "ansi-terminal".flags.example = false; - "dictionary-sharing".revision = (((hackage."dictionary-sharing")."0.1.0.0").revisions).default; - "monoidal-containers".revision = (((hackage."monoidal-containers")."0.6.2.0").revisions).default; - "monoidal-containers".flags.split-these = true; - "wai-extra".revision = (((hackage."wai-extra")."3.1.8").revisions).default; - "wai-extra".flags.build-example = false; - "haskell-src-meta".revision = (((hackage."haskell-src-meta")."0.8.9").revisions).default; - "hedgehog".revision = (((hackage."hedgehog")."1.0.5").revisions).default; - "microlens-th".revision = (((hackage."microlens-th")."0.4.3.6").revisions).default; - "blaze-builder".revision = (((hackage."blaze-builder")."0.4.2.2").revisions).default; - "generic-deriving".revision = (((hackage."generic-deriving")."1.13.1").revisions).default; - "generic-deriving".flags.base-4-9 = true; - "warp".revision = (((hackage."warp")."3.3.19").revisions).default; - "warp".flags.network-bytestring = false; - "warp".flags.allow-sendfilefd = true; - "warp".flags.warp-debug = false; - "readable".revision = (((hackage."readable")."0.3.1").revisions).default; - "x509-store".revision = (((hackage."x509-store")."1.6.9").revisions).default; - "Only".revision = (((hackage."Only")."0.1").revisions).default; - "fast-logger".revision = (((hackage."fast-logger")."3.1.1").revisions).default; - "dns".revision = (((hackage."dns")."3.0.4").revisions).default; - "path-pieces".revision = (((hackage."path-pieces")."0.2.1").revisions).default; - "deriving-compat".revision = (((hackage."deriving-compat")."0.5.9").revisions).default; - "deriving-compat".flags.new-functor-classes = true; - "deriving-compat".flags.template-haskell-2-11 = true; - "deriving-compat".flags.base-4-9 = true; - "servant-multipart-api".revision = (((hackage."servant-multipart-api")."0.12.1").revisions).default; - "fin".revision = (((hackage."fin")."0.1.1").revisions).default; - "code-page".revision = (((hackage."code-page")."0.2.1").revisions).default; - "hashable".revision = (((hackage."hashable")."1.3.5.0").revisions).default; - "hashable".flags.random-initial-seed = false; - "hashable".flags.integer-gmp = true; - "integer-gmp".revision = (((hackage."integer-gmp")."1.0.3.0").revisions).default; - "time-interval".revision = (((hackage."time-interval")."0.1.1").revisions).default; - "cmdargs".revision = (((hackage."cmdargs")."0.10.21").revisions).default; - "cmdargs".flags.quotation = true; - "cmdargs".flags.testprog = false; - "transformers-compat".revision = (((hackage."transformers-compat")."0.6.6").revisions).default; - "transformers-compat".flags.two = false; - "transformers-compat".flags.mtl = true; - "transformers-compat".flags.four = false; - "transformers-compat".flags.five = false; - "transformers-compat".flags.five-three = true; - "transformers-compat".flags.three = false; - "transformers-compat".flags.generic-deriving = true; - "dependent-sum".revision = (((hackage."dependent-sum")."0.7.1.0").revisions).default; - "websockets".revision = (((hackage."websockets")."0.12.7.3").revisions).default; - "websockets".flags.example = false; - "recursion-schemes".revision = (((hackage."recursion-schemes")."5.1.3").revisions).default; - "recursion-schemes".flags.template-haskell = true; - "indexed-traversable-instances".revision = (((hackage."indexed-traversable-instances")."0.1.1").revisions).default; - "iproute".revision = (((hackage."iproute")."1.7.12").revisions).default; - "process-extras".revision = (((hackage."process-extras")."0.7.4").revisions).default; - "scientific".revision = (((hackage."scientific")."0.3.7.0").revisions).default; - "scientific".flags.bytestring-builder = false; - "scientific".flags.integer-simple = false; - "async-timer".revision = (((hackage."async-timer")."0.1.4.1").revisions).default; - "binary".revision = (((hackage."binary")."0.8.8.0").revisions).default; - "http-client".revision = (((hackage."http-client")."0.7.11").revisions).default; - "http-client".flags.network-uri = true; - "ansi-wl-pprint".revision = (((hackage."ansi-wl-pprint")."0.6.9").revisions).default; - "ansi-wl-pprint".flags.example = false; - "filelock".revision = (((hackage."filelock")."0.1.1.5").revisions).default; - "validation".revision = (((hackage."validation")."1.1.2").revisions).default; - "ap-normalize".revision = (((hackage."ap-normalize")."0.1.0.1").revisions).default; - "ap-normalize".flags.test-with-clang = false; - "QuickCheck".revision = (((hackage."QuickCheck")."2.14.2").revisions).default; - "QuickCheck".flags.old-random = false; - "QuickCheck".flags.templatehaskell = true; - "safe-exceptions".revision = (((hackage."safe-exceptions")."0.1.7.2").revisions).default; - "uuid-types".revision = (((hackage."uuid-types")."1.0.5").revisions).default; - "file-embed-lzma".revision = (((hackage."file-embed-lzma")."0").revisions).default; - "monad-loops".revision = (((hackage."monad-loops")."0.4.3").revisions).default; - "monad-loops".flags.base4 = true; - "mainland-pretty".revision = (((hackage."mainland-pretty")."0.7.1").revisions).default; - "auto-update".revision = (((hackage."auto-update")."0.1.6").revisions).default; - "containers".revision = (((hackage."containers")."0.6.5.1").revisions).default; - "StateVar".revision = (((hackage."StateVar")."1.2.2").revisions).default; - "exact-combinatorics".revision = (((hackage."exact-combinatorics")."0.2.0.11").revisions).default; - "colour".revision = (((hackage."colour")."2.3.6").revisions).default; - }; - compiler = { - version = "8.10.7"; - nix-name = "ghc8107"; - packages = { - "ghc-boot" = "8.10.7"; - "pretty" = "1.1.3.6"; - "text" = "1.2.4.1"; - "array" = "0.5.4.0"; - "ghc" = "8.10.7"; - "Cabal" = "3.2.1.0"; - "mtl" = "2.2.2"; - "parsec" = "3.1.14.0"; - "bytestring" = "0.10.12.0"; - "filepath" = "1.4.2.1"; - "stm" = "2.5.0.1"; - "terminfo" = "0.4.1.4"; - "ghc-heap" = "8.10.7"; - "ghc-prim" = "0.6.1"; - "ghc-boot-th" = "8.10.7"; - "base" = "4.14.3.0"; - "time" = "1.9.3"; - "process" = "1.6.13.2"; - "directory" = "1.3.6.0"; - "exceptions" = "0.10.4"; - "hpc" = "0.6.1.0"; - "rts" = "1.0.1"; - "transformers" = "0.5.6.2"; - "template-haskell" = "2.16.0.0"; - "ghci" = "8.10.7"; - "deepseq" = "1.4.4.0"; - "unix" = "2.7.2.2"; - "integer-gmp" = "1.0.3.0"; - "binary" = "0.8.8.0"; - "containers" = "0.6.5.1"; - }; - }; - }; - extras = hackage: - { - packages = { - cardano-node = ./.plan.nix/cardano-node.nix; - strict-containers = ./.plan.nix/strict-containers.nix; - cardano-ledger-byron-test = ./.plan.nix/cardano-ledger-byron-test.nix; - plutus-pab-executables = ./.plan.nix/plutus-pab-executables.nix; - cardano-testnet = ./.plan.nix/cardano-testnet.nix; - plutus-tx = ./.plan.nix/plutus-tx.nix; - cardano-ledger-byron = ./.plan.nix/cardano-ledger-byron.nix; - cardano-data = ./.plan.nix/cardano-data.nix; - freer-extras = ./.plan.nix/freer-extras.nix; - measures = ./.plan.nix/measures.nix; - cardano-prelude = ./.plan.nix/cardano-prelude.nix; - cardano-wallet-launcher = ./.plan.nix/cardano-wallet-launcher.nix; - cardano-ledger-pretty = ./.plan.nix/cardano-ledger-pretty.nix; - cardano-protocol-tpraos = ./.plan.nix/cardano-protocol-tpraos.nix; - marlowe-playground-server = ./.plan.nix/marlowe-playground-server.nix; - plutus-core = ./.plan.nix/plutus-core.nix; - plutus-ledger-api = ./.plan.nix/plutus-ledger-api.nix; - cardano-prelude-test = ./.plan.nix/cardano-prelude-test.nix; - strict-non-empty-containers = ./.plan.nix/strict-non-empty-containers.nix; - cardano-wallet-core = ./.plan.nix/cardano-wallet-core.nix; - hedgehog-extras = ./.plan.nix/hedgehog-extras.nix; - cardano-submit-api = ./.plan.nix/cardano-submit-api.nix; - marlowe = ./.plan.nix/marlowe.nix; - cardano-git-rev = ./.plan.nix/cardano-git-rev.nix; - plutus-pab = ./.plan.nix/plutus-pab.nix; - plutus-use-cases = ./.plan.nix/plutus-use-cases.nix; - goblins = ./.plan.nix/goblins.nix; - byron-spec-ledger = ./.plan.nix/byron-spec-ledger.nix; - contra-tracer = ./.plan.nix/contra-tracer.nix; - plutus-ledger = ./.plan.nix/plutus-ledger.nix; - small-steps-test = ./.plan.nix/small-steps-test.nix; - trace-resources = ./.plan.nix/trace-resources.nix; - cardano-wallet = ./.plan.nix/cardano-wallet.nix; - cardano-ledger-shelley = ./.plan.nix/cardano-ledger-shelley.nix; - monoidal-synchronisation = ./.plan.nix/monoidal-synchronisation.nix; - cardano-ledger-shelley-ma = ./.plan.nix/cardano-ledger-shelley-ma.nix; - cardano-crypto-class = ./.plan.nix/cardano-crypto-class.nix; - playground-common = ./.plan.nix/playground-common.nix; - cardano-addresses = ./.plan.nix/cardano-addresses.nix; - cardano-cli = ./.plan.nix/cardano-cli.nix; - ouroboros-consensus-cardano = ./.plan.nix/ouroboros-consensus-cardano.nix; - plutus-chain-index-core = ./.plan.nix/plutus-chain-index-core.nix; - flat = ./.plan.nix/flat.nix; - servant-purescript = ./.plan.nix/servant-purescript.nix; - cardano-crypto-praos = ./.plan.nix/cardano-crypto-praos.nix; - text-class = ./.plan.nix/text-class.nix; - lobemo-backend-trace-forwarder = ./.plan.nix/lobemo-backend-trace-forwarder.nix; - ntp-client = ./.plan.nix/ntp-client.nix; - optparse-applicative-fork = ./.plan.nix/optparse-applicative-fork.nix; - lobemo-backend-ekg = ./.plan.nix/lobemo-backend-ekg.nix; - cardano-addresses-cli = ./.plan.nix/cardano-addresses-cli.nix; - quickcheck-dynamic = ./.plan.nix/quickcheck-dynamic.nix; - small-steps = ./.plan.nix/small-steps.nix; - compact-map = ./.plan.nix/compact-map.nix; - ouroboros-network-framework = ./.plan.nix/ouroboros-network-framework.nix; - orphans-deriving-via = ./.plan.nix/orphans-deriving-via.nix; - cardano-numeric = ./.plan.nix/cardano-numeric.nix; - cardano-wallet-cli = ./.plan.nix/cardano-wallet-cli.nix; - word-array = ./.plan.nix/word-array.nix; - ouroboros-consensus-shelley = ./.plan.nix/ouroboros-consensus-shelley.nix; - byron-spec-chain = ./.plan.nix/byron-spec-chain.nix; - cardano-crypto-test = ./.plan.nix/cardano-crypto-test.nix; - cardano-config = ./.plan.nix/cardano-config.nix; - lobemo-backend-graylog = ./.plan.nix/lobemo-backend-graylog.nix; - ouroboros-network-testing = ./.plan.nix/ouroboros-network-testing.nix; - marlowe-contracts = ./.plan.nix/marlowe-contracts.nix; - trace-forward = ./.plan.nix/trace-forward.nix; - Win32-network = ./.plan.nix/Win32-network.nix; - cardano-ledger-shelley-test = ./.plan.nix/cardano-ledger-shelley-test.nix; - lobemo-backend-monitoring = ./.plan.nix/lobemo-backend-monitoring.nix; - iohk-monitoring = ./.plan.nix/iohk-monitoring.nix; - plutus-contract = ./.plan.nix/plutus-contract.nix; - marlowe-actus = ./.plan.nix/marlowe-actus.nix; - io-sim = ./.plan.nix/io-sim.nix; - plutus-chain-index = ./.plan.nix/plutus-chain-index.nix; - typed-protocols-examples = ./.plan.nix/typed-protocols-examples.nix; - ouroboros-consensus = ./.plan.nix/ouroboros-consensus.nix; - plutus-ledger-constraints = ./.plan.nix/plutus-ledger-constraints.nix; - cardano-api = ./.plan.nix/cardano-api.nix; - lobemo-backend-editor = ./.plan.nix/lobemo-backend-editor.nix; - base-deriving-via = ./.plan.nix/base-deriving-via.nix; - lobemo-scribe-systemd = ./.plan.nix/lobemo-scribe-systemd.nix; - cardano-wallet-core-integration = ./.plan.nix/cardano-wallet-core-integration.nix; - ekg-forward = ./.plan.nix/ekg-forward.nix; - marlowe-symbolic = ./.plan.nix/marlowe-symbolic.nix; - plutus-tx-plugin = ./.plan.nix/plutus-tx-plugin.nix; - strict-stm = ./.plan.nix/strict-stm.nix; - cardano-ledger-alonzo = ./.plan.nix/cardano-ledger-alonzo.nix; - trace-dispatcher = ./.plan.nix/trace-dispatcher.nix; - cardano-ledger-core = ./.plan.nix/cardano-ledger-core.nix; - ouroboros-consensus-byron = ./.plan.nix/ouroboros-consensus-byron.nix; - cardano-binary-test = ./.plan.nix/cardano-binary-test.nix; - cardano-crypto = ./.plan.nix/cardano-crypto.nix; - web-ghc = ./.plan.nix/web-ghc.nix; - lobemo-backend-aggregation = ./.plan.nix/lobemo-backend-aggregation.nix; - cardano-slotting = ./.plan.nix/cardano-slotting.nix; - io-classes = ./.plan.nix/io-classes.nix; - typed-protocols = ./.plan.nix/typed-protocols.nix; - typed-protocols-cborg = ./.plan.nix/typed-protocols-cborg.nix; - ouroboros-consensus-protocol = ./.plan.nix/ouroboros-consensus-protocol.nix; - cardano-crypto-wrapper = ./.plan.nix/cardano-crypto-wrapper.nix; - plutus-ghc-stub = ./.plan.nix/plutus-ghc-stub.nix; - network-mux = ./.plan.nix/network-mux.nix; - plutus-contract-certification = ./.plan.nix/plutus-contract-certification.nix; - plutus-playground-server = ./.plan.nix/plutus-playground-server.nix; - tracer-transformers = ./.plan.nix/tracer-transformers.nix; - non-integral = ./.plan.nix/non-integral.nix; - ouroboros-network = ./.plan.nix/ouroboros-network.nix; - set-algebra = ./.plan.nix/set-algebra.nix; - prettyprinter-configurable = ./.plan.nix/prettyprinter-configurable.nix; - cardano-wallet-test-utils = ./.plan.nix/cardano-wallet-test-utils.nix; - purescript-bridge = ./.plan.nix/purescript-bridge.nix; - dbvar = ./.plan.nix/dbvar.nix; - cardano-binary = ./.plan.nix/cardano-binary.nix; - lobemo-backend-trace-acceptor = ./.plan.nix/lobemo-backend-trace-acceptor.nix; - }; - }; - modules = [ - ({ lib, ... }: - { - packages = { - "cardano-node" = { - flags = { - "unexpected_thunks" = lib.mkOverride 900 false; - "systemd" = lib.mkOverride 900 true; - }; - }; - "strict-containers" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "cardano-ledger-byron-test" = { flags = {}; }; - "plutus-pab-executables" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "cardano-testnet" = { flags = {}; }; - "plutus-tx" = { flags = {}; }; - "cardano-ledger-byron" = { - flags = { "test-normal-form" = lib.mkOverride 900 false; }; - }; - "cardano-data" = { flags = {}; }; - "freer-extras" = { flags = {}; }; - "measures" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "cardano-prelude" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "cardano-wallet-launcher" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "cardano-ledger-pretty" = { flags = {}; }; - "cardano-protocol-tpraos" = { flags = {}; }; - "marlowe-playground-server" = { flags = {}; }; - "plutus-core" = { flags = {}; }; - "plutus-ledger-api" = { flags = {}; }; - "cardano-prelude-test" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "strict-non-empty-containers" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "cardano-wallet-core" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "hedgehog-extras" = { flags = {}; }; - "cardano-submit-api" = { flags = {}; }; - "marlowe" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "cardano-git-rev" = { - flags = { "systemd" = lib.mkOverride 900 true; }; - }; - "plutus-pab" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "plutus-use-cases" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "goblins" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "byron-spec-ledger" = { flags = {}; }; - "contra-tracer" = { flags = {}; }; - "plutus-ledger" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "small-steps-test" = { flags = {}; }; - "trace-resources" = { flags = {}; }; - "cardano-wallet" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "cardano-ledger-shelley" = { flags = {}; }; - "monoidal-synchronisation" = { flags = {}; }; - "cardano-ledger-shelley-ma" = { flags = {}; }; - "cardano-crypto-class" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "playground-common" = { flags = {}; }; - "cardano-addresses" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "cardano-cli" = { - flags = { "unexpected_thunks" = lib.mkOverride 900 false; }; - }; - "ouroboros-consensus-cardano" = { - flags = { "asserts" = lib.mkOverride 900 false; }; - }; - "plutus-chain-index-core" = { flags = {}; }; - "flat" = { flags = {}; }; - "servant-purescript" = { flags = {}; }; - "cardano-crypto-praos" = { - flags = { - "external-libsodium-vrf" = lib.mkOverride 900 true; - "development" = lib.mkOverride 900 false; - }; - }; - "text-class" = { flags = { "release" = lib.mkOverride 900 false; }; }; - "lobemo-backend-trace-forwarder" = { flags = {}; }; - "ntp-client" = { flags = { "demo" = lib.mkOverride 900 true; }; }; - "optparse-applicative-fork" = { - flags = { "process" = lib.mkOverride 900 true; }; - }; - "lobemo-backend-ekg" = { flags = {}; }; - "cardano-addresses-cli" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "quickcheck-dynamic" = { flags = {}; }; - "small-steps" = { - flags = { "sts_assert" = lib.mkOverride 900 false; }; - }; - "compact-map" = { flags = {}; }; - "ouroboros-network-framework" = { flags = {}; }; - "orphans-deriving-via" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "cardano-numeric" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "cardano-wallet-cli" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "word-array" = { flags = {}; }; - "ouroboros-consensus-shelley" = { - flags = { "asserts" = lib.mkOverride 900 false; }; - }; - "byron-spec-chain" = { flags = {}; }; - "cardano-crypto-test" = { flags = {}; }; - "cardano-config" = { - flags = { "systemd" = lib.mkOverride 900 true; }; - }; - "lobemo-backend-graylog" = { flags = {}; }; - "ouroboros-network-testing" = { flags = {}; }; - "marlowe-contracts" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "trace-forward" = { flags = {}; }; - "Win32-network" = { flags = { "demo" = lib.mkOverride 900 false; }; }; - "cardano-ledger-shelley-test" = { flags = {}; }; - "lobemo-backend-monitoring" = { flags = {}; }; - "iohk-monitoring" = { - flags = { - "disable-observables" = lib.mkOverride 900 false; - "performance-test-queue" = lib.mkOverride 900 false; - }; - }; - "plutus-contract" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "marlowe-actus" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "io-sim" = { flags = { "asserts" = lib.mkOverride 900 false; }; }; - "plutus-chain-index" = { flags = {}; }; - "typed-protocols-examples" = { flags = {}; }; - "ouroboros-consensus" = { - flags = { "asserts" = lib.mkOverride 900 false; }; - }; - "plutus-ledger-constraints" = { flags = {}; }; - "cardano-api" = { flags = {}; }; - "lobemo-backend-editor" = { flags = {}; }; - "base-deriving-via" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "lobemo-scribe-systemd" = { flags = {}; }; - "cardano-wallet-core-integration" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "ekg-forward" = { flags = {}; }; - "marlowe-symbolic" = { flags = {}; }; - "plutus-tx-plugin" = { - flags = { "use-ghc-stub" = lib.mkOverride 900 false; }; - }; - "strict-stm" = { - flags = { - "checktvarinvariant" = lib.mkOverride 900 false; - "asserts" = lib.mkOverride 900 false; - }; - }; - "cardano-ledger-alonzo" = { flags = {}; }; - "trace-dispatcher" = { flags = {}; }; - "cardano-ledger-core" = { flags = {}; }; - "ouroboros-consensus-byron" = { - flags = { "asserts" = lib.mkOverride 900 false; }; - }; - "cardano-binary-test" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "cardano-crypto" = { - flags = { - "golden-tests-exe" = lib.mkOverride 900 false; - "golden-tests" = lib.mkOverride 900 false; - }; - }; - "web-ghc" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "lobemo-backend-aggregation" = { flags = {}; }; - "cardano-slotting" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "io-classes" = { - flags = { - "checktvarinvariant" = lib.mkOverride 900 false; - "asserts" = lib.mkOverride 900 false; - }; - }; - "typed-protocols" = { flags = {}; }; - "typed-protocols-cborg" = { flags = {}; }; - "ouroboros-consensus-protocol" = { - flags = { "asserts" = lib.mkOverride 900 false; }; - }; - "cardano-crypto-wrapper" = { flags = {}; }; - "plutus-ghc-stub" = { flags = {}; }; - "network-mux" = { - flags = { - "ipv6" = lib.mkOverride 900 false; - "asserts" = lib.mkOverride 900 false; - }; - }; - "plutus-contract-certification" = { flags = {}; }; - "plutus-playground-server" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "tracer-transformers" = { flags = {}; }; - "non-integral" = { flags = {}; }; - "ouroboros-network" = { - flags = { - "ipv6" = lib.mkOverride 900 false; - "cddl" = lib.mkOverride 900 true; - "asserts" = lib.mkOverride 900 false; - }; - }; - "set-algebra" = { flags = {}; }; - "prettyprinter-configurable" = { flags = {}; }; - "cardano-wallet-test-utils" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "purescript-bridge" = { flags = {}; }; - "dbvar" = { flags = { "release" = lib.mkOverride 900 false; }; }; - "cardano-binary" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "lobemo-backend-trace-acceptor" = { flags = {}; }; - }; - }) - ({ lib, ... }: - { - packages = { - "bytestring-builder".components.library.planned = lib.mkOverride 900 true; - "hspec-core".components.library.planned = lib.mkOverride 900 true; - "tracer-transformers".components.exes."tracer-transfomers-example2".planned = lib.mkOverride 900 true; - "foundation".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-byron".components.library.planned = lib.mkOverride 900 true; - "either".components.library.planned = lib.mkOverride 900 true; - "ansi-terminal".components.library.planned = lib.mkOverride 900 true; - "quiet".components.library.planned = lib.mkOverride 900 true; - "blockfrost-client-core".components.library.planned = lib.mkOverride 900 true; - "http-client-tls".components.library.planned = lib.mkOverride 900 true; - "servant-foreign".components.library.planned = lib.mkOverride 900 true; - "deriving-aeson".components.library.planned = lib.mkOverride 900 true; - "goblins".components.library.planned = lib.mkOverride 900 true; - "plutus-ledger-constraints".components.library.planned = lib.mkOverride 900 true; - "tasty-quickcheck".components.library.planned = lib.mkOverride 900 true; - "string-conversions".components.library.planned = lib.mkOverride 900 true; - "base16-bytestring".components.library.planned = lib.mkOverride 900 true; - "terminal-size".components.library.planned = lib.mkOverride 900 true; - "invariant".components.library.planned = lib.mkOverride 900 true; - "cardano-node".components.library.planned = lib.mkOverride 900 true; - "transformers-base".components.library.planned = lib.mkOverride 900 true; - "base-orphans".components.library.planned = lib.mkOverride 900 true; - "scrypt".components.library.planned = lib.mkOverride 900 true; - "aeson-casing".components.library.planned = lib.mkOverride 900 true; - "lazy-search".components.library.planned = lib.mkOverride 900 true; - "plutus-chain-index".components.library.planned = lib.mkOverride 900 true; - "groups".components.library.planned = lib.mkOverride 900 true; - "servant".components.library.planned = lib.mkOverride 900 true; - "bin".components.library.planned = lib.mkOverride 900 true; - "th-orphans".components.library.planned = lib.mkOverride 900 true; - "socks".components.library.planned = lib.mkOverride 900 true; - "tracer-transformers".components.exes."tracer-transfomers-example1".planned = lib.mkOverride 900 true; - "threepenny-gui".components.library.planned = lib.mkOverride 900 true; - "freer-extras".components.library.planned = lib.mkOverride 900 true; - "megaparsec".components.library.planned = lib.mkOverride 900 true; - "cookie".components.library.planned = lib.mkOverride 900 true; - "bimap".components.library.planned = lib.mkOverride 900 true; - "math-functions".components.library.planned = lib.mkOverride 900 true; - "these".components.library.planned = lib.mkOverride 900 true; - "cardano-binary-test".components.library.planned = lib.mkOverride 900 true; - "cardano-crypto-wrapper".components.library.planned = lib.mkOverride 900 true; - "pretty-simple".components.setup.planned = lib.mkOverride 900 true; - "sort".components.library.planned = lib.mkOverride 900 true; - "cereal".components.library.planned = lib.mkOverride 900 true; - "servant-multipart-client".components.library.planned = lib.mkOverride 900 true; - "pretty-show".components.exes."ppsh".planned = lib.mkOverride 900 true; - "measures".components.library.planned = lib.mkOverride 900 true; - "barbies".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus-byron".components.exes."db-converter".planned = lib.mkOverride 900 true; - "resourcet".components.library.planned = lib.mkOverride 900 true; - "tdigest".components.library.planned = lib.mkOverride 900 true; - "haskell-src-meta".components.library.planned = lib.mkOverride 900 true; - "cardano-addresses-cli".components.library.planned = lib.mkOverride 900 true; - "extra".components.library.planned = lib.mkOverride 900 true; - "http2".components.library.planned = lib.mkOverride 900 true; - "persistent".components.library.planned = lib.mkOverride 900 true; - "microlens".components.library.planned = lib.mkOverride 900 true; - "hedgehog".components.library.planned = lib.mkOverride 900 true; - "fmlist".components.library.planned = lib.mkOverride 900 true; - "filepath".components.library.planned = lib.mkOverride 900 true; - "text-conversions".components.library.planned = lib.mkOverride 900 true; - "data-default-instances-old-locale".components.library.planned = lib.mkOverride 900 true; - "pretty-show".components.library.planned = lib.mkOverride 900 true; - "newtype-generics".components.library.planned = lib.mkOverride 900 true; - "cardano-addresses".components.library.planned = lib.mkOverride 900 true; - "ral".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet-core-integration".components.library.planned = lib.mkOverride 900 true; - "wai".components.library.planned = lib.mkOverride 900 true; - "fmt".components.library.planned = lib.mkOverride 900 true; - "ekg-forward".components.library.planned = lib.mkOverride 900 true; - "system-filepath".components.library.planned = lib.mkOverride 900 true; - "playground-common".components.library.planned = lib.mkOverride 900 true; - "network-mux".components.exes."mux-demo".planned = lib.mkOverride 900 true; - "distributive".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-pab-setup".planned = lib.mkOverride 900 true; - "ouroboros-network-framework".components.exes."demo-ping-pong".planned = lib.mkOverride 900 true; - "pretty".components.library.planned = lib.mkOverride 900 true; - "utf8-string".components.library.planned = lib.mkOverride 900 true; - "pretty-simple".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus-cardano".components.library.planned = lib.mkOverride 900 true; - "typerep-map".components.sublibs."typerep-extra-impls".planned = lib.mkOverride 900 true; - "plutus-tx".components.sublibs."plutus-tx-testlib".planned = lib.mkOverride 900 true; - "Cabal".components.library.planned = lib.mkOverride 900 true; - "vector-space".components.library.planned = lib.mkOverride 900 true; - "reflection".components.library.planned = lib.mkOverride 900 true; - "authenticate-oauth".components.library.planned = lib.mkOverride 900 true; - "Unique".components.library.planned = lib.mkOverride 900 true; - "attoparsec-iso8601".components.library.planned = lib.mkOverride 900 true; - "vector-sized".components.library.planned = lib.mkOverride 900 true; - "quickcheck-io".components.library.planned = lib.mkOverride 900 true; - "dec".components.library.planned = lib.mkOverride 900 true; - "lattices".components.library.planned = lib.mkOverride 900 true; - "SHA".components.library.planned = lib.mkOverride 900 true; - "bytestring".components.library.planned = lib.mkOverride 900 true; - "cardano-api".components.sublibs."gen".planned = lib.mkOverride 900 true; - "tasty-golden".components.library.planned = lib.mkOverride 900 true; - "composition-prelude".components.library.planned = lib.mkOverride 900 true; - "plutus-chain-index-core".components.library.planned = lib.mkOverride 900 true; - "mwc-random".components.library.planned = lib.mkOverride 900 true; - "mono-traversable".components.library.planned = lib.mkOverride 900 true; - "docopt".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-core".components.library.planned = lib.mkOverride 900 true; - "zlib".components.library.planned = lib.mkOverride 900 true; - "servant-server".components.exes."greet".planned = lib.mkOverride 900 true; - "list-t".components.library.planned = lib.mkOverride 900 true; - "ntp-client".components.exes."demo-ntp-client".planned = lib.mkOverride 900 true; - "freer-simple".components.exes."freer-simple-examples".planned = lib.mkOverride 900 true; - "strict".components.library.planned = lib.mkOverride 900 true; - "jwt".components.library.planned = lib.mkOverride 900 true; - "entropy".components.setup.planned = lib.mkOverride 900 true; - "comonad".components.library.planned = lib.mkOverride 900 true; - "data-fix".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet-test-utils".components.library.planned = lib.mkOverride 900 true; - "mtl-compat".components.library.planned = lib.mkOverride 900 true; - "dbvar".components.library.planned = lib.mkOverride 900 true; - "plutus-core".components.exes."uplc".planned = lib.mkOverride 900 true; - "purescript-bridge".components.library.planned = lib.mkOverride 900 true; - "wl-pprint".components.library.planned = lib.mkOverride 900 true; - "modern-uri".components.library.planned = lib.mkOverride 900 true; - "lobemo-backend-trace-acceptor".components.library.planned = lib.mkOverride 900 true; - "set-algebra".components.library.planned = lib.mkOverride 900 true; - "unliftio".components.library.planned = lib.mkOverride 900 true; - "libBF".components.library.planned = lib.mkOverride 900 true; - "typed-protocols-examples".components.library.planned = lib.mkOverride 900 true; - "cborg".components.library.planned = lib.mkOverride 900 true; - "constraints-extras".components.exes."readme".planned = lib.mkOverride 900 true; - "prettyprinter-ansi-terminal".components.library.planned = lib.mkOverride 900 true; - "base64-bytestring-type".components.library.planned = lib.mkOverride 900 true; - "lens".components.setup.planned = lib.mkOverride 900 true; - "sop-core".components.library.planned = lib.mkOverride 900 true; - "serialise".components.library.planned = lib.mkOverride 900 true; - "ekg".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus-shelley".components.library.planned = lib.mkOverride 900 true; - "ouroboros-network".components.library.planned = lib.mkOverride 900 true; - "profunctors".components.library.planned = lib.mkOverride 900 true; - "exceptions".components.library.planned = lib.mkOverride 900 true; - "one-line-aeson-text".components.library.planned = lib.mkOverride 900 true; - "mmorph".components.library.planned = lib.mkOverride 900 true; - "safe-exceptions".components.library.planned = lib.mkOverride 900 true; - "strict-containers".components.library.planned = lib.mkOverride 900 true; - "call-stack".components.library.planned = lib.mkOverride 900 true; - "unix-bytestring".components.library.planned = lib.mkOverride 900 true; - "async-timer".components.library.planned = lib.mkOverride 900 true; - "optics-core".components.library.planned = lib.mkOverride 900 true; - "plutus-use-cases".components.library.planned = lib.mkOverride 900 true; - "old-time".components.library.planned = lib.mkOverride 900 true; - "size-based".components.library.planned = lib.mkOverride 900 true; - "dlist".components.library.planned = lib.mkOverride 900 true; - "cardano-testnet".components.library.planned = lib.mkOverride 900 true; - "time-manager".components.library.planned = lib.mkOverride 900 true; - "snap-core".components.library.planned = lib.mkOverride 900 true; - "ghc-prim".components.library.planned = lib.mkOverride 900 true; - "servant-purescript".components.library.planned = lib.mkOverride 900 true; - "HUnit".components.library.planned = lib.mkOverride 900 true; - "marlowe-playground-server".components.tests."marlowe-playground-server-test".planned = lib.mkOverride 900 true; - "some".components.library.planned = lib.mkOverride 900 true; - "lobemo-backend-trace-forwarder".components.library.planned = lib.mkOverride 900 true; - "servant-docs".components.exes."greet-docs".planned = lib.mkOverride 900 true; - "dependent-sum-template".components.library.planned = lib.mkOverride 900 true; - "plutus-ghc-stub".components.library.planned = lib.mkOverride 900 true; - "generic-data".components.library.planned = lib.mkOverride 900 true; - "IntervalMap".components.library.planned = lib.mkOverride 900 true; - "small-steps".components.library.planned = lib.mkOverride 900 true; - "quickcheck-classes".components.library.planned = lib.mkOverride 900 true; - "array".components.library.planned = lib.mkOverride 900 true; - "x509".components.library.planned = lib.mkOverride 900 true; - "quickcheck-instances".components.library.planned = lib.mkOverride 900 true; - "servant-client-core".components.library.planned = lib.mkOverride 900 true; - "mersenne-random-pure64".components.library.planned = lib.mkOverride 900 true; - "command".components.library.planned = lib.mkOverride 900 true; - "lobemo-backend-ekg".components.library.planned = lib.mkOverride 900 true; - "canonical-json".components.library.planned = lib.mkOverride 900 true; - "tracer-transformers".components.library.planned = lib.mkOverride 900 true; - "binary".components.library.planned = lib.mkOverride 900 true; - "ouroboros-network-framework".components.library.planned = lib.mkOverride 900 true; - "charset".components.library.planned = lib.mkOverride 900 true; - "cardano-crypto-class".components.library.planned = lib.mkOverride 900 true; - "primitive-addr".components.library.planned = lib.mkOverride 900 true; - "wai-extra".components.library.planned = lib.mkOverride 900 true; - "validation".components.library.planned = lib.mkOverride 900 true; - "cardano-numeric".components.library.planned = lib.mkOverride 900 true; - "ghc-boot-th".components.library.planned = lib.mkOverride 900 true; - "stm-chans".components.library.planned = lib.mkOverride 900 true; - "servant-multipart-client".components.exes."upload".planned = lib.mkOverride 900 true; - "typerep-map".components.library.planned = lib.mkOverride 900 true; - "scientific".components.library.planned = lib.mkOverride 900 true; - "th-extras".components.library.planned = lib.mkOverride 900 true; - "compact-map".components.library.planned = lib.mkOverride 900 true; - "openapi3".components.setup.planned = lib.mkOverride 900 true; - "hspec-discover".components.exes."hspec-discover".planned = lib.mkOverride 900 true; - "splitmix".components.library.planned = lib.mkOverride 900 true; - "io-sim".components.library.planned = lib.mkOverride 900 true; - "rts".components.library.planned = lib.mkOverride 900 true; - "time-out".components.library.planned = lib.mkOverride 900 true; - "nothunks".components.library.planned = lib.mkOverride 900 true; - "dense-linear-algebra".components.library.planned = lib.mkOverride 900 true; - "blaze-html".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet-launcher".components.library.planned = lib.mkOverride 900 true; - "marlowe-contracts".components.library.planned = lib.mkOverride 900 true; - "moo".components.library.planned = lib.mkOverride 900 true; - "temporary".components.library.planned = lib.mkOverride 900 true; - "trace-forward".components.library.planned = lib.mkOverride 900 true; - "tagged".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-pab-nami-demo-generator".planned = lib.mkOverride 900 true; - "unix".components.library.planned = lib.mkOverride 900 true; - "cardano-protocol-tpraos".components.library.planned = lib.mkOverride 900 true; - "file-embed".components.library.planned = lib.mkOverride 900 true; - "optics-th".components.library.planned = lib.mkOverride 900 true; - "simple-sendfile".components.library.planned = lib.mkOverride 900 true; - "pipes".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-pretty".components.library.planned = lib.mkOverride 900 true; - "semirings".components.library.planned = lib.mkOverride 900 true; - "hsc2hs".components.exes."hsc2hs".planned = lib.mkOverride 900 true; - "trace-dispatcher".components.library.planned = lib.mkOverride 900 true; - "servant-options".components.library.planned = lib.mkOverride 900 true; - "parser-combinators".components.library.planned = lib.mkOverride 900 true; - "Boolean".components.library.planned = lib.mkOverride 900 true; - "Win32-network".components.library.planned = lib.mkOverride 900 true; - "int-cast".components.library.planned = lib.mkOverride 900 true; - "vector".components.library.planned = lib.mkOverride 900 true; - "plutus-contract".components.library.planned = lib.mkOverride 900 true; - "indexed-traversable-instances".components.library.planned = lib.mkOverride 900 true; - "servant-server".components.library.planned = lib.mkOverride 900 true; - "data-default-class".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet-core".components.library.planned = lib.mkOverride 900 true; - "flat".components.library.planned = lib.mkOverride 900 true; - "wai-websockets".components.exes."wai-websockets-example".planned = lib.mkOverride 900 true; - "generic-lens-core".components.library.planned = lib.mkOverride 900 true; - "servant-openapi3".components.library.planned = lib.mkOverride 900 true; - "regex-base".components.library.planned = lib.mkOverride 900 true; - "adjunctions".components.library.planned = lib.mkOverride 900 true; - "tree-diff".components.library.planned = lib.mkOverride 900 true; - "plutus-use-cases".components.exes."plutus-use-cases-scripts".planned = lib.mkOverride 900 true; - "marlowe-actus".components.library.planned = lib.mkOverride 900 true; - "vector-binary-instances".components.library.planned = lib.mkOverride 900 true; - "parallel".components.library.planned = lib.mkOverride 900 true; - "cryptonite".components.library.planned = lib.mkOverride 900 true; - "asn1-parse".components.library.planned = lib.mkOverride 900 true; - "cardano-addresses-cli".components.exes."cardano-address".planned = lib.mkOverride 900 true; - "beam-migrate".components.library.planned = lib.mkOverride 900 true; - "strict-non-empty-containers".components.library.planned = lib.mkOverride 900 true; - "web-ghc".components.exes."web-ghc-server".planned = lib.mkOverride 900 true; - "indexed-list-literals".components.library.planned = lib.mkOverride 900 true; - "signal".components.exes."test".planned = lib.mkOverride 900 true; - "foldl".components.library.planned = lib.mkOverride 900 true; - "prometheus".components.library.planned = lib.mkOverride 900 true; - "type-equality".components.library.planned = lib.mkOverride 900 true; - "network-byte-order".components.library.planned = lib.mkOverride 900 true; - "word-array".components.library.planned = lib.mkOverride 900 true; - "rate-limit".components.library.planned = lib.mkOverride 900 true; - "mime-types".components.library.planned = lib.mkOverride 900 true; - "silently".components.library.planned = lib.mkOverride 900 true; - "blockfrost-client".components.library.planned = lib.mkOverride 900 true; - "ekg-json".components.library.planned = lib.mkOverride 900 true; - "concurrent-output".components.library.planned = lib.mkOverride 900 true; - "directory".components.library.planned = lib.mkOverride 900 true; - "happy".components.exes."happy".planned = lib.mkOverride 900 true; - "cardano-wallet".components.library.planned = lib.mkOverride 900 true; - "network-info".components.library.planned = lib.mkOverride 900 true; - "servant-openapi3".components.setup.planned = lib.mkOverride 900 true; - "uuid".components.library.planned = lib.mkOverride 900 true; - "time".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus-protocol".components.library.planned = lib.mkOverride 900 true; - "cardano-prelude".components.library.planned = lib.mkOverride 900 true; - "universe-reverse-instances".components.library.planned = lib.mkOverride 900 true; - "MonadRandom".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-pab-local-cluster".planned = lib.mkOverride 900 true; - "bech32-th".components.library.planned = lib.mkOverride 900 true; - "cardano-slotting".components.library.planned = lib.mkOverride 900 true; - "http-api-data".components.library.planned = lib.mkOverride 900 true; - "network".components.library.planned = lib.mkOverride 900 true; - "psqueues".components.library.planned = lib.mkOverride 900 true; - "show-combinators".components.library.planned = lib.mkOverride 900 true; - "ListLike".components.library.planned = lib.mkOverride 900 true; - "string-interpolate".components.library.planned = lib.mkOverride 900 true; - "bsb-http-chunked".components.library.planned = lib.mkOverride 900 true; - "ouroboros-network-testing".components.library.planned = lib.mkOverride 900 true; - "plutus-ledger".components.library.planned = lib.mkOverride 900 true; - "cmdargs".components.library.planned = lib.mkOverride 900 true; - "aeson-pretty".components.exes."aeson-pretty".planned = lib.mkOverride 900 true; - "prettyprinter-configurable".components.setup.planned = lib.mkOverride 900 true; - "lobemo-backend-editor".components.library.planned = lib.mkOverride 900 true; - "StateVar".components.library.planned = lib.mkOverride 900 true; - "libBF".components.exes."bf-test".planned = lib.mkOverride 900 true; - "cardano-node".components.exes."cardano-node".planned = lib.mkOverride 900 true; - "deriving-compat".components.library.planned = lib.mkOverride 900 true; - "fast-logger".components.library.planned = lib.mkOverride 900 true; - "data-default".components.library.planned = lib.mkOverride 900 true; - "case-insensitive".components.library.planned = lib.mkOverride 900 true; - "fin".components.library.planned = lib.mkOverride 900 true; - "path-pieces".components.library.planned = lib.mkOverride 900 true; - "strict-stm".components.library.planned = lib.mkOverride 900 true; - "io-streams-haproxy".components.library.planned = lib.mkOverride 900 true; - "trace-resources".components.library.planned = lib.mkOverride 900 true; - "cardano-api".components.library.planned = lib.mkOverride 900 true; - "bech32".components.library.planned = lib.mkOverride 900 true; - "ghc".components.library.planned = lib.mkOverride 900 true; - "th-expand-syns".components.library.planned = lib.mkOverride 900 true; - "strict-list".components.library.planned = lib.mkOverride 900 true; - "servant-multipart".components.library.planned = lib.mkOverride 900 true; - "plutus-playground-server".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."sync-client".planned = lib.mkOverride 900 true; - "unix-time".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-shelley-ma".components.library.planned = lib.mkOverride 900 true; - "direct-sqlite".components.library.planned = lib.mkOverride 900 true; - "snap-server".components.library.planned = lib.mkOverride 900 true; - "orphans-deriving-via".components.library.planned = lib.mkOverride 900 true; - "half".components.library.planned = lib.mkOverride 900 true; - "cryptostore".components.library.planned = lib.mkOverride 900 true; - "cardano-git-rev".components.library.planned = lib.mkOverride 900 true; - "text-class".components.library.planned = lib.mkOverride 900 true; - "file-embed-lzma".components.library.planned = lib.mkOverride 900 true; - "monad-loops".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet".components.exes."mock-token-metadata-server".planned = lib.mkOverride 900 true; - "websockets".components.library.planned = lib.mkOverride 900 true; - "marlowe".components.library.planned = lib.mkOverride 900 true; - "indexed-profunctors".components.library.planned = lib.mkOverride 900 true; - "cryptohash-sha1".components.library.planned = lib.mkOverride 900 true; - "readable".components.library.planned = lib.mkOverride 900 true; - "ntp-client".components.library.planned = lib.mkOverride 900 true; - "beam-core".components.library.planned = lib.mkOverride 900 true; - "generic-deriving".components.library.planned = lib.mkOverride 900 true; - "free".components.library.planned = lib.mkOverride 900 true; - "plutus-core".components.sublibs."plutus-core-testlib".planned = lib.mkOverride 900 true; - "unix-compat".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."tx-inject".planned = lib.mkOverride 900 true; - "x509-store".components.library.planned = lib.mkOverride 900 true; - "Win32-network".components.exes."named-pipe-demo".planned = lib.mkOverride 900 true; - "vector-algorithms".components.library.planned = lib.mkOverride 900 true; - "servant-blaze".components.library.planned = lib.mkOverride 900 true; - "blaze-builder".components.library.planned = lib.mkOverride 900 true; - "marlowe-playground-server".components.exes."flow-chart-generator".planned = lib.mkOverride 900 true; - "asn1-types".components.library.planned = lib.mkOverride 900 true; - "cardano-data".components.library.planned = lib.mkOverride 900 true; - "ouroboros-network".components.sublibs."ouroboros-protocol-tests".planned = lib.mkOverride 900 true; - "setenv".components.library.planned = lib.mkOverride 900 true; - "generic-random".components.library.planned = lib.mkOverride 900 true; - "lifted-base".components.library.planned = lib.mkOverride 900 true; - "lazysmallcheck".components.library.planned = lib.mkOverride 900 true; - "tls-session-manager".components.library.planned = lib.mkOverride 900 true; - "criterion-measurement".components.library.planned = lib.mkOverride 900 true; - "unliftio-core".components.library.planned = lib.mkOverride 900 true; - "wl-pprint-text".components.library.planned = lib.mkOverride 900 true; - "data-default-instances-containers".components.library.planned = lib.mkOverride 900 true; - "safe".components.library.planned = lib.mkOverride 900 true; - "constraints".components.library.planned = lib.mkOverride 900 true; - "byron-spec-ledger".components.library.planned = lib.mkOverride 900 true; - "yaml".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus".components.library.planned = lib.mkOverride 900 true; - "servant-swagger-ui-core".components.library.planned = lib.mkOverride 900 true; - "web-ghc".components.library.planned = lib.mkOverride 900 true; - "indexed-traversable".components.library.planned = lib.mkOverride 900 true; - "network-uri".components.library.planned = lib.mkOverride 900 true; - "recursion-schemes".components.library.planned = lib.mkOverride 900 true; - "Stream".components.library.planned = lib.mkOverride 900 true; - "katip".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet".components.exes."cardano-wallet".planned = lib.mkOverride 900 true; - "cardano-submit-api".components.library.planned = lib.mkOverride 900 true; - "lzma".components.library.planned = lib.mkOverride 900 true; - "wai-logger".components.setup.planned = lib.mkOverride 900 true; - "streaming-binary".components.library.planned = lib.mkOverride 900 true; - "regex-posix".components.library.planned = lib.mkOverride 900 true; - "statistics-linreg".components.library.planned = lib.mkOverride 900 true; - "code-page".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus-byron".components.library.planned = lib.mkOverride 900 true; - "hedgehog-quickcheck".components.library.planned = lib.mkOverride 900 true; - "ekg-forward".components.exes."demo-acceptor".planned = lib.mkOverride 900 true; - "crypto-pubkey-types".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet-cli".components.library.planned = lib.mkOverride 900 true; - "memory".components.library.planned = lib.mkOverride 900 true; - "pem".components.library.planned = lib.mkOverride 900 true; - "typed-process".components.library.planned = lib.mkOverride 900 true; - "base-compat-batteries".components.library.planned = lib.mkOverride 900 true; - "newtype".components.library.planned = lib.mkOverride 900 true; - "typed-protocols-cborg".components.library.planned = lib.mkOverride 900 true; - "dictionary-sharing".components.library.planned = lib.mkOverride 900 true; - "time-units".components.library.planned = lib.mkOverride 900 true; - "microlens-th".components.library.planned = lib.mkOverride 900 true; - "tasty-hunit".components.library.planned = lib.mkOverride 900 true; - "split".components.library.planned = lib.mkOverride 900 true; - "pqueue".components.library.planned = lib.mkOverride 900 true; - "contravariant".components.library.planned = lib.mkOverride 900 true; - "appar".components.library.planned = lib.mkOverride 900 true; - "optparse-applicative-fork".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus-cardano".components.exes."db-analyser".planned = lib.mkOverride 900 true; - "servant-docs".components.library.planned = lib.mkOverride 900 true; - "beam-sqlite".components.library.planned = lib.mkOverride 900 true; - "th-utilities".components.library.planned = lib.mkOverride 900 true; - "typed-protocols".components.library.planned = lib.mkOverride 900 true; - "casing".components.library.planned = lib.mkOverride 900 true; - "persistent-template".components.library.planned = lib.mkOverride 900 true; - "zlib-bindings".components.library.planned = lib.mkOverride 900 true; - "syb".components.library.planned = lib.mkOverride 900 true; - "vector-th-unbox".components.library.planned = lib.mkOverride 900 true; - "hspec".components.library.planned = lib.mkOverride 900 true; - "sbv".components.library.planned = lib.mkOverride 900 true; - "cardano-cli".components.library.planned = lib.mkOverride 900 true; - "signal".components.library.planned = lib.mkOverride 900 true; - "cardano-binary".components.library.planned = lib.mkOverride 900 true; - "text-short".components.library.planned = lib.mkOverride 900 true; - "haskell-src-exts".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-uniswap".planned = lib.mkOverride 900 true; - "entropy".components.library.planned = lib.mkOverride 900 true; - "marlowe-playground-server".components.exes."marlowe-playground-server".planned = lib.mkOverride 900 true; - "assoc".components.library.planned = lib.mkOverride 900 true; - "process".components.library.planned = lib.mkOverride 900 true; - "http-date".components.library.planned = lib.mkOverride 900 true; - "MissingH".components.library.planned = lib.mkOverride 900 true; - "hspec-discover".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-shelley".components.library.planned = lib.mkOverride 900 true; - "tf-random".components.library.planned = lib.mkOverride 900 true; - "prettyprinter".components.library.planned = lib.mkOverride 900 true; - "transformers-except".components.library.planned = lib.mkOverride 900 true; - "freer-simple".components.library.planned = lib.mkOverride 900 true; - "clock".components.library.planned = lib.mkOverride 900 true; - "row-types".components.library.planned = lib.mkOverride 900 true; - "plutus-core".components.sublibs."index-envs".planned = lib.mkOverride 900 true; - "optics-extra".components.library.planned = lib.mkOverride 900 true; - "streaming".components.library.planned = lib.mkOverride 900 true; - "cardano-prelude-test".components.library.planned = lib.mkOverride 900 true; - "template-haskell".components.library.planned = lib.mkOverride 900 true; - "fingertree".components.library.planned = lib.mkOverride 900 true; - "blaze-markup".components.library.planned = lib.mkOverride 900 true; - "aeson-pretty".components.library.planned = lib.mkOverride 900 true; - "th-lift".components.library.planned = lib.mkOverride 900 true; - "insert-ordered-containers".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-alonzo".components.library.planned = lib.mkOverride 900 true; - "libyaml".components.library.planned = lib.mkOverride 900 true; - "stm".components.library.planned = lib.mkOverride 900 true; - "ghci".components.library.planned = lib.mkOverride 900 true; - "monoidal-containers".components.library.planned = lib.mkOverride 900 true; - "deque".components.library.planned = lib.mkOverride 900 true; - "retry".components.library.planned = lib.mkOverride 900 true; - "byteorder".components.library.planned = lib.mkOverride 900 true; - "dom-lt".components.library.planned = lib.mkOverride 900 true; - "witherable".components.library.planned = lib.mkOverride 900 true; - "lens-aeson".components.library.planned = lib.mkOverride 900 true; - "abstract-par".components.library.planned = lib.mkOverride 900 true; - "safe-money".components.library.planned = lib.mkOverride 900 true; - "monad-par".components.library.planned = lib.mkOverride 900 true; - "plutus-playground-server".components.exes."plutus-playground-server".planned = lib.mkOverride 900 true; - "openapi3".components.exes."example".planned = lib.mkOverride 900 true; - "system-filepath".components.setup.planned = lib.mkOverride 900 true; - "asn1-encoding".components.library.planned = lib.mkOverride 900 true; - "alex".components.exes."alex".planned = lib.mkOverride 900 true; - "semialign".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-pab-nami-demo".planned = lib.mkOverride 900 true; - "erf".components.library.planned = lib.mkOverride 900 true; - "cardano-crypto-test".components.library.planned = lib.mkOverride 900 true; - "generics-sop".components.library.planned = lib.mkOverride 900 true; - "http-client".components.library.planned = lib.mkOverride 900 true; - "async".components.library.planned = lib.mkOverride 900 true; - "marlowe-contracts".components.tests."marlowe-contracts-test".planned = lib.mkOverride 900 true; - "http-media".components.library.planned = lib.mkOverride 900 true; - "ghc-boot".components.library.planned = lib.mkOverride 900 true; - "word8".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-byron-test".components.library.planned = lib.mkOverride 900 true; - "hslogger".components.library.planned = lib.mkOverride 900 true; - "openapi3".components.library.planned = lib.mkOverride 900 true; - "microlens-mtl".components.library.planned = lib.mkOverride 900 true; - "semigroupoids".components.setup.planned = lib.mkOverride 900 true; - "hspec-expectations-lifted".components.library.planned = lib.mkOverride 900 true; - "plutus-tx".components.library.planned = lib.mkOverride 900 true; - "tasty-hedgehog".components.library.planned = lib.mkOverride 900 true; - "http-conduit".components.library.planned = lib.mkOverride 900 true; - "cabal-doctest".components.library.planned = lib.mkOverride 900 true; - "iproute".components.library.planned = lib.mkOverride 900 true; - "abstract-deque".components.library.planned = lib.mkOverride 900 true; - "servant-client".components.library.planned = lib.mkOverride 900 true; - "natural-transformation".components.library.planned = lib.mkOverride 900 true; - "wl-pprint-annotated".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-pab-examples".planned = lib.mkOverride 900 true; - "wai-logger".components.library.planned = lib.mkOverride 900 true; - "th-compat".components.library.planned = lib.mkOverride 900 true; - "cardano-crypto".components.library.planned = lib.mkOverride 900 true; - "tls".components.library.planned = lib.mkOverride 900 true; - "hpc".components.library.planned = lib.mkOverride 900 true; - "http-types".components.library.planned = lib.mkOverride 900 true; - "websockets-snap".components.library.planned = lib.mkOverride 900 true; - "generic-monoid".components.library.planned = lib.mkOverride 900 true; - "lens".components.library.planned = lib.mkOverride 900 true; - "small-steps-test".components.library.planned = lib.mkOverride 900 true; - "network-mux".components.library.planned = lib.mkOverride 900 true; - "logict".components.library.planned = lib.mkOverride 900 true; - "cardano-testnet".components.exes."cardano-testnet".planned = lib.mkOverride 900 true; - "srcloc".components.library.planned = lib.mkOverride 900 true; - "atomic-primops".components.library.planned = lib.mkOverride 900 true; - "gray-code".components.library.planned = lib.mkOverride 900 true; - "NumInstances".components.library.planned = lib.mkOverride 900 true; - "plutus-contract-certification".components.library.planned = lib.mkOverride 900 true; - "wcwidth".components.library.planned = lib.mkOverride 900 true; - "QuickCheck".components.library.planned = lib.mkOverride 900 true; - "ansi-wl-pprint".components.library.planned = lib.mkOverride 900 true; - "uuid-types".components.library.planned = lib.mkOverride 900 true; - "generic-arbitrary".components.library.planned = lib.mkOverride 900 true; - "req".components.library.planned = lib.mkOverride 900 true; - "process-extras".components.library.planned = lib.mkOverride 900 true; - "io-classes".components.library.planned = lib.mkOverride 900 true; - "monoidal-synchronisation".components.library.planned = lib.mkOverride 900 true; - "ap-normalize".components.library.planned = lib.mkOverride 900 true; - "semigroupoids".components.library.planned = lib.mkOverride 900 true; - "x509-validation".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet".components.exes."local-cluster".planned = lib.mkOverride 900 true; - "network-bsd".components.library.planned = lib.mkOverride 900 true; - "quickcheck-dynamic".components.library.planned = lib.mkOverride 900 true; - "ghc-heap".components.library.planned = lib.mkOverride 900 true; - "filelock".components.library.planned = lib.mkOverride 900 true; - "wai-app-static".components.exes."warp".planned = lib.mkOverride 900 true; - "marlowe-symbolic".components.library.planned = lib.mkOverride 900 true; - "singleton-bool".components.library.planned = lib.mkOverride 900 true; - "marlowe-playground-server".components.library.planned = lib.mkOverride 900 true; - "attoparsec".components.library.planned = lib.mkOverride 900 true; - "algebraic-graphs".components.library.planned = lib.mkOverride 900 true; - "data-default-instances-dlist".components.library.planned = lib.mkOverride 900 true; - "haskell-lexer".components.library.planned = lib.mkOverride 900 true; - "hspec-golden-aeson".components.library.planned = lib.mkOverride 900 true; - "bech32".components.exes."bech32".planned = lib.mkOverride 900 true; - "plutus-core".components.library.planned = lib.mkOverride 900 true; - "cardano-submit-api".components.exes."cardano-submit-api".planned = lib.mkOverride 900 true; - "wai-websockets".components.library.planned = lib.mkOverride 900 true; - "marlowe".components.exes."marlowe-pab-setup".planned = lib.mkOverride 900 true; - "quickcheck-arbitrary-adt".components.library.planned = lib.mkOverride 900 true; - "uniplate".components.library.planned = lib.mkOverride 900 true; - "time-interval".components.library.planned = lib.mkOverride 900 true; - "servant-multipart-api".components.library.planned = lib.mkOverride 900 true; - "plutus-chain-index".components.exes."plutus-chain-index".planned = lib.mkOverride 900 true; - "mtl".components.library.planned = lib.mkOverride 900 true; - "dependent-sum".components.library.planned = lib.mkOverride 900 true; - "OddWord".components.library.planned = lib.mkOverride 900 true; - "plutus-core".components.exes."pir".planned = lib.mkOverride 900 true; - "plutus-tx-plugin".components.library.planned = lib.mkOverride 900 true; - "base-unicode-symbols".components.library.planned = lib.mkOverride 900 true; - "iohk-monitoring".components.library.planned = lib.mkOverride 900 true; - "unbounded-delays".components.library.planned = lib.mkOverride 900 true; - "protolude".components.library.planned = lib.mkOverride 900 true; - "plutus-ledger-api".components.library.planned = lib.mkOverride 900 true; - "statistics".components.library.planned = lib.mkOverride 900 true; - "lobemo-backend-monitoring".components.library.planned = lib.mkOverride 900 true; - "monad-par-extras".components.library.planned = lib.mkOverride 900 true; - "servant-multipart-client".components.exes."server".planned = lib.mkOverride 900 true; - "aeson-qq".components.library.planned = lib.mkOverride 900 true; - "vault".components.library.planned = lib.mkOverride 900 true; - "th-abstraction".components.library.planned = lib.mkOverride 900 true; - "unagi-chan".components.library.planned = lib.mkOverride 900 true; - "RSA".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-shelley-test".components.library.planned = lib.mkOverride 900 true; - "plutus-pab".components.library.planned = lib.mkOverride 900 true; - "parsers".components.library.planned = lib.mkOverride 900 true; - "random-shuffle".components.library.planned = lib.mkOverride 900 true; - "cassava".components.library.planned = lib.mkOverride 900 true; - "persistent-sqlite".components.library.planned = lib.mkOverride 900 true; - "transformers".components.library.planned = lib.mkOverride 900 true; - "universe-base".components.library.planned = lib.mkOverride 900 true; - "prettyprinter-configurable".components.library.planned = lib.mkOverride 900 true; - "wai-app-static".components.library.planned = lib.mkOverride 900 true; - "servant-websockets".components.library.planned = lib.mkOverride 900 true; - "ouroboros-network-framework".components.exes."demo-connection-manager".planned = lib.mkOverride 900 true; - "sqlite-simple".components.library.planned = lib.mkOverride 900 true; - "constraints-extras".components.library.planned = lib.mkOverride 900 true; - "monad-logger".components.library.planned = lib.mkOverride 900 true; - "OneTuple".components.library.planned = lib.mkOverride 900 true; - "ouroboros-network".components.exes."demo-chain-sync".planned = lib.mkOverride 900 true; - "generic-lens".components.library.planned = lib.mkOverride 900 true; - "th-lift-instances".components.library.planned = lib.mkOverride 900 true; - "parsec".components.library.planned = lib.mkOverride 900 true; - "deepseq".components.library.planned = lib.mkOverride 900 true; - "primitive".components.library.planned = lib.mkOverride 900 true; - "cardano-crypto-praos".components.library.planned = lib.mkOverride 900 true; - "old-locale".components.library.planned = lib.mkOverride 900 true; - "finite-typelits".components.library.planned = lib.mkOverride 900 true; - "servant-websockets".components.exes."websocket-echo".planned = lib.mkOverride 900 true; - "lifted-async".components.library.planned = lib.mkOverride 900 true; - "conduit".components.library.planned = lib.mkOverride 900 true; - "cardano-config".components.library.planned = lib.mkOverride 900 true; - "blaze-textual".components.library.planned = lib.mkOverride 900 true; - "errors".components.library.planned = lib.mkOverride 900 true; - "microstache".components.library.planned = lib.mkOverride 900 true; - "trace-dispatcher".components.exes."trace-dispatcher-examples".planned = lib.mkOverride 900 true; - "text".components.library.planned = lib.mkOverride 900 true; - "reducers".components.library.planned = lib.mkOverride 900 true; - "lobemo-backend-graylog".components.library.planned = lib.mkOverride 900 true; - "partial-order".components.library.planned = lib.mkOverride 900 true; - "formatting".components.library.planned = lib.mkOverride 900 true; - "bifunctors".components.library.planned = lib.mkOverride 900 true; - "dependent-map".components.library.planned = lib.mkOverride 900 true; - "unordered-containers".components.library.planned = lib.mkOverride 900 true; - "random".components.library.planned = lib.mkOverride 900 true; - "servant-swagger-ui".components.library.planned = lib.mkOverride 900 true; - "base".components.library.planned = lib.mkOverride 900 true; - "quickcheck-classes-base".components.library.planned = lib.mkOverride 900 true; - "kan-extensions".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.library.planned = lib.mkOverride 900 true; - "integer-logarithms".components.library.planned = lib.mkOverride 900 true; - "plutus-playground-server".components.sublibs."plutus-playground-usecases".planned = lib.mkOverride 900 true; - "servant-websockets".components.exes."websocket-stream".planned = lib.mkOverride 900 true; - "warp-tls".components.library.planned = lib.mkOverride 900 true; - "marlowe".components.exes."marlowe-pab".planned = lib.mkOverride 900 true; - "cryptohash-md5".components.library.planned = lib.mkOverride 900 true; - "digest".components.library.planned = lib.mkOverride 900 true; - "io-streams".components.library.planned = lib.mkOverride 900 true; - "integer-gmp".components.library.planned = lib.mkOverride 900 true; - "tasty".components.library.planned = lib.mkOverride 900 true; - "lobemo-scribe-systemd".components.library.planned = lib.mkOverride 900 true; - "transformers-compat".components.library.planned = lib.mkOverride 900 true; - "ekg-forward".components.exes."demo-forwarder".planned = lib.mkOverride 900 true; - "dns".components.library.planned = lib.mkOverride 900 true; - "optparse-generic".components.library.planned = lib.mkOverride 900 true; - "plutus-core".components.exes."plc".planned = lib.mkOverride 900 true; - "monad-control".components.library.planned = lib.mkOverride 900 true; - "base-deriving-via".components.library.planned = lib.mkOverride 900 true; - "contra-tracer".components.library.planned = lib.mkOverride 900 true; - "streaming-commons".components.library.planned = lib.mkOverride 900 true; - "resource-pool".components.library.planned = lib.mkOverride 900 true; - "colour".components.library.planned = lib.mkOverride 900 true; - "blockfrost-api".components.library.planned = lib.mkOverride 900 true; - "streaming-bytestring".components.library.planned = lib.mkOverride 900 true; - "containers".components.library.planned = lib.mkOverride 900 true; - "th-reify-many".components.library.planned = lib.mkOverride 900 true; - "time-locale-compat".components.library.planned = lib.mkOverride 900 true; - "time-compat".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-pab-test-psgenerator".planned = lib.mkOverride 900 true; - "base58-bytestring".components.library.planned = lib.mkOverride 900 true; - "basement".components.library.planned = lib.mkOverride 900 true; - "optparse-applicative".components.library.planned = lib.mkOverride 900 true; - "lift-type".components.library.planned = lib.mkOverride 900 true; - "wai-cors".components.library.planned = lib.mkOverride 900 true; - "network-mux".components.exes."cardano-ping".planned = lib.mkOverride 900 true; - "aeson".components.library.planned = lib.mkOverride 900 true; - "x509-system".components.library.planned = lib.mkOverride 900 true; - "ekg-core".components.library.planned = lib.mkOverride 900 true; - "hspec-expectations".components.library.planned = lib.mkOverride 900 true; - "hourglass".components.library.planned = lib.mkOverride 900 true; - "base-compat".components.library.planned = lib.mkOverride 900 true; - "hostname".components.library.planned = lib.mkOverride 900 true; - "string-conv".components.library.planned = lib.mkOverride 900 true; - "base64-bytestring".components.library.planned = lib.mkOverride 900 true; - "plutus-core".components.exes."traceToStacks".planned = lib.mkOverride 900 true; - "hashable".components.library.planned = lib.mkOverride 900 true; - "semigroups".components.library.planned = lib.mkOverride 900 true; - "auto-update".components.library.planned = lib.mkOverride 900 true; - "byron-spec-chain".components.library.planned = lib.mkOverride 900 true; - "warp".components.library.planned = lib.mkOverride 900 true; - "mainland-pretty".components.library.planned = lib.mkOverride 900 true; - "lobemo-backend-aggregation".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."pab-cli".planned = lib.mkOverride 900 true; - "easy-file".components.library.planned = lib.mkOverride 900 true; - "cardano-cli".components.exes."cardano-cli".planned = lib.mkOverride 900 true; - "say".components.library.planned = lib.mkOverride 900 true; - "regex-compat".components.library.planned = lib.mkOverride 900 true; - "conduit-extra".components.library.planned = lib.mkOverride 900 true; - "hedgehog-extras".components.library.planned = lib.mkOverride 900 true; - "terminfo".components.library.planned = lib.mkOverride 900 true; - "non-integral".components.library.planned = lib.mkOverride 900 true; - "MemoTrie".components.library.planned = lib.mkOverride 900 true; - "connection".components.library.planned = lib.mkOverride 900 true; - "void".components.library.planned = lib.mkOverride 900 true; - "Only".components.library.planned = lib.mkOverride 900 true; - "exact-combinatorics".components.library.planned = lib.mkOverride 900 true; - "crypto-api".components.library.planned = lib.mkOverride 900 true; - "testing-type-modifiers".components.library.planned = lib.mkOverride 900 true; - }; - }) - ]; - } \ No newline at end of file diff --git a/nix/pkgs/haskell/materialized-windows/default.nix b/nix/pkgs/haskell/materialized-windows/default.nix deleted file mode 100644 index 1ea64aa012..0000000000 --- a/nix/pkgs/haskell/materialized-windows/default.nix +++ /dev/null @@ -1,1799 +0,0 @@ -{ - pkgs = hackage: - { - packages = { - "charset".revision = (((hackage."charset")."0.3.9").revisions).default; - "partial-order".revision = (((hackage."partial-order")."0.2.0.0").revisions).default; - "partial-order".flags.extra-instances = true; - "old-time".revision = (((hackage."old-time")."1.1.0.3").revisions).default; - "ghc-boot".revision = (((hackage."ghc-boot")."8.10.7").revisions).default; - "row-types".revision = (((hackage."row-types")."1.0.1.2").revisions).default; - "tf-random".revision = (((hackage."tf-random")."0.5").revisions).default; - "servant-client".revision = (((hackage."servant-client")."0.18.3").revisions).default; - "mmorph".revision = (((hackage."mmorph")."1.1.5").revisions).default; - "http-conduit".revision = (((hackage."http-conduit")."2.3.8").revisions).default; - "http-conduit".flags.aeson = true; - "natural-transformation".revision = (((hackage."natural-transformation")."0.4").revisions).default; - "network-bsd".revision = (((hackage."network-bsd")."2.8.1.0").revisions).default; - "req".revision = (((hackage."req")."3.10.0").revisions).default; - "req".flags.dev = false; - "happy".revision = (((hackage."happy")."1.20.0").revisions).default; - "blaze-textual".revision = (((hackage."blaze-textual")."0.2.2.1").revisions).default; - "blaze-textual".flags.integer-simple = false; - "blaze-textual".flags.developer = false; - "blaze-textual".flags.native = true; - "streaming-commons".revision = (((hackage."streaming-commons")."0.2.2.4").revisions).default; - "streaming-commons".flags.use-bytestring-builder = false; - "pretty".revision = (((hackage."pretty")."1.1.3.6").revisions).default; - "haskell-src-exts".revision = (((hackage."haskell-src-exts")."1.23.1").revisions).default; - "cborg".revision = (((hackage."cborg")."0.2.6.0").revisions).default; - "cborg".flags.optimize-gmp = true; - "regex-posix".revision = (((hackage."regex-posix")."0.96.0.1").revisions).default; - "regex-posix".flags._regex-posix-clib = false; - "servant-swagger-ui-core".revision = (((hackage."servant-swagger-ui-core")."0.3.5").revisions).default; - "regex-posix-clib".revision = (((hackage."regex-posix-clib")."2.7").revisions).default; - "network-uri".revision = (((hackage."network-uri")."2.6.4.1").revisions).default; - "universe-reverse-instances".revision = (((hackage."universe-reverse-instances")."1.1.1").revisions).default; - "parsers".revision = (((hackage."parsers")."0.12.10").revisions).default; - "parsers".flags.parsec = true; - "parsers".flags.binary = true; - "parsers".flags.attoparsec = true; - "unordered-containers".revision = (((hackage."unordered-containers")."0.2.16.0").revisions).default; - "unordered-containers".flags.debug = false; - "cassava".revision = (((hackage."cassava")."0.5.2.0").revisions).default; - "cassava".flags.bytestring--lt-0_10_4 = false; - "vector-binary-instances".revision = (((hackage."vector-binary-instances")."0.2.5.2").revisions).default; - "integer-logarithms".revision = (((hackage."integer-logarithms")."1.0.3.1").revisions).default; - "integer-logarithms".flags.check-bounds = false; - "integer-logarithms".flags.integer-gmp = true; - "HUnit".revision = (((hackage."HUnit")."1.6.2.0").revisions).default; - "hourglass".revision = (((hackage."hourglass")."0.2.12").revisions).default; - "psqueues".revision = (((hackage."psqueues")."0.2.7.3").revisions).default; - "servant-options".revision = (((hackage."servant-options")."0.1.0.0").revisions).default; - "adjunctions".revision = (((hackage."adjunctions")."4.4").revisions).default; - "dlist".revision = (((hackage."dlist")."1.0").revisions).default; - "dlist".flags.werror = false; - "servant-multipart".revision = (((hackage."servant-multipart")."0.12.1").revisions).default; - "string-interpolate".revision = (((hackage."string-interpolate")."0.3.1.1").revisions).default; - "string-interpolate".flags.bytestring-builder = false; - "string-interpolate".flags.text-builder = false; - "string-interpolate".flags.extended-benchmarks = false; - "text".revision = (((hackage."text")."1.2.4.1").revisions).default; - "lift-type".revision = (((hackage."lift-type")."0.1.0.1").revisions).default; - "easy-file".revision = (((hackage."easy-file")."0.2.2").revisions).default; - "math-functions".revision = (((hackage."math-functions")."0.3.4.2").revisions).default; - "math-functions".flags.system-erf = true; - "math-functions".flags.system-expm1 = true; - "fmt".revision = (((hackage."fmt")."0.6.1.2").revisions).default; - "servant-multipart-client".revision = (((hackage."servant-multipart-client")."0.12.1").revisions).default; - "groups".revision = (((hackage."groups")."0.5.3").revisions).default; - "Stream".revision = (((hackage."Stream")."0.4.7.2").revisions).default; - "aeson-casing".revision = (((hackage."aeson-casing")."0.2.0.0").revisions).default; - "threepenny-gui".revision = (((hackage."threepenny-gui")."0.9.1.0").revisions).default; - "threepenny-gui".flags.buildexamples = false; - "threepenny-gui".flags.rebug = false; - "entropy".revision = (((hackage."entropy")."0.4.1.7").revisions).default; - "entropy".flags.halvm = false; - "lzma".revision = (((hackage."lzma")."0.0.0.3").revisions).default; - "array".revision = (((hackage."array")."0.5.4.0").revisions).default; - "base64-bytestring".revision = (((hackage."base64-bytestring")."1.2.1.0").revisions).default; - "network".revision = (((hackage."network")."3.1.2.7").revisions).default; - "network".flags.devel = false; - "servant-openapi3".revision = (((hackage."servant-openapi3")."2.0.1.3").revisions).default; - "statistics".revision = (((hackage."statistics")."0.16.0.1").revisions).default; - "invariant".revision = (((hackage."invariant")."0.5.3").revisions).default; - "int-cast".revision = (((hackage."int-cast")."0.2.0.0").revisions).default; - "parallel".revision = (((hackage."parallel")."3.2.2.0").revisions).default; - "asn1-parse".revision = (((hackage."asn1-parse")."0.9.5").revisions).default; - "microstache".revision = (((hackage."microstache")."1.0.2").revisions).default; - "quickcheck-classes-base".revision = (((hackage."quickcheck-classes-base")."0.6.2.0").revisions).default; - "quickcheck-classes-base".flags.binary-laws = true; - "quickcheck-classes-base".flags.unary-laws = true; - "random-shuffle".revision = (((hackage."random-shuffle")."0.0.4").revisions).default; - "parser-combinators".revision = (((hackage."parser-combinators")."1.3.0").revisions).default; - "parser-combinators".flags.dev = false; - "MonadRandom".revision = (((hackage."MonadRandom")."0.5.3").revisions).default; - "beam-migrate".revision = (((hackage."beam-migrate")."0.5.1.2").revisions).default; - "beam-migrate".flags.werror = false; - "cryptonite".revision = (((hackage."cryptonite")."0.27").revisions).default; - "cryptonite".flags.check_alignment = false; - "cryptonite".flags.support_sse = false; - "cryptonite".flags.use_target_attributes = true; - "cryptonite".flags.support_deepseq = true; - "cryptonite".flags.support_rdrand = true; - "cryptonite".flags.old_toolchain_inliner = false; - "cryptonite".flags.integer-gmp = true; - "cryptonite".flags.support_pclmuldq = false; - "cryptonite".flags.support_aesni = true; - "unagi-chan".revision = (((hackage."unagi-chan")."0.4.1.4").revisions).default; - "unagi-chan".flags.compare-benchmarks = false; - "servant-server".revision = (((hackage."servant-server")."0.18.3").revisions).default; - "vector".revision = (((hackage."vector")."0.12.3.1").revisions).default; - "vector".flags.internalchecks = false; - "vector".flags.wall = false; - "vector".flags.boundschecks = true; - "vector".flags.unsafechecks = false; - "socks".revision = (((hackage."socks")."0.6.1").revisions).default; - "erf".revision = (((hackage."erf")."2.0.0.0").revisions).default; - "lens".revision = (((hackage."lens")."4.19.2").revisions).default; - "lens".flags.safe = false; - "lens".flags.test-templates = true; - "lens".flags.benchmark-uniplate = false; - "lens".flags.test-properties = true; - "lens".flags.j = false; - "lens".flags.trustworthy = true; - "lens".flags.test-hunit = true; - "lens".flags.old-inline-pragmas = false; - "lens".flags.test-doctests = true; - "lens".flags.dump-splices = false; - "lens".flags.inlining = true; - "http-types".revision = (((hackage."http-types")."0.12.3").revisions).default; - "some".revision = (((hackage."some")."1.0.2").revisions).default; - "some".flags.newtype-unsafe = true; - "temporary".revision = (((hackage."temporary")."1.3").revisions).default; - "jwt".revision = (((hackage."jwt")."0.11.0").revisions).default; - "katip".revision = (((hackage."katip")."0.8.7.0").revisions).default; - "katip".flags.lib-werror = false; - "quickcheck-classes".revision = (((hackage."quickcheck-classes")."0.6.5.0").revisions).default; - "quickcheck-classes".flags.aeson = true; - "quickcheck-classes".flags.semigroupoids = true; - "quickcheck-classes".flags.semirings = true; - "quickcheck-classes".flags.binary-laws = true; - "quickcheck-classes".flags.unary-laws = true; - "quickcheck-classes".flags.vector = true; - "comonad".revision = (((hackage."comonad")."5.0.8").revisions).default; - "comonad".flags.containers = true; - "comonad".flags.distributive = true; - "comonad".flags.indexed-traversable = true; - "x509".revision = (((hackage."x509")."1.7.6").revisions).default; - "optics-th".revision = (((hackage."optics-th")."0.3.0.2").revisions).default; - "profunctors".revision = (((hackage."profunctors")."5.6").revisions).default; - "x509-system".revision = (((hackage."x509-system")."1.6.7").revisions).default; - "appar".revision = (((hackage."appar")."0.1.8").revisions).default; - "extra".revision = (((hackage."extra")."1.7.10").revisions).default; - "asn1-types".revision = (((hackage."asn1-types")."0.3.4").revisions).default; - "base-compat".revision = (((hackage."base-compat")."0.11.2").revisions).default; - "string-conversions".revision = (((hackage."string-conversions")."0.4.0.1").revisions).default; - "snap-server".revision = (((hackage."snap-server")."1.1.2.0").revisions).default; - "snap-server".flags.portable = false; - "snap-server".flags.build-pong = false; - "snap-server".flags.build-testserver = false; - "snap-server".flags.openssl = false; - "snap-server".flags.debug = false; - "zlib-bindings".revision = (((hackage."zlib-bindings")."0.1.1.5").revisions).default; - "bytestring-builder".revision = (((hackage."bytestring-builder")."0.10.8.2.0").revisions).default; - "bytestring-builder".flags.bytestring_has_builder = true; - "generic-random".revision = (((hackage."generic-random")."1.5.0.1").revisions).default; - "generic-random".flags.enable-inspect = false; - "contravariant".revision = (((hackage."contravariant")."1.5.5").revisions).default; - "contravariant".flags.tagged = true; - "contravariant".flags.semigroups = true; - "contravariant".flags.statevar = true; - "wl-pprint-text".revision = (((hackage."wl-pprint-text")."1.2.0.2").revisions).default; - "persistent-sqlite".revision = (((hackage."persistent-sqlite")."2.13.1.0").revisions).default; - "persistent-sqlite".flags.use-pkgconfig = false; - "persistent-sqlite".flags.use-stat3 = false; - "persistent-sqlite".flags.systemlib = false; - "persistent-sqlite".flags.uri-filenames = true; - "persistent-sqlite".flags.use-stat4 = true; - "persistent-sqlite".flags.build-sanity-exe = false; - "persistent-sqlite".flags.have-usleep = true; - "persistent-sqlite".flags.full-text-search = true; - "persistent-sqlite".flags.json1 = true; - "base-compat-batteries".revision = (((hackage."base-compat-batteries")."0.11.2").revisions).default; - "safe".revision = (((hackage."safe")."0.3.19").revisions).default; - "generic-lens-core".revision = (((hackage."generic-lens-core")."2.2.1.0").revisions).default; - "tree-diff".revision = (((hackage."tree-diff")."0.2.1.1").revisions).default; - "yaml".revision = (((hackage."yaml")."0.11.7.0").revisions).default; - "yaml".flags.no-examples = true; - "yaml".flags.no-exe = true; - "tasty-quickcheck".revision = (((hackage."tasty-quickcheck")."0.10.2").revisions).default; - "th-lift-instances".revision = (((hackage."th-lift-instances")."0.1.19").revisions).default; - "Cabal".revision = (((hackage."Cabal")."3.2.1.0").revisions).default; - "pretty-simple".revision = (((hackage."pretty-simple")."4.0.0.0").revisions).default; - "pretty-simple".flags.buildexe = false; - "pretty-simple".flags.buildexample = false; - "mtl-compat".revision = (((hackage."mtl-compat")."0.2.2").revisions).default; - "mtl-compat".flags.two-point-two = false; - "mtl-compat".flags.two-point-one = false; - "sop-core".revision = (((hackage."sop-core")."0.5.0.2").revisions).default; - "assoc".revision = (((hackage."assoc")."1.0.2").revisions).default; - "IntervalMap".revision = (((hackage."IntervalMap")."0.6.1.2").revisions).default; - "safe-money".revision = (((hackage."safe-money")."0.9.1").revisions).default; - "websockets-snap".revision = (((hackage."websockets-snap")."0.10.3.1").revisions).default; - "blockfrost-client".revision = (((hackage."blockfrost-client")."0.3.1.0").revisions).default; - "blockfrost-client".flags.production = false; - "blockfrost-client".flags.buildfast = true; - "blockfrost-client".flags.examples = false; - "unliftio".revision = (((hackage."unliftio")."0.2.21.0").revisions).default; - "data-fix".revision = (((hackage."data-fix")."0.3.2").revisions).default; - "tls".revision = (((hackage."tls")."1.5.7").revisions).default; - "tls".flags.network = true; - "tls".flags.hans = false; - "tls".flags.compat = true; - "quickcheck-io".revision = (((hackage."quickcheck-io")."0.2.0").revisions).default; - "time-locale-compat".revision = (((hackage."time-locale-compat")."0.1.1.5").revisions).default; - "time-locale-compat".flags.old-locale = false; - "ekg-core".revision = (((hackage."ekg-core")."0.1.1.7").revisions).default; - "retry".revision = (((hackage."retry")."0.9.1.0").revisions).default; - "retry".flags.lib-werror = false; - "deque".revision = (((hackage."deque")."0.4.4").revisions).default; - "http-client-tls".revision = (((hackage."http-client-tls")."0.3.6.1").revisions).default; - "bech32-th".revision = (((hackage."bech32-th")."1.1.1").revisions).default; - "bech32-th".flags.release = false; - "tls-session-manager".revision = (((hackage."tls-session-manager")."0.0.4").revisions).default; - "basement".revision = (((hackage."basement")."0.0.12").revisions).default; - "alex".revision = (((hackage."alex")."3.2.7.1").revisions).default; - "generic-lens".revision = (((hackage."generic-lens")."2.2.1.0").revisions).default; - "servant-websockets".revision = (((hackage."servant-websockets")."2.0.0").revisions).default; - "old-locale".revision = (((hackage."old-locale")."1.0.0.7").revisions).default; - "constraints-extras".revision = (((hackage."constraints-extras")."0.3.2.1").revisions).default; - "constraints-extras".flags.build-readme = true; - "tasty".revision = (((hackage."tasty")."1.4.2.1").revisions).default; - "tasty".flags.clock = true; - "tasty".flags.unix = true; - "mtl".revision = (((hackage."mtl")."2.2.2").revisions).default; - "OneTuple".revision = (((hackage."OneTuple")."0.3.1").revisions).default; - "monad-par".revision = (((hackage."monad-par")."0.3.5").revisions).default; - "monad-par".flags.chaselev = false; - "monad-par".flags.newgeneric = false; - "mime-types".revision = (((hackage."mime-types")."0.1.0.9").revisions).default; - "serialise".revision = (((hackage."serialise")."0.2.4.0").revisions).default; - "serialise".flags.newtime15 = true; - "silently".revision = (((hackage."silently")."1.2.5.2").revisions).default; - "prometheus".revision = (((hackage."prometheus")."2.2.3").revisions).default; - "monad-logger".revision = (((hackage."monad-logger")."0.3.36").revisions).default; - "monad-logger".flags.template_haskell = true; - "parsec".revision = (((hackage."parsec")."3.1.14.0").revisions).default; - "mwc-random".revision = (((hackage."mwc-random")."0.15.0.2").revisions).default; - "bytestring".revision = (((hackage."bytestring")."0.10.12.0").revisions).default; - "list-t".revision = (((hackage."list-t")."1.0.5.1").revisions).default; - "attoparsec-iso8601".revision = (((hackage."attoparsec-iso8601")."1.0.2.0").revisions).default; - "attoparsec-iso8601".flags.fast = false; - "attoparsec-iso8601".flags.developer = false; - "lattices".revision = (((hackage."lattices")."2.0.3").revisions).default; - "beam-sqlite".revision = (((hackage."beam-sqlite")."0.5.1.2").revisions).default; - "beam-sqlite".flags.werror = false; - "hspec-expectations-lifted".revision = (((hackage."hspec-expectations-lifted")."0.10.0").revisions).default; - "vector-sized".revision = (((hackage."vector-sized")."1.5.0").revisions).default; - "mintty".revision = (((hackage."mintty")."0.1.3").revisions).default; - "mintty".flags.win32-2-13-1 = false; - "reflection".revision = (((hackage."reflection")."2.1.6").revisions).default; - "reflection".flags.slow = false; - "reflection".flags.template-haskell = true; - "newtype".revision = (((hackage."newtype")."0.2.2.0").revisions).default; - "hspec-discover".revision = (((hackage."hspec-discover")."2.9.2").revisions).default; - "freer-simple".revision = (((hackage."freer-simple")."1.2.1.2").revisions).default; - "snap-core".revision = (((hackage."snap-core")."1.0.4.2").revisions).default; - "snap-core".flags.portable = false; - "snap-core".flags.network-uri = true; - "snap-core".flags.debug = false; - "pem".revision = (((hackage."pem")."0.2.4").revisions).default; - "barbies".revision = (((hackage."barbies")."2.0.3.1").revisions).default; - "persistent-template".revision = (((hackage."persistent-template")."2.12.0.0").revisions).default; - "lens-aeson".revision = (((hackage."lens-aeson")."1.1.3").revisions).default; - "strict".revision = (((hackage."strict")."0.4.0.1").revisions).default; - "strict".flags.assoc = true; - "aeson".revision = (((hackage."aeson")."1.5.6.0").revisions).default; - "aeson".flags.fast = false; - "aeson".flags.bytestring-builder = false; - "aeson".flags.developer = false; - "aeson".flags.cffi = false; - "docopt".revision = (((hackage."docopt")."0.7.0.7").revisions).default; - "docopt".flags.template-haskell = true; - "zlib".revision = (((hackage."zlib")."0.6.2.3").revisions).default; - "zlib".flags.non-blocking-ffi = false; - "zlib".flags.bundled-c-zlib = false; - "zlib".flags.pkg-config = false; - "nothunks".revision = (((hackage."nothunks")."0.1.3").revisions).default; - "nothunks".flags.bytestring = true; - "nothunks".flags.text = true; - "nothunks".flags.vector = true; - "tagged".revision = (((hackage."tagged")."0.8.6.1").revisions).default; - "tagged".flags.deepseq = true; - "tagged".flags.transformers = true; - "splitmix".revision = (((hackage."splitmix")."0.1.0.4").revisions).default; - "splitmix".flags.optimised-mixer = false; - "gray-code".revision = (((hackage."gray-code")."0.3.1").revisions).default; - "time-out".revision = (((hackage."time-out")."0.2").revisions).default; - "file-embed".revision = (((hackage."file-embed")."0.0.15.0").revisions).default; - "attoparsec".revision = (((hackage."attoparsec")."0.13.2.5").revisions).default; - "attoparsec".flags.developer = false; - "singleton-bool".revision = (((hackage."singleton-bool")."0.1.5").revisions).default; - "th-compat".revision = (((hackage."th-compat")."0.1.3").revisions).default; - "generic-arbitrary".revision = (((hackage."generic-arbitrary")."0.2.0").revisions).default; - "memory".revision = (((hackage."memory")."0.16.0").revisions).default; - "memory".flags.support_basement = true; - "memory".flags.support_deepseq = true; - "memory".flags.support_bytestring = true; - "memory".flags.support_foundation = true; - "time-units".revision = (((hackage."time-units")."1.0.0").revisions).default; - "fmlist".revision = (((hackage."fmlist")."0.9.4").revisions).default; - "filepath".revision = (((hackage."filepath")."1.4.2.1").revisions).default; - "th-lift".revision = (((hackage."th-lift")."0.8.2").revisions).default; - "libyaml".revision = (((hackage."libyaml")."0.1.2").revisions).default; - "libyaml".flags.system-libyaml = false; - "libyaml".flags.no-unicode = false; - "dec".revision = (((hackage."dec")."0.0.4").revisions).default; - "terminal-size".revision = (((hackage."terminal-size")."0.3.2.1").revisions).default; - "criterion-measurement".revision = (((hackage."criterion-measurement")."0.1.3.0").revisions).default; - "criterion-measurement".flags.fast = false; - "pqueue".revision = (((hackage."pqueue")."1.4.1.4").revisions).default; - "SHA".revision = (((hackage."SHA")."1.6.4.4").revisions).default; - "SHA".flags.exe = false; - "unliftio-core".revision = (((hackage."unliftio-core")."0.2.0.1").revisions).default; - "persistent".revision = (((hackage."persistent")."2.13.3.0").revisions).default; - "th-extras".revision = (((hackage."th-extras")."0.0.0.4").revisions).default; - "th-extras".flags.base4 = true; - "stm".revision = (((hackage."stm")."2.5.0.1").revisions).default; - "void".revision = (((hackage."void")."0.7.3").revisions).default; - "void".flags.safe = false; - "regex-compat".revision = (((hackage."regex-compat")."0.95.2.1").revisions).default; - "testing-type-modifiers".revision = (((hackage."testing-type-modifiers")."0.1.0.1").revisions).default; - "MemoTrie".revision = (((hackage."MemoTrie")."0.6.10").revisions).default; - "MemoTrie".flags.examples = false; - "statistics-linreg".revision = (((hackage."statistics-linreg")."0.3").revisions).default; - "semigroups".revision = (((hackage."semigroups")."0.19.2").revisions).default; - "semigroups".flags.bytestring = true; - "semigroups".flags.bytestring-builder = false; - "semigroups".flags.tagged = true; - "semigroups".flags.containers = true; - "semigroups".flags.deepseq = true; - "semigroups".flags.template-haskell = true; - "semigroups".flags.binary = true; - "semigroups".flags.transformers = true; - "semigroups".flags.unordered-containers = true; - "semigroups".flags.text = true; - "semigroups".flags.hashable = true; - "free".revision = (((hackage."free")."5.1.3").revisions).default; - "connection".revision = (((hackage."connection")."0.3.1").revisions).default; - "pipes".revision = (((hackage."pipes")."4.3.16").revisions).default; - "crypto-api".revision = (((hackage."crypto-api")."0.13.3").revisions).default; - "crypto-api".flags.all_cpolys = false; - "haskell-lexer".revision = (((hackage."haskell-lexer")."1.1").revisions).default; - "microlens".revision = (((hackage."microlens")."0.4.12.0").revisions).default; - "one-line-aeson-text".revision = (((hackage."one-line-aeson-text")."0.1.0.2").revisions).default; - "ghc-heap".revision = (((hackage."ghc-heap")."8.10.7").revisions).default; - "resourcet".revision = (((hackage."resourcet")."1.2.4.3").revisions).default; - "vault".revision = (((hackage."vault")."0.3.1.5").revisions).default; - "vault".flags.useghc = true; - "optics-core".revision = (((hackage."optics-core")."0.3.0.1").revisions).default; - "primitive-addr".revision = (((hackage."primitive-addr")."0.1.0.2").revisions).default; - "wl-pprint-annotated".revision = (((hackage."wl-pprint-annotated")."0.1.0.1").revisions).default; - "data-default-instances-old-locale".revision = (((hackage."data-default-instances-old-locale")."0.0.1").revisions).default; - "canonical-json".revision = (((hackage."canonical-json")."0.6.0.0").revisions).default; - "indexed-list-literals".revision = (((hackage."indexed-list-literals")."0.2.1.3").revisions).default; - "foldl".revision = (((hackage."foldl")."1.4.12").revisions).default; - "io-streams".revision = (((hackage."io-streams")."1.5.2.1").revisions).default; - "io-streams".flags.network = true; - "io-streams".flags.zlib = true; - "io-streams".flags.nointeractivetests = false; - "universe-base".revision = (((hackage."universe-base")."1.1.3").revisions).default; - "streaming-bytestring".revision = (((hackage."streaming-bytestring")."0.2.1").revisions).default; - "unix-compat".revision = (((hackage."unix-compat")."0.5.4").revisions).default; - "unix-compat".flags.old-time = false; - "case-insensitive".revision = (((hackage."case-insensitive")."1.2.1.0").revisions).default; - "http-date".revision = (((hackage."http-date")."0.0.11").revisions).default; - "optparse-generic".revision = (((hackage."optparse-generic")."1.4.7").revisions).default; - "type-equality".revision = (((hackage."type-equality")."1").revisions).default; - "blockfrost-api".revision = (((hackage."blockfrost-api")."0.3.1.0").revisions).default; - "blockfrost-api".flags.production = false; - "blockfrost-api".flags.buildfast = true; - "cryptohash-sha1".revision = (((hackage."cryptohash-sha1")."0.11.101.0").revisions).default; - "warp-tls".revision = (((hackage."warp-tls")."3.3.2").revisions).default; - "digest".revision = (((hackage."digest")."0.0.1.3").revisions).default; - "digest".flags.bytestring-in-base = false; - "cryptohash-md5".revision = (((hackage."cryptohash-md5")."0.11.101.0").revisions).default; - "indexed-profunctors".revision = (((hackage."indexed-profunctors")."0.1.1").revisions).default; - "say".revision = (((hackage."say")."0.1.0.1").revisions).default; - "data-default".revision = (((hackage."data-default")."0.7.1.1").revisions).default; - "io-streams-haproxy".revision = (((hackage."io-streams-haproxy")."1.0.1.0").revisions).default; - "sqlite-simple".revision = (((hackage."sqlite-simple")."0.4.18.0").revisions).default; - "size-based".revision = (((hackage."size-based")."0.1.2.0").revisions).default; - "openapi3".revision = (((hackage."openapi3")."3.2.1").revisions).default; - "http-media".revision = (((hackage."http-media")."0.8.0.0").revisions).default; - "call-stack".revision = (((hackage."call-stack")."0.4.0").revisions).default; - "time-manager".revision = (((hackage."time-manager")."0.0.0").revisions).default; - "dependent-map".revision = (((hackage."dependent-map")."0.4.0.0").revisions).default; - "generics-sop".revision = (((hackage."generics-sop")."0.5.1.0").revisions).default; - "byteorder".revision = (((hackage."byteorder")."1.0.4").revisions).default; - "insert-ordered-containers".revision = (((hackage."insert-ordered-containers")."0.2.5.1").revisions).default; - "tasty-hedgehog".revision = (((hackage."tasty-hedgehog")."1.1.0.0").revisions).default; - "http-api-data".revision = (((hackage."http-api-data")."0.4.3").revisions).default; - "http-api-data".flags.use-text-show = false; - "streaming".revision = (((hackage."streaming")."0.2.3.1").revisions).default; - "ghc-prim".revision = (((hackage."ghc-prim")."0.6.1").revisions).default; - "x509-validation".revision = (((hackage."x509-validation")."1.6.12").revisions).default; - "typerep-map".revision = (((hackage."typerep-map")."0.5.0.0").revisions).default; - "hslogger".revision = (((hackage."hslogger")."1.3.1.0").revisions).default; - "hslogger".flags.network--gt-3_0_0 = true; - "abstract-deque".revision = (((hackage."abstract-deque")."0.3").revisions).default; - "abstract-deque".flags.usecas = false; - "ghc-boot-th".revision = (((hackage."ghc-boot-th")."8.10.7").revisions).default; - "asn1-encoding".revision = (((hackage."asn1-encoding")."0.9.6").revisions).default; - "MissingH".revision = (((hackage."MissingH")."1.5.0.0").revisions).default; - "MissingH".flags.network--ge-3_0_0 = true; - "hedgehog-quickcheck".revision = (((hackage."hedgehog-quickcheck")."0.1.1").revisions).default; - "indexed-traversable".revision = (((hackage."indexed-traversable")."0.1.2").revisions).default; - "distributive".revision = (((hackage."distributive")."0.6.2.1").revisions).default; - "distributive".flags.tagged = true; - "distributive".flags.semigroups = true; - "lazy-search".revision = (((hackage."lazy-search")."0.1.2.1").revisions).default; - "libBF".revision = (((hackage."libBF")."0.6.3").revisions).default; - "libBF".flags.system-libbf = false; - "text-short".revision = (((hackage."text-short")."0.1.5").revisions).default; - "text-short".flags.asserts = false; - "servant".revision = (((hackage."servant")."0.18.3").revisions).default; - "vector-space".revision = (((hackage."vector-space")."0.16").revisions).default; - "bin".revision = (((hackage."bin")."0.1").revisions).default; - "signal".revision = (((hackage."signal")."0.1.0.4").revisions).default; - "Boolean".revision = (((hackage."Boolean")."0.2.4").revisions).default; - "show-combinators".revision = (((hackage."show-combinators")."0.2.0.0").revisions).default; - "bsb-http-chunked".revision = (((hackage."bsb-http-chunked")."0.0.0.4").revisions).default; - "bifunctors".revision = (((hackage."bifunctors")."5.5.7").revisions).default; - "bifunctors".flags.tagged = true; - "bifunctors".flags.semigroups = true; - "kan-extensions".revision = (((hackage."kan-extensions")."5.2.3").revisions).default; - "uuid".revision = (((hackage."uuid")."1.3.15").revisions).default; - "lifted-async".revision = (((hackage."lifted-async")."0.10.2.2").revisions).default; - "microlens-mtl".revision = (((hackage."microlens-mtl")."0.2.0.1").revisions).default; - "servant-swagger-ui".revision = (((hackage."servant-swagger-ui")."0.3.5.4.5.0").revisions).default; - "RSA".revision = (((hackage."RSA")."2.4.1").revisions).default; - "base".revision = (((hackage."base")."4.14.3.0").revisions).default; - "time".revision = (((hackage."time")."1.9.3").revisions).default; - "ListLike".revision = (((hackage."ListLike")."4.7.6").revisions).default; - "base58-bytestring".revision = (((hackage."base58-bytestring")."0.1.0").revisions).default; - "network-info".revision = (((hackage."network-info")."0.2.1").revisions).default; - "errors".revision = (((hackage."errors")."2.3.0").revisions).default; - "formatting".revision = (((hackage."formatting")."6.3.7").revisions).default; - "async".revision = (((hackage."async")."2.2.4").revisions).default; - "async".flags.bench = false; - "word8".revision = (((hackage."word8")."0.1.3").revisions).default; - "cabal-doctest".revision = (((hackage."cabal-doctest")."1.0.9").revisions).default; - "random".revision = (((hackage."random")."1.2.1").revisions).default; - "unix-time".revision = (((hackage."unix-time")."0.4.7").revisions).default; - "beam-core".revision = (((hackage."beam-core")."0.9.2.1").revisions).default; - "beam-core".flags.werror = false; - "ral".revision = (((hackage."ral")."0.1").revisions).default; - "ral".flags.adjunctions = true; - "ral".flags.semigroupoids = true; - "ral".flags.distributive = true; - "sort".revision = (((hackage."sort")."1.0.0.0").revisions).default; - "wai".revision = (((hackage."wai")."3.2.3").revisions).default; - "Win32".revision = (((hackage."Win32")."2.6.2.1").revisions).default; - "th-orphans".revision = (((hackage."th-orphans")."0.13.12").revisions).default; - "cookie".revision = (((hackage."cookie")."0.4.5").revisions).default; - "process".revision = (((hackage."process")."1.6.13.2").revisions).default; - "sbv".revision = (((hackage."sbv")."8.17").revisions).default; - "system-filepath".revision = (((hackage."system-filepath")."0.4.14").revisions).default; - "cereal".revision = (((hackage."cereal")."0.5.8.2").revisions).default; - "cereal".flags.bytestring-builder = false; - "utf8-string".revision = (((hackage."utf8-string")."1.0.2").revisions).default; - "streaming-binary".revision = (((hackage."streaming-binary")."0.2.2.0").revisions).default; - "vector-th-unbox".revision = (((hackage."vector-th-unbox")."0.2.2").revisions).default; - "megaparsec".revision = (((hackage."megaparsec")."9.2.0").revisions).default; - "megaparsec".flags.dev = false; - "base16-bytestring".revision = (((hackage."base16-bytestring")."1.0.2.0").revisions).default; - "conduit".revision = (((hackage."conduit")."1.3.4.2").revisions).default; - "transformers-base".revision = (((hackage."transformers-base")."0.4.6").revisions).default; - "transformers-base".flags.orphaninstances = true; - "aeson-qq".revision = (((hackage."aeson-qq")."0.8.4").revisions).default; - "unbounded-delays".revision = (((hackage."unbounded-delays")."0.1.1.1").revisions).default; - "monad-par-extras".revision = (((hackage."monad-par-extras")."0.3.3").revisions).default; - "data-default-class".revision = (((hackage."data-default-class")."0.1.2.0").revisions).default; - "regex-base".revision = (((hackage."regex-base")."0.94.0.2").revisions).default; - "vector-algorithms".revision = (((hackage."vector-algorithms")."0.8.0.4").revisions).default; - "vector-algorithms".flags.internalchecks = false; - "vector-algorithms".flags.llvm = false; - "vector-algorithms".flags.properties = true; - "vector-algorithms".flags.boundschecks = true; - "vector-algorithms".flags.unsafechecks = false; - "vector-algorithms".flags.bench = true; - "th-abstraction".revision = (((hackage."th-abstraction")."0.3.2.0").revisions).default; - "semigroupoids".revision = (((hackage."semigroupoids")."5.3.4").revisions).default; - "semigroupoids".flags.doctests = true; - "semigroupoids".flags.tagged = true; - "semigroupoids".flags.containers = true; - "semigroupoids".flags.distributive = true; - "semigroupoids".flags.unordered-containers = true; - "semigroupoids".flags.contravariant = true; - "semigroupoids".flags.comonad = true; - "finite-typelits".revision = (((hackage."finite-typelits")."0.1.4.2").revisions).default; - "hsc2hs".revision = (((hackage."hsc2hs")."0.68.8").revisions).default; - "hsc2hs".flags.in-ghc-tree = false; - "data-default-instances-containers".revision = (((hackage."data-default-instances-containers")."0.0.1").revisions).default; - "base-unicode-symbols".revision = (((hackage."base-unicode-symbols")."0.2.4.2").revisions).default; - "base-unicode-symbols".flags.base-4-8 = true; - "base-unicode-symbols".flags.old-base = false; - "generic-monoid".revision = (((hackage."generic-monoid")."0.1.0.1").revisions).default; - "semirings".revision = (((hackage."semirings")."0.6").revisions).default; - "semirings".flags.containers = true; - "semirings".flags.unordered-containers = true; - "atomic-primops".revision = (((hackage."atomic-primops")."0.8.4").revisions).default; - "atomic-primops".flags.debug = false; - "ekg".revision = (((hackage."ekg")."0.4.0.15").revisions).default; - "wai-logger".revision = (((hackage."wai-logger")."2.4.0").revisions).default; - "quickcheck-instances".revision = (((hackage."quickcheck-instances")."0.3.27").revisions).default; - "quickcheck-instances".flags.bytestring-builder = false; - "bimap".revision = (((hackage."bimap")."0.4.0").revisions).default; - "prettyprinter-ansi-terminal".revision = (((hackage."prettyprinter-ansi-terminal")."1.1.3").revisions).default; - "generic-data".revision = (((hackage."generic-data")."0.9.2.1").revisions).default; - "dependent-sum-template".revision = (((hackage."dependent-sum-template")."0.1.0.3").revisions).default; - "srcloc".revision = (((hackage."srcloc")."0.6").revisions).default; - "logict".revision = (((hackage."logict")."0.7.0.3").revisions).default; - "mersenne-random-pure64".revision = (((hackage."mersenne-random-pure64")."0.2.2.0").revisions).default; - "mersenne-random-pure64".flags.small_base = false; - "NumInstances".revision = (((hackage."NumInstances")."1.4").revisions).default; - "these".revision = (((hackage."these")."1.1.1.1").revisions).default; - "these".flags.assoc = true; - "split".revision = (((hackage."split")."0.2.3.4").revisions).default; - "base-orphans".revision = (((hackage."base-orphans")."0.8.6").revisions).default; - "protolude".revision = (((hackage."protolude")."0.3.0").revisions).default; - "protolude".flags.dev = false; - "lazysmallcheck".revision = (((hackage."lazysmallcheck")."0.6").revisions).default; - "strict-list".revision = (((hackage."strict-list")."0.1.6").revisions).default; - "hspec-core".revision = (((hackage."hspec-core")."2.9.2").revisions).default; - "time-compat".revision = (((hackage."time-compat")."1.9.6.1").revisions).default; - "time-compat".flags.old-locale = false; - "string-conv".revision = (((hackage."string-conv")."0.1.2").revisions).default; - "string-conv".flags.lib-werror = false; - "scrypt".revision = (((hackage."scrypt")."0.5.0").revisions).default; - "foundation".revision = (((hackage."foundation")."0.0.26.1").revisions).default; - "foundation".flags.linktest = false; - "foundation".flags.bounds-check = false; - "foundation".flags.bench-all = false; - "foundation".flags.experimental = false; - "foundation".flags.doctest = false; - "foundation".flags.minimal-deps = false; - "setenv".revision = (((hackage."setenv")."0.1.1.3").revisions).default; - "either".revision = (((hackage."either")."5.0.1.1").revisions).default; - "typed-process".revision = (((hackage."typed-process")."0.2.8.0").revisions).default; - "http2".revision = (((hackage."http2")."3.0.3").revisions).default; - "http2".flags.devel = false; - "http2".flags.h2spec = false; - "http2".flags.doc = false; - "cryptostore".revision = (((hackage."cryptostore")."0.2.1.0").revisions).default; - "blockfrost-client-core".revision = (((hackage."blockfrost-client-core")."0.2.0.0").revisions).default; - "blockfrost-client-core".flags.production = false; - "blockfrost-client-core".flags.buildfast = true; - "deriving-aeson".revision = (((hackage."deriving-aeson")."0.2.8").revisions).default; - "hspec".revision = (((hackage."hspec")."2.9.2").revisions).default; - "primitive".revision = (((hackage."primitive")."0.7.3.0").revisions).default; - "servant-client-core".revision = (((hackage."servant-client-core")."0.18.3").revisions).default; - "directory".revision = (((hackage."directory")."1.3.6.0").revisions).default; - "command".revision = (((hackage."command")."0.1.1").revisions).default; - "concurrent-output".revision = (((hackage."concurrent-output")."1.10.15").revisions).default; - "exceptions".revision = (((hackage."exceptions")."0.10.4").revisions).default; - "base64-bytestring-type".revision = (((hackage."base64-bytestring-type")."1.0.1").revisions).default; - "base64-bytestring-type".flags.http-api-data = true; - "base64-bytestring-type".flags.cereal = true; - "base64-bytestring-type".flags.serialise = true; - "modern-uri".revision = (((hackage."modern-uri")."0.3.4.3").revisions).default; - "modern-uri".flags.dev = false; - "abstract-par".revision = (((hackage."abstract-par")."0.3.3").revisions).default; - "half".revision = (((hackage."half")."0.3.1").revisions).default; - "optparse-applicative".revision = (((hackage."optparse-applicative")."0.17.0.0").revisions).default; - "optparse-applicative".flags.process = true; - "constraints".revision = (((hackage."constraints")."0.13.3").revisions).default; - "bech32".revision = (((hackage."bech32")."1.1.2").revisions).default; - "bech32".flags.static = false; - "bech32".flags.release = false; - "lifted-base".revision = (((hackage."lifted-base")."0.2.3.12").revisions).default; - "wai-cors".revision = (((hackage."wai-cors")."0.2.7").revisions).default; - "clock".revision = (((hackage."clock")."0.8.3").revisions).default; - "clock".flags.llvm = false; - "th-expand-syns".revision = (((hackage."th-expand-syns")."0.4.7.0").revisions).default; - "hspec-expectations".revision = (((hackage."hspec-expectations")."0.8.2").revisions).default; - "prettyprinter".revision = (((hackage."prettyprinter")."1.7.1").revisions).default; - "prettyprinter".flags.buildreadme = false; - "prettyprinter".flags.text = true; - "hostname".revision = (((hackage."hostname")."1.0").revisions).default; - "servant-foreign".revision = (((hackage."servant-foreign")."0.15.4").revisions).default; - "resource-pool".revision = (((hackage."resource-pool")."0.2.3.2").revisions).default; - "resource-pool".flags.developer = false; - "simple-sendfile".revision = (((hackage."simple-sendfile")."0.2.30").revisions).default; - "simple-sendfile".flags.allow-bsd = true; - "rts".revision = (((hackage."rts")."1.0.1").revisions).default; - "wl-pprint".revision = (((hackage."wl-pprint")."1.2.1").revisions).default; - "network-byte-order".revision = (((hackage."network-byte-order")."0.1.6").revisions).default; - "ekg-json".revision = (((hackage."ekg-json")."0.1.0.6").revisions).default; - "OddWord".revision = (((hackage."OddWord")."1.0.2.0").revisions).default; - "rate-limit".revision = (((hackage."rate-limit")."1.4.2").revisions).default; - "monad-control".revision = (((hackage."monad-control")."1.0.3.1").revisions).default; - "semialign".revision = (((hackage."semialign")."1.1.0.1").revisions).default; - "semialign".flags.semigroupoids = true; - "wai-app-static".revision = (((hackage."wai-app-static")."3.1.7.2").revisions).default; - "wai-app-static".flags.print = false; - "transformers".revision = (((hackage."transformers")."0.5.6.2").revisions).default; - "moo".revision = (((hackage."moo")."1.2").revisions).default; - "authenticate-oauth".revision = (((hackage."authenticate-oauth")."1.7").revisions).default; - "template-haskell".revision = (((hackage."template-haskell")."2.16.0.0").revisions).default; - "direct-sqlite".revision = (((hackage."direct-sqlite")."2.3.26").revisions).default; - "direct-sqlite".flags.haveusleep = true; - "direct-sqlite".flags.systemlib = false; - "direct-sqlite".flags.fulltextsearch = true; - "direct-sqlite".flags.urifilenames = true; - "direct-sqlite".flags.json1 = true; - "blaze-markup".revision = (((hackage."blaze-markup")."0.8.2.8").revisions).default; - "crypto-pubkey-types".revision = (((hackage."crypto-pubkey-types")."0.4.3").revisions).default; - "optics-extra".revision = (((hackage."optics-extra")."0.3").revisions).default; - "pretty-show".revision = (((hackage."pretty-show")."1.10").revisions).default; - "tasty-golden".revision = (((hackage."tasty-golden")."2.3.5").revisions).default; - "tasty-golden".flags.build-example = false; - "Unique".revision = (((hackage."Unique")."0.4.7.9").revisions).default; - "mono-traversable".revision = (((hackage."mono-traversable")."1.0.15.3").revisions).default; - "witherable".revision = (((hackage."witherable")."0.4.2").revisions).default; - "syb".revision = (((hackage."syb")."0.7.2.1").revisions).default; - "aeson-pretty".revision = (((hackage."aeson-pretty")."0.8.9").revisions).default; - "aeson-pretty".flags.lib-only = false; - "dom-lt".revision = (((hackage."dom-lt")."0.2.3").revisions).default; - "fingertree".revision = (((hackage."fingertree")."0.1.5.0").revisions).default; - "th-reify-many".revision = (((hackage."th-reify-many")."0.1.10").revisions).default; - "tasty-hunit".revision = (((hackage."tasty-hunit")."0.10.0.3").revisions).default; - "conduit-extra".revision = (((hackage."conduit-extra")."1.3.5").revisions).default; - "algebraic-graphs".revision = (((hackage."algebraic-graphs")."0.6").revisions).default; - "wai-websockets".revision = (((hackage."wai-websockets")."3.0.1.2").revisions).default; - "wai-websockets".flags.example = true; - "uniplate".revision = (((hackage."uniplate")."1.6.13").revisions).default; - "blaze-html".revision = (((hackage."blaze-html")."0.9.1.2").revisions).default; - "data-default-instances-dlist".revision = (((hackage."data-default-instances-dlist")."0.0.1").revisions).default; - "quickcheck-arbitrary-adt".revision = (((hackage."quickcheck-arbitrary-adt")."0.3.1.0").revisions).default; - "hspec-golden-aeson".revision = (((hackage."hspec-golden-aeson")."0.9.0.0").revisions).default; - "dense-linear-algebra".revision = (((hackage."dense-linear-algebra")."0.1.0.0").revisions).default; - "deepseq".revision = (((hackage."deepseq")."1.4.4.0").revisions).default; - "newtype-generics".revision = (((hackage."newtype-generics")."0.6.1").revisions).default; - "text-conversions".revision = (((hackage."text-conversions")."0.3.1").revisions).default; - "composition-prelude".revision = (((hackage."composition-prelude")."3.0.0.2").revisions).default; - "composition-prelude".flags.development = false; - "servant-docs".revision = (((hackage."servant-docs")."0.12").revisions).default; - "stm-chans".revision = (((hackage."stm-chans")."3.0.0.6").revisions).default; - "th-utilities".revision = (((hackage."th-utilities")."0.2.4.1").revisions).default; - "casing".revision = (((hackage."casing")."0.1.4.1").revisions).default; - "quiet".revision = (((hackage."quiet")."0.2").revisions).default; - "servant-blaze".revision = (((hackage."servant-blaze")."0.9.1").revisions).default; - "transformers-except".revision = (((hackage."transformers-except")."0.1.2").revisions).default; - "ansi-terminal".revision = (((hackage."ansi-terminal")."0.11.1").revisions).default; - "ansi-terminal".flags.example = false; - "dictionary-sharing".revision = (((hackage."dictionary-sharing")."0.1.0.0").revisions).default; - "monoidal-containers".revision = (((hackage."monoidal-containers")."0.6.2.0").revisions).default; - "monoidal-containers".flags.split-these = true; - "wai-extra".revision = (((hackage."wai-extra")."3.1.8").revisions).default; - "wai-extra".flags.build-example = false; - "haskell-src-meta".revision = (((hackage."haskell-src-meta")."0.8.9").revisions).default; - "hedgehog".revision = (((hackage."hedgehog")."1.0.5").revisions).default; - "microlens-th".revision = (((hackage."microlens-th")."0.4.3.6").revisions).default; - "blaze-builder".revision = (((hackage."blaze-builder")."0.4.2.2").revisions).default; - "generic-deriving".revision = (((hackage."generic-deriving")."1.13.1").revisions).default; - "generic-deriving".flags.base-4-9 = true; - "warp".revision = (((hackage."warp")."3.3.19").revisions).default; - "warp".flags.network-bytestring = false; - "warp".flags.allow-sendfilefd = true; - "warp".flags.warp-debug = false; - "readable".revision = (((hackage."readable")."0.3.1").revisions).default; - "x509-store".revision = (((hackage."x509-store")."1.6.9").revisions).default; - "Only".revision = (((hackage."Only")."0.1").revisions).default; - "fast-logger".revision = (((hackage."fast-logger")."3.1.1").revisions).default; - "dns".revision = (((hackage."dns")."3.0.4").revisions).default; - "path-pieces".revision = (((hackage."path-pieces")."0.2.1").revisions).default; - "deriving-compat".revision = (((hackage."deriving-compat")."0.5.9").revisions).default; - "deriving-compat".flags.new-functor-classes = true; - "deriving-compat".flags.template-haskell-2-11 = true; - "deriving-compat".flags.base-4-9 = true; - "servant-multipart-api".revision = (((hackage."servant-multipart-api")."0.12.1").revisions).default; - "fin".revision = (((hackage."fin")."0.1.1").revisions).default; - "code-page".revision = (((hackage."code-page")."0.2.1").revisions).default; - "hashable".revision = (((hackage."hashable")."1.3.5.0").revisions).default; - "hashable".flags.random-initial-seed = false; - "hashable".flags.integer-gmp = true; - "integer-gmp".revision = (((hackage."integer-gmp")."1.0.3.0").revisions).default; - "time-interval".revision = (((hackage."time-interval")."0.1.1").revisions).default; - "lzma-clib".revision = (((hackage."lzma-clib")."5.2.2").revisions).default; - "cmdargs".revision = (((hackage."cmdargs")."0.10.21").revisions).default; - "cmdargs".flags.quotation = true; - "cmdargs".flags.testprog = false; - "transformers-compat".revision = (((hackage."transformers-compat")."0.6.6").revisions).default; - "transformers-compat".flags.two = false; - "transformers-compat".flags.mtl = true; - "transformers-compat".flags.four = false; - "transformers-compat".flags.five = false; - "transformers-compat".flags.five-three = true; - "transformers-compat".flags.three = false; - "transformers-compat".flags.generic-deriving = true; - "dependent-sum".revision = (((hackage."dependent-sum")."0.7.1.0").revisions).default; - "websockets".revision = (((hackage."websockets")."0.12.7.3").revisions).default; - "websockets".flags.example = false; - "recursion-schemes".revision = (((hackage."recursion-schemes")."5.1.3").revisions).default; - "recursion-schemes".flags.template-haskell = true; - "indexed-traversable-instances".revision = (((hackage."indexed-traversable-instances")."0.1.1").revisions).default; - "iproute".revision = (((hackage."iproute")."1.7.12").revisions).default; - "process-extras".revision = (((hackage."process-extras")."0.7.4").revisions).default; - "scientific".revision = (((hackage."scientific")."0.3.7.0").revisions).default; - "scientific".flags.bytestring-builder = false; - "scientific".flags.integer-simple = false; - "async-timer".revision = (((hackage."async-timer")."0.1.4.1").revisions).default; - "binary".revision = (((hackage."binary")."0.8.8.0").revisions).default; - "http-client".revision = (((hackage."http-client")."0.7.11").revisions).default; - "http-client".flags.network-uri = true; - "ansi-wl-pprint".revision = (((hackage."ansi-wl-pprint")."0.6.9").revisions).default; - "ansi-wl-pprint".flags.example = false; - "filelock".revision = (((hackage."filelock")."0.1.1.5").revisions).default; - "validation".revision = (((hackage."validation")."1.1.2").revisions).default; - "ap-normalize".revision = (((hackage."ap-normalize")."0.1.0.1").revisions).default; - "ap-normalize".flags.test-with-clang = false; - "QuickCheck".revision = (((hackage."QuickCheck")."2.14.2").revisions).default; - "QuickCheck".flags.old-random = false; - "QuickCheck".flags.templatehaskell = true; - "safe-exceptions".revision = (((hackage."safe-exceptions")."0.1.7.2").revisions).default; - "uuid-types".revision = (((hackage."uuid-types")."1.0.5").revisions).default; - "file-embed-lzma".revision = (((hackage."file-embed-lzma")."0").revisions).default; - "monad-loops".revision = (((hackage."monad-loops")."0.4.3").revisions).default; - "monad-loops".flags.base4 = true; - "mainland-pretty".revision = (((hackage."mainland-pretty")."0.7.1").revisions).default; - "auto-update".revision = (((hackage."auto-update")."0.1.6").revisions).default; - "containers".revision = (((hackage."containers")."0.6.5.1").revisions).default; - "StateVar".revision = (((hackage."StateVar")."1.2.2").revisions).default; - "exact-combinatorics".revision = (((hackage."exact-combinatorics")."0.2.0.11").revisions).default; - "colour".revision = (((hackage."colour")."2.3.6").revisions).default; - }; - compiler = { - version = "8.10.7"; - nix-name = "ghc8107"; - packages = { - "ghc-boot" = "8.10.7"; - "pretty" = "1.1.3.6"; - "text" = "1.2.4.1"; - "array" = "0.5.4.0"; - "Cabal" = "3.2.1.0"; - "mtl" = "2.2.2"; - "parsec" = "3.1.14.0"; - "bytestring" = "0.10.12.0"; - "filepath" = "1.4.2.1"; - "stm" = "2.5.0.1"; - "ghc-heap" = "8.10.7"; - "ghc-prim" = "0.6.1"; - "ghc-boot-th" = "8.10.7"; - "base" = "4.14.3.0"; - "time" = "1.9.3"; - "Win32" = "2.6.2.1"; - "process" = "1.6.13.2"; - "directory" = "1.3.6.0"; - "exceptions" = "0.10.4"; - "rts" = "1.0.1"; - "transformers" = "0.5.6.2"; - "template-haskell" = "2.16.0.0"; - "deepseq" = "1.4.4.0"; - "integer-gmp" = "1.0.3.0"; - "binary" = "0.8.8.0"; - "containers" = "0.6.5.1"; - }; - }; - }; - extras = hackage: - { - packages = { - cardano-node = ./.plan.nix/cardano-node.nix; - strict-containers = ./.plan.nix/strict-containers.nix; - cardano-ledger-byron-test = ./.plan.nix/cardano-ledger-byron-test.nix; - plutus-pab-executables = ./.plan.nix/plutus-pab-executables.nix; - cardano-testnet = ./.plan.nix/cardano-testnet.nix; - plutus-tx = ./.plan.nix/plutus-tx.nix; - cardano-ledger-byron = ./.plan.nix/cardano-ledger-byron.nix; - cardano-data = ./.plan.nix/cardano-data.nix; - freer-extras = ./.plan.nix/freer-extras.nix; - measures = ./.plan.nix/measures.nix; - cardano-prelude = ./.plan.nix/cardano-prelude.nix; - cardano-wallet-launcher = ./.plan.nix/cardano-wallet-launcher.nix; - cardano-ledger-pretty = ./.plan.nix/cardano-ledger-pretty.nix; - cardano-protocol-tpraos = ./.plan.nix/cardano-protocol-tpraos.nix; - marlowe-playground-server = ./.plan.nix/marlowe-playground-server.nix; - plutus-core = ./.plan.nix/plutus-core.nix; - plutus-ledger-api = ./.plan.nix/plutus-ledger-api.nix; - cardano-prelude-test = ./.plan.nix/cardano-prelude-test.nix; - strict-non-empty-containers = ./.plan.nix/strict-non-empty-containers.nix; - cardano-wallet-core = ./.plan.nix/cardano-wallet-core.nix; - hedgehog-extras = ./.plan.nix/hedgehog-extras.nix; - cardano-submit-api = ./.plan.nix/cardano-submit-api.nix; - marlowe = ./.plan.nix/marlowe.nix; - cardano-git-rev = ./.plan.nix/cardano-git-rev.nix; - plutus-pab = ./.plan.nix/plutus-pab.nix; - plutus-use-cases = ./.plan.nix/plutus-use-cases.nix; - goblins = ./.plan.nix/goblins.nix; - byron-spec-ledger = ./.plan.nix/byron-spec-ledger.nix; - contra-tracer = ./.plan.nix/contra-tracer.nix; - plutus-ledger = ./.plan.nix/plutus-ledger.nix; - small-steps-test = ./.plan.nix/small-steps-test.nix; - trace-resources = ./.plan.nix/trace-resources.nix; - cardano-wallet = ./.plan.nix/cardano-wallet.nix; - cardano-ledger-shelley = ./.plan.nix/cardano-ledger-shelley.nix; - monoidal-synchronisation = ./.plan.nix/monoidal-synchronisation.nix; - cardano-ledger-shelley-ma = ./.plan.nix/cardano-ledger-shelley-ma.nix; - cardano-crypto-class = ./.plan.nix/cardano-crypto-class.nix; - playground-common = ./.plan.nix/playground-common.nix; - cardano-addresses = ./.plan.nix/cardano-addresses.nix; - cardano-cli = ./.plan.nix/cardano-cli.nix; - ouroboros-consensus-cardano = ./.plan.nix/ouroboros-consensus-cardano.nix; - plutus-chain-index-core = ./.plan.nix/plutus-chain-index-core.nix; - flat = ./.plan.nix/flat.nix; - servant-purescript = ./.plan.nix/servant-purescript.nix; - cardano-crypto-praos = ./.plan.nix/cardano-crypto-praos.nix; - text-class = ./.plan.nix/text-class.nix; - lobemo-backend-trace-forwarder = ./.plan.nix/lobemo-backend-trace-forwarder.nix; - ntp-client = ./.plan.nix/ntp-client.nix; - optparse-applicative-fork = ./.plan.nix/optparse-applicative-fork.nix; - lobemo-backend-ekg = ./.plan.nix/lobemo-backend-ekg.nix; - cardano-addresses-cli = ./.plan.nix/cardano-addresses-cli.nix; - quickcheck-dynamic = ./.plan.nix/quickcheck-dynamic.nix; - small-steps = ./.plan.nix/small-steps.nix; - compact-map = ./.plan.nix/compact-map.nix; - ouroboros-network-framework = ./.plan.nix/ouroboros-network-framework.nix; - orphans-deriving-via = ./.plan.nix/orphans-deriving-via.nix; - cardano-numeric = ./.plan.nix/cardano-numeric.nix; - cardano-wallet-cli = ./.plan.nix/cardano-wallet-cli.nix; - word-array = ./.plan.nix/word-array.nix; - ouroboros-consensus-shelley = ./.plan.nix/ouroboros-consensus-shelley.nix; - byron-spec-chain = ./.plan.nix/byron-spec-chain.nix; - cardano-crypto-test = ./.plan.nix/cardano-crypto-test.nix; - cardano-config = ./.plan.nix/cardano-config.nix; - lobemo-backend-graylog = ./.plan.nix/lobemo-backend-graylog.nix; - ouroboros-network-testing = ./.plan.nix/ouroboros-network-testing.nix; - marlowe-contracts = ./.plan.nix/marlowe-contracts.nix; - trace-forward = ./.plan.nix/trace-forward.nix; - Win32-network = ./.plan.nix/Win32-network.nix; - cardano-ledger-shelley-test = ./.plan.nix/cardano-ledger-shelley-test.nix; - lobemo-backend-monitoring = ./.plan.nix/lobemo-backend-monitoring.nix; - iohk-monitoring = ./.plan.nix/iohk-monitoring.nix; - plutus-contract = ./.plan.nix/plutus-contract.nix; - marlowe-actus = ./.plan.nix/marlowe-actus.nix; - io-sim = ./.plan.nix/io-sim.nix; - plutus-chain-index = ./.plan.nix/plutus-chain-index.nix; - typed-protocols-examples = ./.plan.nix/typed-protocols-examples.nix; - ouroboros-consensus = ./.plan.nix/ouroboros-consensus.nix; - plutus-ledger-constraints = ./.plan.nix/plutus-ledger-constraints.nix; - cardano-api = ./.plan.nix/cardano-api.nix; - lobemo-backend-editor = ./.plan.nix/lobemo-backend-editor.nix; - base-deriving-via = ./.plan.nix/base-deriving-via.nix; - lobemo-scribe-systemd = ./.plan.nix/lobemo-scribe-systemd.nix; - cardano-wallet-core-integration = ./.plan.nix/cardano-wallet-core-integration.nix; - ekg-forward = ./.plan.nix/ekg-forward.nix; - marlowe-symbolic = ./.plan.nix/marlowe-symbolic.nix; - plutus-tx-plugin = ./.plan.nix/plutus-tx-plugin.nix; - strict-stm = ./.plan.nix/strict-stm.nix; - cardano-ledger-alonzo = ./.plan.nix/cardano-ledger-alonzo.nix; - trace-dispatcher = ./.plan.nix/trace-dispatcher.nix; - cardano-ledger-core = ./.plan.nix/cardano-ledger-core.nix; - ouroboros-consensus-byron = ./.plan.nix/ouroboros-consensus-byron.nix; - cardano-binary-test = ./.plan.nix/cardano-binary-test.nix; - cardano-crypto = ./.plan.nix/cardano-crypto.nix; - web-ghc = ./.plan.nix/web-ghc.nix; - lobemo-backend-aggregation = ./.plan.nix/lobemo-backend-aggregation.nix; - cardano-slotting = ./.plan.nix/cardano-slotting.nix; - io-classes = ./.plan.nix/io-classes.nix; - typed-protocols = ./.plan.nix/typed-protocols.nix; - typed-protocols-cborg = ./.plan.nix/typed-protocols-cborg.nix; - ouroboros-consensus-protocol = ./.plan.nix/ouroboros-consensus-protocol.nix; - cardano-crypto-wrapper = ./.plan.nix/cardano-crypto-wrapper.nix; - plutus-ghc-stub = ./.plan.nix/plutus-ghc-stub.nix; - network-mux = ./.plan.nix/network-mux.nix; - plutus-contract-certification = ./.plan.nix/plutus-contract-certification.nix; - plutus-playground-server = ./.plan.nix/plutus-playground-server.nix; - tracer-transformers = ./.plan.nix/tracer-transformers.nix; - non-integral = ./.plan.nix/non-integral.nix; - ouroboros-network = ./.plan.nix/ouroboros-network.nix; - set-algebra = ./.plan.nix/set-algebra.nix; - prettyprinter-configurable = ./.plan.nix/prettyprinter-configurable.nix; - cardano-wallet-test-utils = ./.plan.nix/cardano-wallet-test-utils.nix; - purescript-bridge = ./.plan.nix/purescript-bridge.nix; - dbvar = ./.plan.nix/dbvar.nix; - cardano-binary = ./.plan.nix/cardano-binary.nix; - lobemo-backend-trace-acceptor = ./.plan.nix/lobemo-backend-trace-acceptor.nix; - }; - }; - modules = [ - ({ lib, ... }: - { - packages = { - "cardano-node" = { - flags = { - "unexpected_thunks" = lib.mkOverride 900 false; - "systemd" = lib.mkOverride 900 true; - }; - }; - "strict-containers" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "cardano-ledger-byron-test" = { flags = {}; }; - "plutus-pab-executables" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "cardano-testnet" = { flags = {}; }; - "plutus-tx" = { flags = {}; }; - "cardano-ledger-byron" = { - flags = { "test-normal-form" = lib.mkOverride 900 false; }; - }; - "cardano-data" = { flags = {}; }; - "freer-extras" = { flags = {}; }; - "measures" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "cardano-prelude" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "cardano-wallet-launcher" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "cardano-ledger-pretty" = { flags = {}; }; - "cardano-protocol-tpraos" = { flags = {}; }; - "marlowe-playground-server" = { flags = {}; }; - "plutus-core" = { flags = {}; }; - "plutus-ledger-api" = { flags = {}; }; - "cardano-prelude-test" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "strict-non-empty-containers" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "cardano-wallet-core" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "hedgehog-extras" = { flags = {}; }; - "cardano-submit-api" = { flags = {}; }; - "marlowe" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "cardano-git-rev" = { - flags = { "systemd" = lib.mkOverride 900 true; }; - }; - "plutus-pab" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "plutus-use-cases" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "goblins" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "byron-spec-ledger" = { flags = {}; }; - "contra-tracer" = { flags = {}; }; - "plutus-ledger" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "small-steps-test" = { flags = {}; }; - "trace-resources" = { flags = {}; }; - "cardano-wallet" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "cardano-ledger-shelley" = { flags = {}; }; - "monoidal-synchronisation" = { flags = {}; }; - "cardano-ledger-shelley-ma" = { flags = {}; }; - "cardano-crypto-class" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "playground-common" = { flags = {}; }; - "cardano-addresses" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "cardano-cli" = { - flags = { "unexpected_thunks" = lib.mkOverride 900 false; }; - }; - "ouroboros-consensus-cardano" = { - flags = { "asserts" = lib.mkOverride 900 false; }; - }; - "plutus-chain-index-core" = { flags = {}; }; - "flat" = { flags = {}; }; - "servant-purescript" = { flags = {}; }; - "cardano-crypto-praos" = { - flags = { - "external-libsodium-vrf" = lib.mkOverride 900 true; - "development" = lib.mkOverride 900 false; - }; - }; - "text-class" = { flags = { "release" = lib.mkOverride 900 false; }; }; - "lobemo-backend-trace-forwarder" = { flags = {}; }; - "ntp-client" = { flags = { "demo" = lib.mkOverride 900 true; }; }; - "optparse-applicative-fork" = { - flags = { "process" = lib.mkOverride 900 true; }; - }; - "lobemo-backend-ekg" = { flags = {}; }; - "cardano-addresses-cli" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "quickcheck-dynamic" = { flags = {}; }; - "small-steps" = { - flags = { "sts_assert" = lib.mkOverride 900 false; }; - }; - "compact-map" = { flags = {}; }; - "ouroboros-network-framework" = { flags = {}; }; - "orphans-deriving-via" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "cardano-numeric" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "cardano-wallet-cli" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "word-array" = { flags = {}; }; - "ouroboros-consensus-shelley" = { - flags = { "asserts" = lib.mkOverride 900 false; }; - }; - "byron-spec-chain" = { flags = {}; }; - "cardano-crypto-test" = { flags = {}; }; - "cardano-config" = { - flags = { "systemd" = lib.mkOverride 900 true; }; - }; - "lobemo-backend-graylog" = { flags = {}; }; - "ouroboros-network-testing" = { flags = {}; }; - "marlowe-contracts" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "trace-forward" = { flags = {}; }; - "Win32-network" = { flags = { "demo" = lib.mkOverride 900 false; }; }; - "cardano-ledger-shelley-test" = { flags = {}; }; - "lobemo-backend-monitoring" = { flags = {}; }; - "iohk-monitoring" = { - flags = { - "disable-observables" = lib.mkOverride 900 false; - "performance-test-queue" = lib.mkOverride 900 false; - }; - }; - "plutus-contract" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "marlowe-actus" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "io-sim" = { flags = { "asserts" = lib.mkOverride 900 false; }; }; - "plutus-chain-index" = { flags = {}; }; - "typed-protocols-examples" = { flags = {}; }; - "ouroboros-consensus" = { - flags = { "asserts" = lib.mkOverride 900 false; }; - }; - "plutus-ledger-constraints" = { flags = {}; }; - "cardano-api" = { flags = {}; }; - "lobemo-backend-editor" = { flags = {}; }; - "base-deriving-via" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "lobemo-scribe-systemd" = { flags = {}; }; - "cardano-wallet-core-integration" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "ekg-forward" = { flags = {}; }; - "marlowe-symbolic" = { flags = {}; }; - "plutus-tx-plugin" = { - flags = { "use-ghc-stub" = lib.mkOverride 900 true; }; - }; - "strict-stm" = { - flags = { - "checktvarinvariant" = lib.mkOverride 900 false; - "asserts" = lib.mkOverride 900 false; - }; - }; - "cardano-ledger-alonzo" = { flags = {}; }; - "trace-dispatcher" = { flags = {}; }; - "cardano-ledger-core" = { flags = {}; }; - "ouroboros-consensus-byron" = { - flags = { "asserts" = lib.mkOverride 900 false; }; - }; - "cardano-binary-test" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "cardano-crypto" = { - flags = { - "golden-tests-exe" = lib.mkOverride 900 false; - "golden-tests" = lib.mkOverride 900 false; - }; - }; - "web-ghc" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "lobemo-backend-aggregation" = { flags = {}; }; - "cardano-slotting" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "io-classes" = { - flags = { - "checktvarinvariant" = lib.mkOverride 900 false; - "asserts" = lib.mkOverride 900 false; - }; - }; - "typed-protocols" = { flags = {}; }; - "typed-protocols-cborg" = { flags = {}; }; - "ouroboros-consensus-protocol" = { - flags = { "asserts" = lib.mkOverride 900 false; }; - }; - "cardano-crypto-wrapper" = { flags = {}; }; - "plutus-ghc-stub" = { flags = {}; }; - "network-mux" = { - flags = { - "ipv6" = lib.mkOverride 900 false; - "asserts" = lib.mkOverride 900 false; - }; - }; - "plutus-contract-certification" = { flags = {}; }; - "plutus-playground-server" = { - flags = { "defer-plugin-errors" = lib.mkOverride 900 false; }; - }; - "tracer-transformers" = { flags = {}; }; - "non-integral" = { flags = {}; }; - "ouroboros-network" = { - flags = { - "ipv6" = lib.mkOverride 900 false; - "cddl" = lib.mkOverride 900 true; - "asserts" = lib.mkOverride 900 false; - }; - }; - "set-algebra" = { flags = {}; }; - "prettyprinter-configurable" = { flags = {}; }; - "cardano-wallet-test-utils" = { - flags = { "release" = lib.mkOverride 900 false; }; - }; - "purescript-bridge" = { flags = {}; }; - "dbvar" = { flags = { "release" = lib.mkOverride 900 false; }; }; - "cardano-binary" = { - flags = { "development" = lib.mkOverride 900 false; }; - }; - "lobemo-backend-trace-acceptor" = { flags = {}; }; - }; - }) - ({ lib, ... }: - { - packages = { - "bytestring-builder".components.library.planned = lib.mkOverride 900 true; - "hspec-core".components.library.planned = lib.mkOverride 900 true; - "tracer-transformers".components.exes."tracer-transfomers-example2".planned = lib.mkOverride 900 true; - "foundation".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-byron".components.library.planned = lib.mkOverride 900 true; - "either".components.library.planned = lib.mkOverride 900 true; - "ansi-terminal".components.library.planned = lib.mkOverride 900 true; - "quiet".components.library.planned = lib.mkOverride 900 true; - "blockfrost-client-core".components.library.planned = lib.mkOverride 900 true; - "http-client-tls".components.library.planned = lib.mkOverride 900 true; - "servant-foreign".components.library.planned = lib.mkOverride 900 true; - "deriving-aeson".components.library.planned = lib.mkOverride 900 true; - "goblins".components.library.planned = lib.mkOverride 900 true; - "plutus-ledger-constraints".components.library.planned = lib.mkOverride 900 true; - "tasty-quickcheck".components.library.planned = lib.mkOverride 900 true; - "string-conversions".components.library.planned = lib.mkOverride 900 true; - "base16-bytestring".components.library.planned = lib.mkOverride 900 true; - "terminal-size".components.library.planned = lib.mkOverride 900 true; - "invariant".components.library.planned = lib.mkOverride 900 true; - "cardano-node".components.library.planned = lib.mkOverride 900 true; - "transformers-base".components.library.planned = lib.mkOverride 900 true; - "base-orphans".components.library.planned = lib.mkOverride 900 true; - "scrypt".components.library.planned = lib.mkOverride 900 true; - "aeson-casing".components.library.planned = lib.mkOverride 900 true; - "lazy-search".components.library.planned = lib.mkOverride 900 true; - "lzma-clib".components.library.planned = lib.mkOverride 900 true; - "plutus-chain-index".components.library.planned = lib.mkOverride 900 true; - "groups".components.library.planned = lib.mkOverride 900 true; - "servant".components.library.planned = lib.mkOverride 900 true; - "bin".components.library.planned = lib.mkOverride 900 true; - "th-orphans".components.library.planned = lib.mkOverride 900 true; - "socks".components.library.planned = lib.mkOverride 900 true; - "tracer-transformers".components.exes."tracer-transfomers-example1".planned = lib.mkOverride 900 true; - "threepenny-gui".components.library.planned = lib.mkOverride 900 true; - "freer-extras".components.library.planned = lib.mkOverride 900 true; - "megaparsec".components.library.planned = lib.mkOverride 900 true; - "cookie".components.library.planned = lib.mkOverride 900 true; - "bimap".components.library.planned = lib.mkOverride 900 true; - "math-functions".components.library.planned = lib.mkOverride 900 true; - "these".components.library.planned = lib.mkOverride 900 true; - "cardano-binary-test".components.library.planned = lib.mkOverride 900 true; - "cardano-crypto-wrapper".components.library.planned = lib.mkOverride 900 true; - "pretty-simple".components.setup.planned = lib.mkOverride 900 true; - "sort".components.library.planned = lib.mkOverride 900 true; - "cereal".components.library.planned = lib.mkOverride 900 true; - "servant-multipart-client".components.library.planned = lib.mkOverride 900 true; - "pretty-show".components.exes."ppsh".planned = lib.mkOverride 900 true; - "measures".components.library.planned = lib.mkOverride 900 true; - "barbies".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus-byron".components.exes."db-converter".planned = lib.mkOverride 900 true; - "resourcet".components.library.planned = lib.mkOverride 900 true; - "haskell-src-meta".components.library.planned = lib.mkOverride 900 true; - "cardano-addresses-cli".components.library.planned = lib.mkOverride 900 true; - "extra".components.library.planned = lib.mkOverride 900 true; - "http2".components.library.planned = lib.mkOverride 900 true; - "persistent".components.library.planned = lib.mkOverride 900 true; - "microlens".components.library.planned = lib.mkOverride 900 true; - "hedgehog".components.library.planned = lib.mkOverride 900 true; - "fmlist".components.library.planned = lib.mkOverride 900 true; - "filepath".components.library.planned = lib.mkOverride 900 true; - "text-conversions".components.library.planned = lib.mkOverride 900 true; - "data-default-instances-old-locale".components.library.planned = lib.mkOverride 900 true; - "pretty-show".components.library.planned = lib.mkOverride 900 true; - "newtype-generics".components.library.planned = lib.mkOverride 900 true; - "cardano-addresses".components.library.planned = lib.mkOverride 900 true; - "ral".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet-core-integration".components.library.planned = lib.mkOverride 900 true; - "wai".components.library.planned = lib.mkOverride 900 true; - "fmt".components.library.planned = lib.mkOverride 900 true; - "ekg-forward".components.library.planned = lib.mkOverride 900 true; - "system-filepath".components.library.planned = lib.mkOverride 900 true; - "playground-common".components.library.planned = lib.mkOverride 900 true; - "network-mux".components.exes."mux-demo".planned = lib.mkOverride 900 true; - "distributive".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-pab-setup".planned = lib.mkOverride 900 true; - "ouroboros-network-framework".components.exes."demo-ping-pong".planned = lib.mkOverride 900 true; - "pretty".components.library.planned = lib.mkOverride 900 true; - "utf8-string".components.library.planned = lib.mkOverride 900 true; - "pretty-simple".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus-cardano".components.library.planned = lib.mkOverride 900 true; - "typerep-map".components.sublibs."typerep-extra-impls".planned = lib.mkOverride 900 true; - "plutus-tx".components.sublibs."plutus-tx-testlib".planned = lib.mkOverride 900 true; - "regex-posix-clib".components.library.planned = lib.mkOverride 900 true; - "Cabal".components.library.planned = lib.mkOverride 900 true; - "vector-space".components.library.planned = lib.mkOverride 900 true; - "reflection".components.library.planned = lib.mkOverride 900 true; - "authenticate-oauth".components.library.planned = lib.mkOverride 900 true; - "Unique".components.library.planned = lib.mkOverride 900 true; - "attoparsec-iso8601".components.library.planned = lib.mkOverride 900 true; - "vector-sized".components.library.planned = lib.mkOverride 900 true; - "quickcheck-io".components.library.planned = lib.mkOverride 900 true; - "dec".components.library.planned = lib.mkOverride 900 true; - "lattices".components.library.planned = lib.mkOverride 900 true; - "SHA".components.library.planned = lib.mkOverride 900 true; - "bytestring".components.library.planned = lib.mkOverride 900 true; - "cardano-api".components.sublibs."gen".planned = lib.mkOverride 900 true; - "tasty-golden".components.library.planned = lib.mkOverride 900 true; - "composition-prelude".components.library.planned = lib.mkOverride 900 true; - "plutus-chain-index-core".components.library.planned = lib.mkOverride 900 true; - "mwc-random".components.library.planned = lib.mkOverride 900 true; - "mono-traversable".components.library.planned = lib.mkOverride 900 true; - "docopt".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-core".components.library.planned = lib.mkOverride 900 true; - "mintty".components.library.planned = lib.mkOverride 900 true; - "zlib".components.library.planned = lib.mkOverride 900 true; - "servant-server".components.exes."greet".planned = lib.mkOverride 900 true; - "list-t".components.library.planned = lib.mkOverride 900 true; - "ntp-client".components.exes."demo-ntp-client".planned = lib.mkOverride 900 true; - "freer-simple".components.exes."freer-simple-examples".planned = lib.mkOverride 900 true; - "strict".components.library.planned = lib.mkOverride 900 true; - "jwt".components.library.planned = lib.mkOverride 900 true; - "entropy".components.setup.planned = lib.mkOverride 900 true; - "comonad".components.library.planned = lib.mkOverride 900 true; - "data-fix".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet-test-utils".components.library.planned = lib.mkOverride 900 true; - "mtl-compat".components.library.planned = lib.mkOverride 900 true; - "dbvar".components.library.planned = lib.mkOverride 900 true; - "plutus-core".components.exes."uplc".planned = lib.mkOverride 900 true; - "purescript-bridge".components.library.planned = lib.mkOverride 900 true; - "wl-pprint".components.library.planned = lib.mkOverride 900 true; - "modern-uri".components.library.planned = lib.mkOverride 900 true; - "lobemo-backend-trace-acceptor".components.library.planned = lib.mkOverride 900 true; - "set-algebra".components.library.planned = lib.mkOverride 900 true; - "unliftio".components.library.planned = lib.mkOverride 900 true; - "libBF".components.library.planned = lib.mkOverride 900 true; - "typed-protocols-examples".components.library.planned = lib.mkOverride 900 true; - "cborg".components.library.planned = lib.mkOverride 900 true; - "constraints-extras".components.exes."readme".planned = lib.mkOverride 900 true; - "prettyprinter-ansi-terminal".components.library.planned = lib.mkOverride 900 true; - "base64-bytestring-type".components.library.planned = lib.mkOverride 900 true; - "lens".components.setup.planned = lib.mkOverride 900 true; - "sop-core".components.library.planned = lib.mkOverride 900 true; - "serialise".components.library.planned = lib.mkOverride 900 true; - "ekg".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus-shelley".components.library.planned = lib.mkOverride 900 true; - "ouroboros-network".components.library.planned = lib.mkOverride 900 true; - "profunctors".components.library.planned = lib.mkOverride 900 true; - "exceptions".components.library.planned = lib.mkOverride 900 true; - "one-line-aeson-text".components.library.planned = lib.mkOverride 900 true; - "mmorph".components.library.planned = lib.mkOverride 900 true; - "safe-exceptions".components.library.planned = lib.mkOverride 900 true; - "strict-containers".components.library.planned = lib.mkOverride 900 true; - "call-stack".components.library.planned = lib.mkOverride 900 true; - "async-timer".components.library.planned = lib.mkOverride 900 true; - "optics-core".components.library.planned = lib.mkOverride 900 true; - "plutus-use-cases".components.library.planned = lib.mkOverride 900 true; - "old-time".components.library.planned = lib.mkOverride 900 true; - "size-based".components.library.planned = lib.mkOverride 900 true; - "dlist".components.library.planned = lib.mkOverride 900 true; - "cardano-testnet".components.library.planned = lib.mkOverride 900 true; - "time-manager".components.library.planned = lib.mkOverride 900 true; - "snap-core".components.library.planned = lib.mkOverride 900 true; - "ghc-prim".components.library.planned = lib.mkOverride 900 true; - "servant-purescript".components.library.planned = lib.mkOverride 900 true; - "HUnit".components.library.planned = lib.mkOverride 900 true; - "marlowe-playground-server".components.tests."marlowe-playground-server-test".planned = lib.mkOverride 900 true; - "some".components.library.planned = lib.mkOverride 900 true; - "lobemo-backend-trace-forwarder".components.library.planned = lib.mkOverride 900 true; - "servant-docs".components.exes."greet-docs".planned = lib.mkOverride 900 true; - "dependent-sum-template".components.library.planned = lib.mkOverride 900 true; - "plutus-ghc-stub".components.library.planned = lib.mkOverride 900 true; - "generic-data".components.library.planned = lib.mkOverride 900 true; - "IntervalMap".components.library.planned = lib.mkOverride 900 true; - "small-steps".components.library.planned = lib.mkOverride 900 true; - "quickcheck-classes".components.library.planned = lib.mkOverride 900 true; - "array".components.library.planned = lib.mkOverride 900 true; - "x509".components.library.planned = lib.mkOverride 900 true; - "quickcheck-instances".components.library.planned = lib.mkOverride 900 true; - "servant-client-core".components.library.planned = lib.mkOverride 900 true; - "mersenne-random-pure64".components.library.planned = lib.mkOverride 900 true; - "command".components.library.planned = lib.mkOverride 900 true; - "Win32".components.library.planned = lib.mkOverride 900 true; - "lobemo-backend-ekg".components.library.planned = lib.mkOverride 900 true; - "canonical-json".components.library.planned = lib.mkOverride 900 true; - "tracer-transformers".components.library.planned = lib.mkOverride 900 true; - "binary".components.library.planned = lib.mkOverride 900 true; - "ouroboros-network-framework".components.library.planned = lib.mkOverride 900 true; - "charset".components.library.planned = lib.mkOverride 900 true; - "cardano-crypto-class".components.library.planned = lib.mkOverride 900 true; - "primitive-addr".components.library.planned = lib.mkOverride 900 true; - "wai-extra".components.library.planned = lib.mkOverride 900 true; - "validation".components.library.planned = lib.mkOverride 900 true; - "cardano-numeric".components.library.planned = lib.mkOverride 900 true; - "ghc-boot-th".components.library.planned = lib.mkOverride 900 true; - "stm-chans".components.library.planned = lib.mkOverride 900 true; - "servant-multipart-client".components.exes."upload".planned = lib.mkOverride 900 true; - "typerep-map".components.library.planned = lib.mkOverride 900 true; - "scientific".components.library.planned = lib.mkOverride 900 true; - "th-extras".components.library.planned = lib.mkOverride 900 true; - "compact-map".components.library.planned = lib.mkOverride 900 true; - "openapi3".components.setup.planned = lib.mkOverride 900 true; - "hspec-discover".components.exes."hspec-discover".planned = lib.mkOverride 900 true; - "splitmix".components.library.planned = lib.mkOverride 900 true; - "io-sim".components.library.planned = lib.mkOverride 900 true; - "rts".components.library.planned = lib.mkOverride 900 true; - "time-out".components.library.planned = lib.mkOverride 900 true; - "nothunks".components.library.planned = lib.mkOverride 900 true; - "dense-linear-algebra".components.library.planned = lib.mkOverride 900 true; - "blaze-html".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet-launcher".components.library.planned = lib.mkOverride 900 true; - "marlowe-contracts".components.library.planned = lib.mkOverride 900 true; - "moo".components.library.planned = lib.mkOverride 900 true; - "temporary".components.library.planned = lib.mkOverride 900 true; - "trace-forward".components.library.planned = lib.mkOverride 900 true; - "tagged".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-pab-nami-demo-generator".planned = lib.mkOverride 900 true; - "cardano-protocol-tpraos".components.library.planned = lib.mkOverride 900 true; - "file-embed".components.library.planned = lib.mkOverride 900 true; - "optics-th".components.library.planned = lib.mkOverride 900 true; - "simple-sendfile".components.library.planned = lib.mkOverride 900 true; - "pipes".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-pretty".components.library.planned = lib.mkOverride 900 true; - "semirings".components.library.planned = lib.mkOverride 900 true; - "hsc2hs".components.exes."hsc2hs".planned = lib.mkOverride 900 true; - "trace-dispatcher".components.library.planned = lib.mkOverride 900 true; - "servant-options".components.library.planned = lib.mkOverride 900 true; - "parser-combinators".components.library.planned = lib.mkOverride 900 true; - "Boolean".components.library.planned = lib.mkOverride 900 true; - "Win32-network".components.library.planned = lib.mkOverride 900 true; - "int-cast".components.library.planned = lib.mkOverride 900 true; - "vector".components.library.planned = lib.mkOverride 900 true; - "plutus-contract".components.library.planned = lib.mkOverride 900 true; - "indexed-traversable-instances".components.library.planned = lib.mkOverride 900 true; - "servant-server".components.library.planned = lib.mkOverride 900 true; - "data-default-class".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet-core".components.library.planned = lib.mkOverride 900 true; - "flat".components.library.planned = lib.mkOverride 900 true; - "wai-websockets".components.exes."wai-websockets-example".planned = lib.mkOverride 900 true; - "generic-lens-core".components.library.planned = lib.mkOverride 900 true; - "servant-openapi3".components.library.planned = lib.mkOverride 900 true; - "regex-base".components.library.planned = lib.mkOverride 900 true; - "adjunctions".components.library.planned = lib.mkOverride 900 true; - "tree-diff".components.library.planned = lib.mkOverride 900 true; - "plutus-use-cases".components.exes."plutus-use-cases-scripts".planned = lib.mkOverride 900 true; - "marlowe-actus".components.library.planned = lib.mkOverride 900 true; - "vector-binary-instances".components.library.planned = lib.mkOverride 900 true; - "parallel".components.library.planned = lib.mkOverride 900 true; - "cryptonite".components.library.planned = lib.mkOverride 900 true; - "asn1-parse".components.library.planned = lib.mkOverride 900 true; - "cardano-addresses-cli".components.exes."cardano-address".planned = lib.mkOverride 900 true; - "beam-migrate".components.library.planned = lib.mkOverride 900 true; - "strict-non-empty-containers".components.library.planned = lib.mkOverride 900 true; - "web-ghc".components.exes."web-ghc-server".planned = lib.mkOverride 900 true; - "indexed-list-literals".components.library.planned = lib.mkOverride 900 true; - "signal".components.exes."test".planned = lib.mkOverride 900 true; - "foldl".components.library.planned = lib.mkOverride 900 true; - "prometheus".components.library.planned = lib.mkOverride 900 true; - "type-equality".components.library.planned = lib.mkOverride 900 true; - "network-byte-order".components.library.planned = lib.mkOverride 900 true; - "word-array".components.library.planned = lib.mkOverride 900 true; - "rate-limit".components.library.planned = lib.mkOverride 900 true; - "mime-types".components.library.planned = lib.mkOverride 900 true; - "silently".components.library.planned = lib.mkOverride 900 true; - "blockfrost-client".components.library.planned = lib.mkOverride 900 true; - "ekg-json".components.library.planned = lib.mkOverride 900 true; - "concurrent-output".components.library.planned = lib.mkOverride 900 true; - "directory".components.library.planned = lib.mkOverride 900 true; - "happy".components.exes."happy".planned = lib.mkOverride 900 true; - "cardano-wallet".components.library.planned = lib.mkOverride 900 true; - "network-info".components.library.planned = lib.mkOverride 900 true; - "servant-openapi3".components.setup.planned = lib.mkOverride 900 true; - "uuid".components.library.planned = lib.mkOverride 900 true; - "time".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus-protocol".components.library.planned = lib.mkOverride 900 true; - "cardano-prelude".components.library.planned = lib.mkOverride 900 true; - "universe-reverse-instances".components.library.planned = lib.mkOverride 900 true; - "MonadRandom".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-pab-local-cluster".planned = lib.mkOverride 900 true; - "bech32-th".components.library.planned = lib.mkOverride 900 true; - "cardano-slotting".components.library.planned = lib.mkOverride 900 true; - "http-api-data".components.library.planned = lib.mkOverride 900 true; - "network".components.library.planned = lib.mkOverride 900 true; - "psqueues".components.library.planned = lib.mkOverride 900 true; - "show-combinators".components.library.planned = lib.mkOverride 900 true; - "ListLike".components.library.planned = lib.mkOverride 900 true; - "string-interpolate".components.library.planned = lib.mkOverride 900 true; - "bsb-http-chunked".components.library.planned = lib.mkOverride 900 true; - "ouroboros-network-testing".components.library.planned = lib.mkOverride 900 true; - "plutus-ledger".components.library.planned = lib.mkOverride 900 true; - "cmdargs".components.library.planned = lib.mkOverride 900 true; - "aeson-pretty".components.exes."aeson-pretty".planned = lib.mkOverride 900 true; - "prettyprinter-configurable".components.setup.planned = lib.mkOverride 900 true; - "lobemo-backend-editor".components.library.planned = lib.mkOverride 900 true; - "StateVar".components.library.planned = lib.mkOverride 900 true; - "libBF".components.exes."bf-test".planned = lib.mkOverride 900 true; - "cardano-node".components.exes."cardano-node".planned = lib.mkOverride 900 true; - "deriving-compat".components.library.planned = lib.mkOverride 900 true; - "fast-logger".components.library.planned = lib.mkOverride 900 true; - "data-default".components.library.planned = lib.mkOverride 900 true; - "case-insensitive".components.library.planned = lib.mkOverride 900 true; - "fin".components.library.planned = lib.mkOverride 900 true; - "path-pieces".components.library.planned = lib.mkOverride 900 true; - "strict-stm".components.library.planned = lib.mkOverride 900 true; - "io-streams-haproxy".components.library.planned = lib.mkOverride 900 true; - "trace-resources".components.library.planned = lib.mkOverride 900 true; - "cardano-api".components.library.planned = lib.mkOverride 900 true; - "bech32".components.library.planned = lib.mkOverride 900 true; - "th-expand-syns".components.library.planned = lib.mkOverride 900 true; - "strict-list".components.library.planned = lib.mkOverride 900 true; - "servant-multipart".components.library.planned = lib.mkOverride 900 true; - "plutus-playground-server".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."sync-client".planned = lib.mkOverride 900 true; - "unix-time".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-shelley-ma".components.library.planned = lib.mkOverride 900 true; - "direct-sqlite".components.library.planned = lib.mkOverride 900 true; - "snap-server".components.library.planned = lib.mkOverride 900 true; - "orphans-deriving-via".components.library.planned = lib.mkOverride 900 true; - "half".components.library.planned = lib.mkOverride 900 true; - "cryptostore".components.library.planned = lib.mkOverride 900 true; - "cardano-git-rev".components.library.planned = lib.mkOverride 900 true; - "text-class".components.library.planned = lib.mkOverride 900 true; - "file-embed-lzma".components.library.planned = lib.mkOverride 900 true; - "monad-loops".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet".components.exes."mock-token-metadata-server".planned = lib.mkOverride 900 true; - "websockets".components.library.planned = lib.mkOverride 900 true; - "marlowe".components.library.planned = lib.mkOverride 900 true; - "indexed-profunctors".components.library.planned = lib.mkOverride 900 true; - "cryptohash-sha1".components.library.planned = lib.mkOverride 900 true; - "readable".components.library.planned = lib.mkOverride 900 true; - "ntp-client".components.library.planned = lib.mkOverride 900 true; - "beam-core".components.library.planned = lib.mkOverride 900 true; - "generic-deriving".components.library.planned = lib.mkOverride 900 true; - "free".components.library.planned = lib.mkOverride 900 true; - "plutus-core".components.sublibs."plutus-core-testlib".planned = lib.mkOverride 900 true; - "unix-compat".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."tx-inject".planned = lib.mkOverride 900 true; - "x509-store".components.library.planned = lib.mkOverride 900 true; - "Win32-network".components.exes."named-pipe-demo".planned = lib.mkOverride 900 true; - "vector-algorithms".components.library.planned = lib.mkOverride 900 true; - "servant-blaze".components.library.planned = lib.mkOverride 900 true; - "blaze-builder".components.library.planned = lib.mkOverride 900 true; - "marlowe-playground-server".components.exes."flow-chart-generator".planned = lib.mkOverride 900 true; - "asn1-types".components.library.planned = lib.mkOverride 900 true; - "cardano-data".components.library.planned = lib.mkOverride 900 true; - "ouroboros-network".components.sublibs."ouroboros-protocol-tests".planned = lib.mkOverride 900 true; - "setenv".components.library.planned = lib.mkOverride 900 true; - "generic-random".components.library.planned = lib.mkOverride 900 true; - "lifted-base".components.library.planned = lib.mkOverride 900 true; - "lazysmallcheck".components.library.planned = lib.mkOverride 900 true; - "tls-session-manager".components.library.planned = lib.mkOverride 900 true; - "criterion-measurement".components.library.planned = lib.mkOverride 900 true; - "unliftio-core".components.library.planned = lib.mkOverride 900 true; - "wl-pprint-text".components.library.planned = lib.mkOverride 900 true; - "data-default-instances-containers".components.library.planned = lib.mkOverride 900 true; - "safe".components.library.planned = lib.mkOverride 900 true; - "constraints".components.library.planned = lib.mkOverride 900 true; - "byron-spec-ledger".components.library.planned = lib.mkOverride 900 true; - "yaml".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus".components.library.planned = lib.mkOverride 900 true; - "servant-swagger-ui-core".components.library.planned = lib.mkOverride 900 true; - "web-ghc".components.library.planned = lib.mkOverride 900 true; - "indexed-traversable".components.library.planned = lib.mkOverride 900 true; - "network-uri".components.library.planned = lib.mkOverride 900 true; - "recursion-schemes".components.library.planned = lib.mkOverride 900 true; - "Stream".components.library.planned = lib.mkOverride 900 true; - "katip".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet".components.exes."cardano-wallet".planned = lib.mkOverride 900 true; - "cardano-submit-api".components.library.planned = lib.mkOverride 900 true; - "lzma".components.library.planned = lib.mkOverride 900 true; - "wai-logger".components.setup.planned = lib.mkOverride 900 true; - "streaming-binary".components.library.planned = lib.mkOverride 900 true; - "regex-posix".components.library.planned = lib.mkOverride 900 true; - "statistics-linreg".components.library.planned = lib.mkOverride 900 true; - "code-page".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus-byron".components.library.planned = lib.mkOverride 900 true; - "hedgehog-quickcheck".components.library.planned = lib.mkOverride 900 true; - "ekg-forward".components.exes."demo-acceptor".planned = lib.mkOverride 900 true; - "crypto-pubkey-types".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet-cli".components.library.planned = lib.mkOverride 900 true; - "memory".components.library.planned = lib.mkOverride 900 true; - "pem".components.library.planned = lib.mkOverride 900 true; - "typed-process".components.library.planned = lib.mkOverride 900 true; - "base-compat-batteries".components.library.planned = lib.mkOverride 900 true; - "newtype".components.library.planned = lib.mkOverride 900 true; - "typed-protocols-cborg".components.library.planned = lib.mkOverride 900 true; - "dictionary-sharing".components.library.planned = lib.mkOverride 900 true; - "time-units".components.library.planned = lib.mkOverride 900 true; - "microlens-th".components.library.planned = lib.mkOverride 900 true; - "tasty-hunit".components.library.planned = lib.mkOverride 900 true; - "split".components.library.planned = lib.mkOverride 900 true; - "pqueue".components.library.planned = lib.mkOverride 900 true; - "contravariant".components.library.planned = lib.mkOverride 900 true; - "appar".components.library.planned = lib.mkOverride 900 true; - "optparse-applicative-fork".components.library.planned = lib.mkOverride 900 true; - "ouroboros-consensus-cardano".components.exes."db-analyser".planned = lib.mkOverride 900 true; - "servant-docs".components.library.planned = lib.mkOverride 900 true; - "beam-sqlite".components.library.planned = lib.mkOverride 900 true; - "th-utilities".components.library.planned = lib.mkOverride 900 true; - "typed-protocols".components.library.planned = lib.mkOverride 900 true; - "casing".components.library.planned = lib.mkOverride 900 true; - "persistent-template".components.library.planned = lib.mkOverride 900 true; - "zlib-bindings".components.library.planned = lib.mkOverride 900 true; - "syb".components.library.planned = lib.mkOverride 900 true; - "vector-th-unbox".components.library.planned = lib.mkOverride 900 true; - "hspec".components.library.planned = lib.mkOverride 900 true; - "sbv".components.library.planned = lib.mkOverride 900 true; - "cardano-cli".components.library.planned = lib.mkOverride 900 true; - "signal".components.library.planned = lib.mkOverride 900 true; - "cardano-binary".components.library.planned = lib.mkOverride 900 true; - "text-short".components.library.planned = lib.mkOverride 900 true; - "haskell-src-exts".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-uniswap".planned = lib.mkOverride 900 true; - "entropy".components.library.planned = lib.mkOverride 900 true; - "marlowe-playground-server".components.exes."marlowe-playground-server".planned = lib.mkOverride 900 true; - "assoc".components.library.planned = lib.mkOverride 900 true; - "process".components.library.planned = lib.mkOverride 900 true; - "http-date".components.library.planned = lib.mkOverride 900 true; - "MissingH".components.library.planned = lib.mkOverride 900 true; - "hspec-discover".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-shelley".components.library.planned = lib.mkOverride 900 true; - "tf-random".components.library.planned = lib.mkOverride 900 true; - "prettyprinter".components.library.planned = lib.mkOverride 900 true; - "transformers-except".components.library.planned = lib.mkOverride 900 true; - "freer-simple".components.library.planned = lib.mkOverride 900 true; - "clock".components.library.planned = lib.mkOverride 900 true; - "row-types".components.library.planned = lib.mkOverride 900 true; - "plutus-core".components.sublibs."index-envs".planned = lib.mkOverride 900 true; - "optics-extra".components.library.planned = lib.mkOverride 900 true; - "streaming".components.library.planned = lib.mkOverride 900 true; - "cardano-prelude-test".components.library.planned = lib.mkOverride 900 true; - "template-haskell".components.library.planned = lib.mkOverride 900 true; - "fingertree".components.library.planned = lib.mkOverride 900 true; - "blaze-markup".components.library.planned = lib.mkOverride 900 true; - "aeson-pretty".components.library.planned = lib.mkOverride 900 true; - "th-lift".components.library.planned = lib.mkOverride 900 true; - "insert-ordered-containers".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-alonzo".components.library.planned = lib.mkOverride 900 true; - "libyaml".components.library.planned = lib.mkOverride 900 true; - "stm".components.library.planned = lib.mkOverride 900 true; - "monoidal-containers".components.library.planned = lib.mkOverride 900 true; - "deque".components.library.planned = lib.mkOverride 900 true; - "retry".components.library.planned = lib.mkOverride 900 true; - "byteorder".components.library.planned = lib.mkOverride 900 true; - "dom-lt".components.library.planned = lib.mkOverride 900 true; - "witherable".components.library.planned = lib.mkOverride 900 true; - "lens-aeson".components.library.planned = lib.mkOverride 900 true; - "abstract-par".components.library.planned = lib.mkOverride 900 true; - "safe-money".components.library.planned = lib.mkOverride 900 true; - "monad-par".components.library.planned = lib.mkOverride 900 true; - "plutus-playground-server".components.exes."plutus-playground-server".planned = lib.mkOverride 900 true; - "openapi3".components.exes."example".planned = lib.mkOverride 900 true; - "system-filepath".components.setup.planned = lib.mkOverride 900 true; - "asn1-encoding".components.library.planned = lib.mkOverride 900 true; - "alex".components.exes."alex".planned = lib.mkOverride 900 true; - "semialign".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-pab-nami-demo".planned = lib.mkOverride 900 true; - "erf".components.library.planned = lib.mkOverride 900 true; - "cardano-crypto-test".components.library.planned = lib.mkOverride 900 true; - "generics-sop".components.library.planned = lib.mkOverride 900 true; - "http-client".components.library.planned = lib.mkOverride 900 true; - "async".components.library.planned = lib.mkOverride 900 true; - "marlowe-contracts".components.tests."marlowe-contracts-test".planned = lib.mkOverride 900 true; - "http-media".components.library.planned = lib.mkOverride 900 true; - "ghc-boot".components.library.planned = lib.mkOverride 900 true; - "word8".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-byron-test".components.library.planned = lib.mkOverride 900 true; - "hslogger".components.library.planned = lib.mkOverride 900 true; - "openapi3".components.library.planned = lib.mkOverride 900 true; - "microlens-mtl".components.library.planned = lib.mkOverride 900 true; - "semigroupoids".components.setup.planned = lib.mkOverride 900 true; - "hspec-expectations-lifted".components.library.planned = lib.mkOverride 900 true; - "plutus-tx".components.library.planned = lib.mkOverride 900 true; - "tasty-hedgehog".components.library.planned = lib.mkOverride 900 true; - "http-conduit".components.library.planned = lib.mkOverride 900 true; - "cabal-doctest".components.library.planned = lib.mkOverride 900 true; - "iproute".components.library.planned = lib.mkOverride 900 true; - "abstract-deque".components.library.planned = lib.mkOverride 900 true; - "servant-client".components.library.planned = lib.mkOverride 900 true; - "natural-transformation".components.library.planned = lib.mkOverride 900 true; - "wl-pprint-annotated".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-pab-examples".planned = lib.mkOverride 900 true; - "wai-logger".components.library.planned = lib.mkOverride 900 true; - "th-compat".components.library.planned = lib.mkOverride 900 true; - "cardano-crypto".components.library.planned = lib.mkOverride 900 true; - "tls".components.library.planned = lib.mkOverride 900 true; - "http-types".components.library.planned = lib.mkOverride 900 true; - "websockets-snap".components.library.planned = lib.mkOverride 900 true; - "generic-monoid".components.library.planned = lib.mkOverride 900 true; - "lens".components.library.planned = lib.mkOverride 900 true; - "small-steps-test".components.library.planned = lib.mkOverride 900 true; - "network-mux".components.library.planned = lib.mkOverride 900 true; - "logict".components.library.planned = lib.mkOverride 900 true; - "cardano-testnet".components.exes."cardano-testnet".planned = lib.mkOverride 900 true; - "srcloc".components.library.planned = lib.mkOverride 900 true; - "atomic-primops".components.library.planned = lib.mkOverride 900 true; - "gray-code".components.library.planned = lib.mkOverride 900 true; - "NumInstances".components.library.planned = lib.mkOverride 900 true; - "plutus-contract-certification".components.library.planned = lib.mkOverride 900 true; - "QuickCheck".components.library.planned = lib.mkOverride 900 true; - "ansi-wl-pprint".components.library.planned = lib.mkOverride 900 true; - "uuid-types".components.library.planned = lib.mkOverride 900 true; - "generic-arbitrary".components.library.planned = lib.mkOverride 900 true; - "req".components.library.planned = lib.mkOverride 900 true; - "process-extras".components.library.planned = lib.mkOverride 900 true; - "io-classes".components.library.planned = lib.mkOverride 900 true; - "monoidal-synchronisation".components.library.planned = lib.mkOverride 900 true; - "ap-normalize".components.library.planned = lib.mkOverride 900 true; - "semigroupoids".components.library.planned = lib.mkOverride 900 true; - "x509-validation".components.library.planned = lib.mkOverride 900 true; - "cardano-wallet".components.exes."local-cluster".planned = lib.mkOverride 900 true; - "network-bsd".components.library.planned = lib.mkOverride 900 true; - "quickcheck-dynamic".components.library.planned = lib.mkOverride 900 true; - "ghc-heap".components.library.planned = lib.mkOverride 900 true; - "filelock".components.library.planned = lib.mkOverride 900 true; - "wai-app-static".components.exes."warp".planned = lib.mkOverride 900 true; - "marlowe-symbolic".components.library.planned = lib.mkOverride 900 true; - "singleton-bool".components.library.planned = lib.mkOverride 900 true; - "marlowe-playground-server".components.library.planned = lib.mkOverride 900 true; - "attoparsec".components.library.planned = lib.mkOverride 900 true; - "algebraic-graphs".components.library.planned = lib.mkOverride 900 true; - "data-default-instances-dlist".components.library.planned = lib.mkOverride 900 true; - "haskell-lexer".components.library.planned = lib.mkOverride 900 true; - "hspec-golden-aeson".components.library.planned = lib.mkOverride 900 true; - "bech32".components.exes."bech32".planned = lib.mkOverride 900 true; - "plutus-core".components.library.planned = lib.mkOverride 900 true; - "cardano-submit-api".components.exes."cardano-submit-api".planned = lib.mkOverride 900 true; - "wai-websockets".components.library.planned = lib.mkOverride 900 true; - "marlowe".components.exes."marlowe-pab-setup".planned = lib.mkOverride 900 true; - "quickcheck-arbitrary-adt".components.library.planned = lib.mkOverride 900 true; - "uniplate".components.library.planned = lib.mkOverride 900 true; - "time-interval".components.library.planned = lib.mkOverride 900 true; - "servant-multipart-api".components.library.planned = lib.mkOverride 900 true; - "plutus-chain-index".components.exes."plutus-chain-index".planned = lib.mkOverride 900 true; - "mtl".components.library.planned = lib.mkOverride 900 true; - "dependent-sum".components.library.planned = lib.mkOverride 900 true; - "OddWord".components.library.planned = lib.mkOverride 900 true; - "plutus-core".components.exes."pir".planned = lib.mkOverride 900 true; - "plutus-tx-plugin".components.library.planned = lib.mkOverride 900 true; - "base-unicode-symbols".components.library.planned = lib.mkOverride 900 true; - "iohk-monitoring".components.library.planned = lib.mkOverride 900 true; - "unbounded-delays".components.library.planned = lib.mkOverride 900 true; - "protolude".components.library.planned = lib.mkOverride 900 true; - "plutus-ledger-api".components.library.planned = lib.mkOverride 900 true; - "statistics".components.library.planned = lib.mkOverride 900 true; - "lobemo-backend-monitoring".components.library.planned = lib.mkOverride 900 true; - "monad-par-extras".components.library.planned = lib.mkOverride 900 true; - "servant-multipart-client".components.exes."server".planned = lib.mkOverride 900 true; - "aeson-qq".components.library.planned = lib.mkOverride 900 true; - "vault".components.library.planned = lib.mkOverride 900 true; - "th-abstraction".components.library.planned = lib.mkOverride 900 true; - "unagi-chan".components.library.planned = lib.mkOverride 900 true; - "RSA".components.library.planned = lib.mkOverride 900 true; - "cardano-ledger-shelley-test".components.library.planned = lib.mkOverride 900 true; - "plutus-pab".components.library.planned = lib.mkOverride 900 true; - "parsers".components.library.planned = lib.mkOverride 900 true; - "random-shuffle".components.library.planned = lib.mkOverride 900 true; - "cassava".components.library.planned = lib.mkOverride 900 true; - "persistent-sqlite".components.library.planned = lib.mkOverride 900 true; - "transformers".components.library.planned = lib.mkOverride 900 true; - "universe-base".components.library.planned = lib.mkOverride 900 true; - "prettyprinter-configurable".components.library.planned = lib.mkOverride 900 true; - "wai-app-static".components.library.planned = lib.mkOverride 900 true; - "servant-websockets".components.library.planned = lib.mkOverride 900 true; - "ouroboros-network-framework".components.exes."demo-connection-manager".planned = lib.mkOverride 900 true; - "sqlite-simple".components.library.planned = lib.mkOverride 900 true; - "constraints-extras".components.library.planned = lib.mkOverride 900 true; - "monad-logger".components.library.planned = lib.mkOverride 900 true; - "OneTuple".components.library.planned = lib.mkOverride 900 true; - "ouroboros-network".components.exes."demo-chain-sync".planned = lib.mkOverride 900 true; - "generic-lens".components.library.planned = lib.mkOverride 900 true; - "th-lift-instances".components.library.planned = lib.mkOverride 900 true; - "parsec".components.library.planned = lib.mkOverride 900 true; - "deepseq".components.library.planned = lib.mkOverride 900 true; - "primitive".components.library.planned = lib.mkOverride 900 true; - "cardano-crypto-praos".components.library.planned = lib.mkOverride 900 true; - "old-locale".components.library.planned = lib.mkOverride 900 true; - "finite-typelits".components.library.planned = lib.mkOverride 900 true; - "servant-websockets".components.exes."websocket-echo".planned = lib.mkOverride 900 true; - "lifted-async".components.library.planned = lib.mkOverride 900 true; - "conduit".components.library.planned = lib.mkOverride 900 true; - "cardano-config".components.library.planned = lib.mkOverride 900 true; - "blaze-textual".components.library.planned = lib.mkOverride 900 true; - "errors".components.library.planned = lib.mkOverride 900 true; - "microstache".components.library.planned = lib.mkOverride 900 true; - "trace-dispatcher".components.exes."trace-dispatcher-examples".planned = lib.mkOverride 900 true; - "text".components.library.planned = lib.mkOverride 900 true; - "lobemo-backend-graylog".components.library.planned = lib.mkOverride 900 true; - "partial-order".components.library.planned = lib.mkOverride 900 true; - "formatting".components.library.planned = lib.mkOverride 900 true; - "bifunctors".components.library.planned = lib.mkOverride 900 true; - "dependent-map".components.library.planned = lib.mkOverride 900 true; - "unordered-containers".components.library.planned = lib.mkOverride 900 true; - "random".components.library.planned = lib.mkOverride 900 true; - "servant-swagger-ui".components.library.planned = lib.mkOverride 900 true; - "base".components.library.planned = lib.mkOverride 900 true; - "quickcheck-classes-base".components.library.planned = lib.mkOverride 900 true; - "kan-extensions".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.library.planned = lib.mkOverride 900 true; - "integer-logarithms".components.library.planned = lib.mkOverride 900 true; - "plutus-playground-server".components.sublibs."plutus-playground-usecases".planned = lib.mkOverride 900 true; - "servant-websockets".components.exes."websocket-stream".planned = lib.mkOverride 900 true; - "warp-tls".components.library.planned = lib.mkOverride 900 true; - "marlowe".components.exes."marlowe-pab".planned = lib.mkOverride 900 true; - "cryptohash-md5".components.library.planned = lib.mkOverride 900 true; - "digest".components.library.planned = lib.mkOverride 900 true; - "io-streams".components.library.planned = lib.mkOverride 900 true; - "integer-gmp".components.library.planned = lib.mkOverride 900 true; - "tasty".components.library.planned = lib.mkOverride 900 true; - "lobemo-scribe-systemd".components.library.planned = lib.mkOverride 900 true; - "transformers-compat".components.library.planned = lib.mkOverride 900 true; - "ekg-forward".components.exes."demo-forwarder".planned = lib.mkOverride 900 true; - "dns".components.library.planned = lib.mkOverride 900 true; - "optparse-generic".components.library.planned = lib.mkOverride 900 true; - "plutus-core".components.exes."plc".planned = lib.mkOverride 900 true; - "monad-control".components.library.planned = lib.mkOverride 900 true; - "base-deriving-via".components.library.planned = lib.mkOverride 900 true; - "contra-tracer".components.library.planned = lib.mkOverride 900 true; - "streaming-commons".components.library.planned = lib.mkOverride 900 true; - "resource-pool".components.library.planned = lib.mkOverride 900 true; - "colour".components.library.planned = lib.mkOverride 900 true; - "blockfrost-api".components.library.planned = lib.mkOverride 900 true; - "streaming-bytestring".components.library.planned = lib.mkOverride 900 true; - "containers".components.library.planned = lib.mkOverride 900 true; - "th-reify-many".components.library.planned = lib.mkOverride 900 true; - "time-locale-compat".components.library.planned = lib.mkOverride 900 true; - "time-compat".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."plutus-pab-test-psgenerator".planned = lib.mkOverride 900 true; - "base58-bytestring".components.library.planned = lib.mkOverride 900 true; - "basement".components.library.planned = lib.mkOverride 900 true; - "optparse-applicative".components.library.planned = lib.mkOverride 900 true; - "lift-type".components.library.planned = lib.mkOverride 900 true; - "wai-cors".components.library.planned = lib.mkOverride 900 true; - "aeson".components.library.planned = lib.mkOverride 900 true; - "x509-system".components.library.planned = lib.mkOverride 900 true; - "ekg-core".components.library.planned = lib.mkOverride 900 true; - "hspec-expectations".components.library.planned = lib.mkOverride 900 true; - "hourglass".components.library.planned = lib.mkOverride 900 true; - "base-compat".components.library.planned = lib.mkOverride 900 true; - "hostname".components.library.planned = lib.mkOverride 900 true; - "string-conv".components.library.planned = lib.mkOverride 900 true; - "base64-bytestring".components.library.planned = lib.mkOverride 900 true; - "plutus-core".components.exes."traceToStacks".planned = lib.mkOverride 900 true; - "hashable".components.library.planned = lib.mkOverride 900 true; - "semigroups".components.library.planned = lib.mkOverride 900 true; - "auto-update".components.library.planned = lib.mkOverride 900 true; - "byron-spec-chain".components.library.planned = lib.mkOverride 900 true; - "warp".components.library.planned = lib.mkOverride 900 true; - "mainland-pretty".components.library.planned = lib.mkOverride 900 true; - "lobemo-backend-aggregation".components.library.planned = lib.mkOverride 900 true; - "plutus-pab-executables".components.exes."pab-cli".planned = lib.mkOverride 900 true; - "easy-file".components.library.planned = lib.mkOverride 900 true; - "cardano-cli".components.exes."cardano-cli".planned = lib.mkOverride 900 true; - "say".components.library.planned = lib.mkOverride 900 true; - "regex-compat".components.library.planned = lib.mkOverride 900 true; - "conduit-extra".components.library.planned = lib.mkOverride 900 true; - "hedgehog-extras".components.library.planned = lib.mkOverride 900 true; - "non-integral".components.library.planned = lib.mkOverride 900 true; - "MemoTrie".components.library.planned = lib.mkOverride 900 true; - "connection".components.library.planned = lib.mkOverride 900 true; - "void".components.library.planned = lib.mkOverride 900 true; - "Only".components.library.planned = lib.mkOverride 900 true; - "exact-combinatorics".components.library.planned = lib.mkOverride 900 true; - "crypto-api".components.library.planned = lib.mkOverride 900 true; - "testing-type-modifiers".components.library.planned = lib.mkOverride 900 true; - }; - }) - ]; - } \ No newline at end of file diff --git a/nix/scripts.nix b/nix/scripts.nix new file mode 100644 index 0000000000..cc5eb51e24 --- /dev/null +++ b/nix/scripts.nix @@ -0,0 +1,33 @@ +{ pkgs, system, easyPS, prettier }: +let + writeShellScriptBinInRepoRoot = name: script: pkgs.writeShellScriptBin name '' + cd `${pkgs.git}/bin/git rev-parse --show-toplevel` + ${script} + ''; + + marlowePlaygroundGeneratePurs = writeShellScriptBinInRepoRoot "marlowe-playground-generate-purs" '' + #!/bin/bash + generated=./marlowe-playground-client/generated + + # Clean old build + rm -rf $generated + + # Re-generate the files + mkdir -p $generated + nix run .#apps.${system}.marlowe-playground-server:exe:marlowe-playground-server -- psgenerator $generated + + # Format them + cp ${builtins.path { name = "tidyrc.json"; path = ../.tidyrc.json; } } $generated/.tidyrc.json + cp ${builtins.path { name = "tidyoperators"; path = ../.tidyoperators; } } $generated/.tidyoperators + cd $generated + ${easyPS.purs-tidy}/bin/purs-tidy format-in-place * + ${prettier}/bin/prettier -w . + rm -f .tidyrc.json + rm -f .tidyoperators + cd ../.. + chmod -R +w $generated + ''; +in +{ + inherit marlowePlaygroundGeneratePurs; +}