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/Config.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Config.hs')

diff --git a/src/Config.hs b/src/Config.hs
index bc66ea9..98b5aa5 100644
--- a/src/Config.hs
+++ b/src/Config.hs
@@ -101,7 +101,7 @@ parseSingleCheckout = withMap "checkout definition" $ \m -> do
         Nothing -> return [ Left checkout ]
         Just name -> do
             revision <- m .:? "revision"
-            return [ Right ( DeclaredJobRepo (RepoName name), revision, checkout ) ]
+            return [ Right ( RepoName name, revision, checkout ) ]
 
 parseMultipleCheckouts :: Node Pos -> Parser [ Either JobCheckout ( JobRepo Declared, Maybe Text, JobCheckout ) ]
 parseMultipleCheckouts = withSeq "checkout definitions" $ fmap concat . mapM parseSingleCheckout
-- 
cgit v1.2.3