export alwaysSucceedsPolicy as a standalone builder

This commit is contained in:
Hongrui Fang 2023-01-23 20:16:46 +08:00
parent 19a123c06b
commit 2fa5da132f
No known key found for this signature in database
GPG key ID: F2D0D08AF77AC599
3 changed files with 27 additions and 13 deletions

View file

@ -8,13 +8,16 @@
-}
module Main (main) where
import Agora.Bootstrap (alwaysSucceedsPolicyRoledScript)
import Agora.Bootstrap qualified as Bootstrap
import Agora.Linker (linker)
import Data.Aeson qualified as Aeson
import Data.Default (def)
import Plutarch (Config (Config), TracingMode (DoTracingAndBinds))
import ScriptExport.Export (exportMain)
import ScriptExport.Types (
Builders,
insertBuilder,
insertScriptExportWithLinker,
)
@ -31,4 +34,9 @@ builders =
(Config DoTracingAndBinds)
)
linker
, -- Note: To be compatible with current off-chain setup, we are not using
-- static builder here.
insertBuilder
"alwaysSucceedsPolicy"
(const @_ @Aeson.Value alwaysSucceedsPolicyRoledScript)
]