Add app settings for SSH server

_boring

@@ -123,4 +123,6 @@
 ^yesod-devel(/|$)
 
 ### vervis
+^config/ssh-private-key$
+^config/ssh-private-key\.pub$
 ^repos(/|$)

config/settings.yml

@@ -8,7 +8,7 @@ host:           "_env:HOST:*4"
 
 # The port `yesod devel` uses is distinct from this value. Set the
 # `yesod devel` port from the command line.
-port:           "_env:PORT:3000"
+http-port:      "_env:PORT:3000"
 
 ip-from-header: "_env:IP_FROM_HEADER:false"
 
@@ -39,4 +39,6 @@ database:
   poolsize: "_env:PGPOOLSIZE:10"
 
 repo-dir:     repos
+ssh-port:     5022
+ssh-key-file: config/ssh-private-key
 copyright:    Insert your statement against copyright here

src/Vervis/Settings.hs

@@ -69,9 +69,12 @@ data AppSettings = AppSettings
     , appSkipCombining          :: Bool
     -- ^ Perform no stylesheet/script combining
 
-    -- Example app-specific configuration values.
     , appRepoDir                :: FilePath
     -- ^ Path to the directory under which git repos are placed
+    , appSshPort                :: Int
+    -- ^ Port for the SSH server component to listen on
+    , appSshKeyFile             :: FilePath
+    -- ^ Path to the server's SSH private key file
     , appCopyright              :: Text
     -- ^ Copyright text to appear in the footer of the page
     }
@@ -88,7 +91,7 @@ instance FromJSON AppSettings where
         appDatabaseConf           <- o .: "database"
         appRoot                   <- o .:? "approot"
         appHost                   <- fromString <$> o .: "host"
-        appPort                   <- o .: "port"
+        appPort                   <- o .: "http-port"
         appIpFromHeader           <- o .: "ip-from-header"
 
         appDetailedRequestLogging <- o .:? "detailed-logging" .!= defaultDev
@@ -98,6 +101,8 @@ instance FromJSON AppSettings where
         appSkipCombining          <- o .:? "skip-combining"   .!= defaultDev
 
         appRepoDir                <- o .: "repo-dir"
+        appSshPort                <- o .: "ssh-port"
+        appSshKeyFile             <- o .: "ssh-key-file"
         appCopyright              <- o .: "copyright"
 
         return AppSettings {..}