diff options
Diffstat (limited to 'hsm-web/Main.hs')
| -rw-r--r-- | hsm-web/Main.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/hsm-web/Main.hs b/hsm-web/Main.hs index 2b6c44b..6cbfa31 100644 --- a/hsm-web/Main.hs +++ b/hsm-web/Main.hs @@ -1,19 +1,19 @@ {-# LANGUAGE TemplateHaskell #-} +import Data.Function ((&)) import Effectful (runEff) import Hsm.Cam (runCam) -import Hsm.Core.App (runApp) -import Hsm.Log (Severity(Info), runLogsOpt) +import Hsm.Core.App (bootstrapAppNoEcho) +import Hsm.Log (Severity (Info), runLogsOpt) import Hsm.Log.Options (makeLoggerOptionParser) import Hsm.Web (runServer, runWeb) - -- Import full module for cleaner `-ddump-splices` output -- Avoids package/module qualifiers in generated code import Options.Applicative -type Loggers = '[ "cam", "libcamera", "scotty", "web"] +type Loggers = '["cam", "libcamera", "scotty", "web"] $(makeLoggerOptionParser @Loggers "Options" "parser" 'Info) main :: IO () -main = runApp parser "Launch HsMouse Web Server" $ \opts -> runLogsOpt @Options @Loggers opts . runCam . runWeb $ runServer +main = bootstrapAppNoEcho parser "Launch HsMouse Web Server" $ \opts -> runServer & runWeb & runCam & runLogsOpt @Options @Loggers opts & runEff |