From 56bd071335151fccac2ab0846c6063292e891479 Mon Sep 17 00:00:00 2001 From: Paul Oliver Date: Wed, 27 Aug 2025 17:47:28 +0000 Subject: Adds `hsm-web` --- hsm-web/Main.hs | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 hsm-web/Main.hs (limited to 'hsm-web/Main.hs') 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 -- cgit v1.2.1