Adds another formatting/cleaning roundHEADmaster

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