diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-07-03 21:12:48 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-07-05 12:01:09 +0200 |
| commit | a4521e99e902e226c8dc281822fca363191def86 (patch) | |
| tree | ef3d9f81b018df13013f1f3e0f18956d12d8f743 /src/Command/Extract.hs | |
| parent | 518998bebf22b6bb92dd246026fce62ad57a0b0b (diff) | |
Directories as artifacts
Changelog: Support whole directories as artifacts
Diffstat (limited to 'src/Command/Extract.hs')
| -rw-r--r-- | src/Command/Extract.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Command/Extract.hs b/src/Command/Extract.hs index cc92587..b21c63c 100644 --- a/src/Command/Extract.hs +++ b/src/Command/Extract.hs @@ -14,6 +14,7 @@ import System.FilePath import Command import Eval +import Job import Job.Types @@ -103,4 +104,4 @@ cmdExtract (ExtractCommand ExtractOptions {..} ExtractArguments {..}) = do liftIO (doesPathExist tpath) >>= \case True -> tfail $ "destination ‘" <> T.pack tpath <> "’ already exists" False -> return () - liftIO $ copyFile (adir </> afile) tpath + liftIO $ copyRecursiveForce (adir </> afile) tpath |