aboutsummaryrefslogtreecommitdiff
path: root/hsm-web/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'hsm-web/Main.hs')
-rw-r--r--hsm-web/Main.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/hsm-web/Main.hs b/hsm-web/Main.hs
new file mode 100644
index 0000000..9eef1e7
--- /dev/null
+++ b/hsm-web/Main.hs
@@ -0,0 +1,7 @@
+import Effectful (runEff)
+import Hsm.Cam (runCam)
+import Hsm.Log (Severity(Info), runLogs)
+import Hsm.Web (runServer, runWeb)
+
+main :: IO ()
+main = runEff . runLogs @'[ "cam", "libcamera", "scotty", "web"] Info . runCam . runWeb $ runServer