From 89aab732dc3d484b99c0761728285bca6f6b1ba0 Mon Sep 17 00:00:00 2001 From: Paul Oliver Date: Sun, 7 Sep 2025 19:23:37 +0000 Subject: Adds another formatting/cleaning round --- hsm-web/Main.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'hsm-web/Main.hs') 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 -- cgit v1.2.1