From f95d9bbde51ee26468177b2d34c669d9689fbea4 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 30 May 2025 02:55:35 -0400 Subject: web: Big refactor part 2 --- fig-web/src/Fig/Web/Public.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'fig-web/src/Fig/Web/Public.hs') diff --git a/fig-web/src/Fig/Web/Public.hs b/fig-web/src/Fig/Web/Public.hs index cd37d4e..1ff9962 100644 --- a/fig-web/src/Fig/Web/Public.hs +++ b/fig-web/src/Fig/Web/Public.hs @@ -25,14 +25,14 @@ import qualified Fig.Web.Module.Bells as Bells import qualified Fig.Web.Module.User as User import qualified Fig.Web.Module.Shader as Shader -allBusEvents :: ModuleArgs -> BusEventHandlers +allBusEvents :: PublicModuleArgs -> BusEventHandlers allBusEvents args = busEvents . mconcat $ fmap ($ args) [ Gizmo.publicBusEvents , Circle.publicBusEvents ] -server :: Config -> (Text, Text) -> IO () -server cfg busAddr = do +server :: PublicOptions -> Config -> (Text, Text) -> IO () +server options cfg busAddr = do log $ "Web server running on port " <> tshow cfg.port log "Connecting to database..." db <- DB.connect cfg @@ -51,7 +51,7 @@ server cfg busAddr = do ) (pure ()) -app :: ModuleArgs -> IO Wai.Application +app :: PublicModuleArgs -> IO Wai.Application app args = do log "Connected! Server active." Sc.scottyApp do -- cgit v1.2.3