From e36a24df176cdbbd634738115f847e4fa46a0aea Mon Sep 17 00:00:00 2001 From: Paul Oliver Date: Fri, 12 Sep 2025 01:43:15 +0000 Subject: Adds `Logs` constraint combinator --- hsm-web/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'hsm-web/Main.hs') diff --git a/hsm-web/Main.hs b/hsm-web/Main.hs index 6cbfa31..82e07c9 100644 --- a/hsm-web/Main.hs +++ b/hsm-web/Main.hs @@ -11,9 +11,9 @@ import Hsm.Web (runServer, runWeb) -- Avoids package/module qualifiers in generated code import Options.Applicative -type Loggers = '["cam", "libcamera", "scotty", "web"] +type Logs = '["cam", "libcamera", "scotty", "web"] -$(makeLoggerOptionParser @Loggers "Options" "parser" 'Info) +$(makeLoggerOptionParser @Logs "Options" "parser" 'Info) main :: IO () -main = bootstrapAppNoEcho parser "Launch HsMouse Web Server" $ \opts -> runServer & runWeb & runCam & runLogsOpt @Options @Loggers opts & runEff +main = bootstrapAppNoEcho parser "Launch HsMouse Web Server" $ \opts -> runServer & runWeb & runCam & runLogsOpt @Options @Logs opts & runEff -- cgit v1.2.1