Convert JobRepo to a closed type family

1 files changed, 1 insertions, 1 deletions

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