Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

export scripts with trace messages

Browse source
This commit is contained in:
Hongrui Fang 2023-01-19 00:03:32 +08:00
parent 684dc1a59e
commit 3409bb0bdc
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
agora-scripts/Main.hs
View file

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