forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Pass theater to runSsh

Browse source
This commit is contained in:
Pere Lev 2024-07-04 22:26:52 +03:00
parent 1b322f9606
commit cd1bc1aee3
No known key found for this signature in database
GPG key ID: 5252C5C863E5E57D
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Vervis/Application.hs
View file

@ -458,6 +458,7 @@ sshServer foundation =
(appHashidsContext foundation) (appHashidsContext foundation)
(appConnPool foundation) (appConnPool foundation)
(loggingFunction foundation) (loggingFunction foundation)
(appTheater foundation)
mailer :: App -> IO () mailer :: App -> IO ()
mailer foundation = mailer foundation =

7
src/Vervis/Ssh.hs
View file

@ -1,6 +1,6 @@
{- This file is part of Vervis. {- This file is part of Vervis.
- -
- Written in 2016, 2019, 2022 by fr33domlover <fr33domlover@riseup.net>. - Written in 2016, 2019, 2022, 2024 by fr33domlover <fr33domlover@riseup.net>.
- -
- ♡ Copying is an act of love. Please copy, reuse and share. - ♡ Copying is an act of love. Please copy, reuse and share.
- -
@ -54,6 +54,7 @@ import qualified Formatting as F
import Yesod.Hashids import Yesod.Hashids
import Vervis.Access import Vervis.Access
import Vervis.Actor
import Vervis.Model import Vervis.Model
import Vervis.Model.Ident import Vervis.Model.Ident
import Vervis.Model.Role import Vervis.Model.Role
@ -333,7 +334,7 @@ mkConfig settings ctx pool logFunc = do
, cReadyAction = ready logFunc , cReadyAction = ready logFunc
} }
runSsh :: AppSettings -> HashidsContext -> ConnectionPool -> LogFunc -> IO () runSsh :: AppSettings -> HashidsContext -> ConnectionPool -> LogFunc -> Theater -> IO ()
runSsh settings ctx pool logFunc = do runSsh settings ctx pool logFunc _theater = do
config <- mkConfig settings ctx pool logFunc config <- mkConfig settings ctx pool logFunc
startConfig config startConfig config