From 6350311e81bb116bb7975bcc76e1dc9577194531 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 5 Apr 2025 19:43:16 +0200
Subject: Convert JobRepo to a closed type family

---
 src/Job.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Job.hs')

diff --git a/src/Job.hs b/src/Job.hs
index a9effba..5a4cf7e 100644
--- a/src/Job.hs
+++ b/src/Job.hs
@@ -297,7 +297,7 @@ prepareJob dir mbCommit job inner = do
                     fail $ "no containing repository, can't do checkout"
                 return $ stringJobName (jobName job)
 
-        jdirOther <- forM (jobOtherCheckout job) $ \( EvaluatedJobRepo repo, revision, JobCheckout mbsub dest ) -> do
+        jdirOther <- forM (jobOtherCheckout job) $ \( repo, revision, JobCheckout mbsub dest ) -> do
             commit <- readCommit repo $ fromMaybe "HEAD" revision
             tree <- getCommitTree commit
             subtree <- maybe return (getSubtree (Just commit)) mbsub $ tree
-- 
cgit v1.2.3