serializedCompiled

mlabs-haskell · Feb 15, 2023 · 45d5874 · 45d5874
1 parent bf25853
commit 45d5874
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/on-chain/export/Main.hs b/on-chain/export/Main.hs
@@ -1,7 +1,8 @@
 module Main (main) where
 
-import AlwaysSucceeds (plc)
+import AlwaysSucceeds
 
 main :: IO ()
 main = do
  putStrLn plc
+ putStrLn $ show serializedCompiled
diff --git a/on-chain/src/AlwaysSucceeds.hs b/on-chain/src/AlwaysSucceeds.hs
@@ -1,7 +1,9 @@
 {-# LANGUAGE TemplateHaskell#-}
 
-module AlwaysSucceeds (alwaysSucceedsCompiled, plc) where
+module AlwaysSucceeds (alwaysSucceedsCompiled, plc, serializedCompiled) where
 
+
+import PlutusLedgerApi.Common 
 import PlutusTx
 
 alwaysSucceeds :: BuiltinData -> BuiltinData -> BuiltinData -> ()
@@ -12,3 +14,6 @@ alwaysSucceedsCompiled = $$(compile [|| alwaysSucceeds ||])
 
 plc :: String
 plc = show $ getPlc alwaysSucceedsCompiled
+
+serializedCompiled :: SerialisedScript
+serializedCompiled = serialiseCompiledCode alwaysSucceedsCompiled