diff --git a/scripts/subcorpus/getFiles.hs b/scripts/subcorpus/getFiles.hs index ca99a95e750055bc7aedc50f60b37827e93f33f9..de0838edf66aa85f60ab5cfce8ceaca67d422461 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"