From cd1bc1aee3d8af403e5b69b57809f78fb0db286b Mon Sep 17 00:00:00 2001 From: Pere Lev Date: Thu, 4 Jul 2024 22:26:52 +0300 Subject: [PATCH] Pass theater to runSsh --- src/Vervis/Application.hs | 1 + src/Vervis/Ssh.hs | 7 ++++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/src/Vervis/Application.hs b/src/Vervis/Application.hs index de6d7f8..1ae4bbc 100644 --- a/src/Vervis/Application.hs +++ b/src/Vervis/Application.hs @@ -458,6 +458,7 @@ sshServer foundation = (appHashidsContext foundation) (appConnPool foundation) (loggingFunction foundation) + (appTheater foundation) mailer :: App -> IO () mailer foundation = diff --git a/src/Vervis/Ssh.hs b/src/Vervis/Ssh.hs index 8f82356..78742f6 100644 --- a/src/Vervis/Ssh.hs +++ b/src/Vervis/Ssh.hs @@ -1,6 +1,6 @@ {- This file is part of Vervis. - - - Written in 2016, 2019, 2022 by fr33domlover . + - Written in 2016, 2019, 2022, 2024 by fr33domlover . - - ♡ Copying is an act of love. Please copy, reuse and share. - @@ -54,6 +54,7 @@ import qualified Formatting as F import Yesod.Hashids import Vervis.Access +import Vervis.Actor import Vervis.Model import Vervis.Model.Ident import Vervis.Model.Role @@ -333,7 +334,7 @@ mkConfig settings ctx pool logFunc = do , cReadyAction = ready logFunc } -runSsh :: AppSettings -> HashidsContext -> ConnectionPool -> LogFunc -> IO () -runSsh settings ctx pool logFunc = do +runSsh :: AppSettings -> HashidsContext -> ConnectionPool -> LogFunc -> Theater -> IO () +runSsh settings ctx pool logFunc _theater = do config <- mkConfig settings ctx pool logFunc startConfig config