Pass theater to runSsh

src/Vervis/Application.hs

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

src/Vervis/Ssh.hs

@@ -1,6 +1,6 @@
 {- 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.
  -
@@ -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