example, generate PureScript before server starts

eskimor · Jan 28, 2024 · 6f5008a · 6f5008a
1 parent de32d3f
commit 6f5008a
Showing 1 changed file with 16 additions and 1 deletion.
diff --git a/example/app/Main.hs b/example/app/Main.hs
@@ -5,6 +5,21 @@ import           Data.Text (pack)
 import           Language.PureScript.Bridge
 import qualified MyLib (main)
 import           Types
+import           ArgonautTypes
+import           JsonHelpersTypes
 
 main :: IO ()
-main = MyLib.main
+main = do
+  -- generate PureScript before server starts
+  writePSTypesWithNamespace
+    (Just . PackageName $ pack "Argonaut")
+    "src"
+    (buildBridge myBridge)
+    myArgonautTypes
+  writePSTypesWithNamespace
+    (Just . PackageName $ pack "JsonHelpers")
+    "src"
+    (buildBridge myBridge)
+    myJsonHelpersTypes
+
+  MyLib.main