diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-09-07 13:43:15 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-09-07 13:44:22 +0000 |
| commit | ef0713cbd90d6b84da7ea67e6dfc1fe5ab5bff86 (patch) | |
| tree | c4a6b48f498be3381a24a9c2183d3a50c0291a62 /hsm-web/Main.hs | |
| parent | b401cfd4780882a01b3656da2aa244592cb1d242 (diff) | |
Adds generic app launcher helper function
Diffstat (limited to 'hsm-web/Main.hs')
| -rw-r--r-- | hsm-web/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/hsm-web/Main.hs b/hsm-web/Main.hs index 2661370..2b6c44b 100644 --- a/hsm-web/Main.hs +++ b/hsm-web/Main.hs @@ -2,7 +2,7 @@ import Effectful (runEff) import Hsm.Cam (runCam) -import Hsm.Core.Options (getOptions) +import Hsm.Core.App (runApp) import Hsm.Log (Severity(Info), runLogsOpt) import Hsm.Log.Options (makeLoggerOptionParser) import Hsm.Web (runServer, runWeb) @@ -16,4 +16,4 @@ type Loggers = '[ "cam", "libcamera", "scotty", "web"] $(makeLoggerOptionParser @Loggers "Options" "parser" 'Info) main :: IO () -main = getOptions parser "Launch HsMouse Web Server" >>= \opts -> runEff . runLogsOpt @Options @Loggers opts . runCam . runWeb $ runServer +main = runApp parser "Launch HsMouse Web Server" $ \opts -> runLogsOpt @Options @Loggers opts . runCam . runWeb $ runServer |