stackbuilders/hapistrano
1
1
Fork 0
mirror of https://github.com/stackbuilders/hapistrano.git synced 2024-11-27 12:13:41 +03:00
Code Issues Projects Releases Wiki Activity

Ensure that target directories for ‘scp’ actually exist

Browse Source 
This is necessary because ‘scp’ has fewer options than normal ‘cp’ and so it
lacks flags that would prevent failing because of missing target location.
We add there these commands to ensure that copying of files always succeeds.
This commit is contained in:
mrkkrp 2017-02-21 19:45:56 +03:00
parent 3ce20a127f
commit 01a30ee43d
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
app/Main.hs
View File

@ -13,10 +13,11 @@ import Path.IO
import Paths_hapistrano (version)
import System.Exit
import System.Hapistrano.Types
import qualified Config as C
import qualified Data.Yaml as Yaml
import qualified System.Hapistrano as Hap
import qualified System.Hapistrano.Core as Hap
import qualified Config as C
import qualified Data.Yaml as Yaml
import qualified System.Hapistrano as Hap
import qualified System.Hapistrano.Commands as Hap
import qualified System.Hapistrano.Core as Hap
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative
@ -122,11 +123,15 @@ main = do
forM_ configCopyFiles $ \(C.CopyThing src dest) -> do
srcPath <- resolveFile' src
destPath <- parseRelFile dest
Hap.scpFile srcPath (rpath </> destPath)
let dpath = rpath </> destPath
(Hap.exec . Hap.MkDir . parent) dpath
Hap.scpFile srcPath dpath
forM_ configCopyDirs $ \(C.CopyThing src dest) -> do
srcPath <- resolveDir' src
destPath <- parseRelDir dest
Hap.scpDir srcPath (rpath </> destPath)
let dpath = rpath </> destPath
(Hap.exec . Hap.MkDir . parent) dpath
Hap.scpDir srcPath dpath
forM_ configBuildScript (Hap.playScript configDeployPath release)
Hap.registerReleaseAsComplete configDeployPath release
Hap.activateRelease configDeployPath release