{-# 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)
    ]