50 lines
1.4 KiB
Haskell
50 lines
1.4 KiB
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
{- | Module : Main
|
|
Maintainer : emi@haskell.fyi
|
|
Description: Export scripts given configuration.
|
|
|
|
Export scripts given configuration.
|
|
-}
|
|
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 (DoTracing, NoTracing))
|
|
import Ply (TypedScriptEnvelope)
|
|
import ScriptExport.Export (exportMain)
|
|
import ScriptExport.Types (
|
|
Builders,
|
|
insertBuilder,
|
|
insertScriptExportWithLinker,
|
|
insertStaticBuilder,
|
|
)
|
|
|
|
main :: IO ()
|
|
main = exportMain builders
|
|
|
|
rawScripts :: Config -> [TypedScriptEnvelope]
|
|
rawScripts conf =
|
|
either (error . show) id $ Bootstrap.agoraScripts' conf
|
|
|
|
builders :: Builders
|
|
builders =
|
|
mconcat
|
|
[ insertStaticBuilder "raw" (rawScripts (Config NoTracing))
|
|
, insertStaticBuilder "rawDebug" (rawScripts (Config DoTracing))
|
|
, insertScriptExportWithLinker "agora" (Bootstrap.agoraScripts def) linker
|
|
, insertScriptExportWithLinker
|
|
"agoraDebug"
|
|
( Bootstrap.agoraScripts
|
|
(Config DoTracing)
|
|
)
|
|
linker
|
|
, -- Note: To be compatible with current off-chain setup, we are not using
|
|
-- static builder here.
|
|
insertBuilder
|
|
"alwaysSucceedsPolicy"
|
|
(const @_ @Aeson.Value alwaysSucceedsPolicyRoledScript)
|
|
]
|