Keep the deployment target in a text file

2025-10-14 18:31:58 +02:00
parent 8a5e6cea51
commit e131557ebe
2 changed files with 6 additions and 2 deletions
--- a/.gitignore
+++ b/.gitignore
@@ -2,3 +2,4 @@
 /var/
 /dist-newstyle/
 /dist/
+/deployment.txt
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -87,12 +87,15 @@ configuration = Configuration
    , previewSettings = Static.defaultFileServerSettings
    }
  where
-    deploySite' Configuration{..} = rawSystem deployCommand
+    deploySite'  deploymentConfiguration
+        = readFile "deployment.txt"
+        >>= executeDeployment deploymentConfiguration
+    executeDeployment Configuration{..} deploymentTarget = rawSystem deployCommand
        [ "-ave"
        , "ssh"
        , "--delete"
        , addTrailingPathSeparator destinationDirectory
-        , "caraus.de:/srv/httpd/belka/flevum/"
+        , deploymentTarget
        ]

 --