From e18647b758f8e976a5fb38514546fbd4cc4fd7d4 Mon Sep 17 00:00:00 2001
From: Alice BRENON <alice.brenon@ens-lyon.fr>
Date: Fri, 23 Jun 2023 18:19:02 +0200
Subject: [PATCH] Rename function for more clarity: a subCorpus is hardlinked
to the full corpus, not copied
---
scripts/subcorpus/getFiles.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/scripts/subcorpus/getFiles.hs b/scripts/subcorpus/getFiles.hs
index ca99a95..de0838e 100755
--- a/scripts/subcorpus/getFiles.hs
+++ b/scripts/subcorpus/getFiles.hs
@@ -7,8 +7,8 @@ import System.FilePath ((</>), takeDirectory)
import System.Posix.Files (createLink)
import System.Script (syntax, try)
-move :: String -> FilePath -> FilePath -> PrimaryKey -> IO ()
-move extension sourceRoot targetRoot article = do
+link :: String -> FilePath -> FilePath -> PrimaryKey -> IO ()
+link extension sourceRoot targetRoot article = do
fileExists <- doesFileExist sourceFile
if fileExists
then do
@@ -25,5 +25,5 @@ main :: IO ()
main = getArgs >>= run
where
run [files, extension, source, target] =
- try (readNamedTsv files) >>= mapM_ (move extension source target)
+ try (readNamedTsv files) >>= mapM_ (link extension source target)
run _ = syntax "FILES.tsv EXTENSION SOURCE_DIRECTORY TARGET_DIRECTORY"
--
GitLab