From e131557ebe024dd18d8c7cab64c56b1aee64fa38 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Tue, 14 Oct 2025 18:31:58 +0200 Subject: [PATCH] Keep the deployment target in a text file --- .gitignore | 1 + src/Main.hs | 7 +++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/.gitignore b/.gitignore index bfd0512..864e837 100644 --- a/.gitignore +++ b/.gitignore @@ -2,3 +2,4 @@ /var/ /dist-newstyle/ /dist/ +/deployment.txt diff --git a/src/Main.hs b/src/Main.hs index aefb0b1..fac40ac 100644 --- 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 ] --