diff options
Diffstat (limited to 'fig-web/src/Fig/Web/Secure.hs')
| -rw-r--r-- | fig-web/src/Fig/Web/Secure.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fig-web/src/Fig/Web/Secure.hs b/fig-web/src/Fig/Web/Secure.hs index b47c019..a334570 100644 --- a/fig-web/src/Fig/Web/Secure.hs +++ b/fig-web/src/Fig/Web/Secure.hs @@ -17,13 +17,13 @@ import qualified Fig.Web.DB as DB import qualified Fig.Web.Module.Exchange as Exchange import qualified Fig.Web.Module.Redeem as Redeem -allBusEvents :: ModuleArgs -> BusEventHandlers +allBusEvents :: SecureModuleArgs -> BusEventHandlers allBusEvents args = busEvents . mconcat $ fmap ($ args) [ ] -server :: Config -> (Text, Text) -> IO () -server cfg busAddr = do +server :: SecureOptions -> 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 @@ -42,7 +42,7 @@ server cfg busAddr = do ) (pure ()) -app :: ModuleArgs -> IO Wai.Application +app :: SecureModuleArgs -> IO Wai.Application app args = do log "Connected! Secure server active." Sc.scottyApp do |