export scripts with trace messages

This commit is contained in:
Hongrui Fang 2023-01-19 00:03:32 +08:00
parent ef9131adbd
commit 1ee539904d
No known key found for this signature in database
GPG key ID: F2D0D08AF77AC599

View file

@ -11,6 +11,7 @@ module Main (main) where
import Agora.Bootstrap qualified as Bootstrap
import Agora.Linker (linker)
import Data.Default (def)
import Plutarch (Config (Config), TracingMode (DoTracingAndBinds))
import ScriptExport.Export (exportMain)
import ScriptExport.Types (
Builders,
@ -24,4 +25,10 @@ builders :: Builders
builders =
mconcat
[ insertScriptExportWithLinker "agora" (Bootstrap.agoraScripts def) linker
, insertScriptExportWithLinker
"agoraDebug"
( Bootstrap.agoraScripts
(Config DoTracingAndBinds)
)
linker
]