From f09a3cf4e46d8497428f78783ec3e463d2da5397 Mon Sep 17 00:00:00 2001
From: Alice BRENON <alice.brenon@ens-lyon.fr>
Date: Wed, 13 Sep 2023 22:14:44 +0200
Subject: [PATCH] A little renaming of the subcorpus extractor to enforce
repository conventions
---
scripts/subcorpus/{getFiles.hs => get-files.hs} | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
rename scripts/subcorpus/{getFiles.hs => get-files.hs} (87%)
diff --git a/scripts/subcorpus/getFiles.hs b/scripts/subcorpus/get-files.hs
similarity index 87%
rename from scripts/subcorpus/getFiles.hs
rename to scripts/subcorpus/get-files.hs
index de0838e..d97d1d5 100755
--- a/scripts/subcorpus/getFiles.hs
+++ b/scripts/subcorpus/get-files.hs
@@ -1,13 +1,13 @@
#!/usr/bin/env -S runhaskell --ghc-arg="-Wall" --ghc-arg="-i lib"
-import GEODE.Metadata (PrimaryKey(..), readNamedTsv, relativePath)
+import GEODE.Metadata (ArticleRecord(..), readNamedTsv, relativePath)
import System.Directory (createDirectoryIfMissing, doesFileExist)
import System.Environment (getArgs)
import System.FilePath ((</>), takeDirectory)
import System.Posix.Files (createLink)
import System.Script (syntax, try)
-link :: String -> FilePath -> FilePath -> PrimaryKey -> IO ()
+link :: String -> FilePath -> FilePath -> ArticleRecord -> IO ()
link extension sourceRoot targetRoot article = do
fileExists <- doesFileExist sourceFile
if fileExists
--
GitLab