diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-09-12 01:43:15 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-09-17 00:08:37 +0000 |
| commit | e71e80377f234d8dd426064c0b00238007ca8422 (patch) | |
| tree | 3f4753da3ac065bdb763cf25026b3340f953a83b /hsm-web/Main.hs | |
| parent | a8ac8412e35347769da7c8667d485fbce325af3b (diff) | |
Adds `Logs` constraint combinator
Diffstat (limited to 'hsm-web/Main.hs')
| -rw-r--r-- | hsm-web/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |