From a4521e99e902e226c8dc281822fca363191def86 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 3 Jul 2025 21:12:48 +0200
Subject: Directories as artifacts

Changelog: Support whole directories as artifacts
---
 src/Command/Extract.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Command/Extract.hs')

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
-- 
cgit v1.2.3