Rename function for more clarity: a subCorpus is hardlinked to the full corpus, not copied

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"