hsm-web/Main.hs


1
2
3
4
5
6
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