diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-04-05 19:43:16 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-04-05 19:43:16 +0200 |
| commit | 6350311e81bb116bb7975bcc76e1dc9577194531 (patch) | |
| tree | a266a0fdbd40be98725d85a8915a6aba7f8ba9bb /src/Config.hs | |
| parent | 1f01dbd2b1d3fb89efdaab56bc52d82a8ed0483e (diff) | |
Convert JobRepo to a closed type family
Diffstat (limited to 'src/Config.hs')
| -rw-r--r-- | src/Config.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |