A little renaming of the subcorpus extractor to enforce repository conventions

scripts/subcorpus/getFiles.hs → scripts/subcorpus/get-files.hs

 #!/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