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 de0838edf66aa85f60ab5cfce8ceaca67d422461..d97d1d539423e59f8538f0d94789eed0ec2cf9dc 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