From aa120dfc7077941aac64a384d81b9f48fc9590b5 Mon Sep 17 00:00:00 2001 From: adreasnow Date: Wed, 6 May 2026 14:32:49 +1000 Subject: [PATCH] Fix continue-in-progress tests --- src/Language/Github/Actions/Concurrency.hs | 2 +- test/Language/Github/Actions/WorkflowTest.hs | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/Language/Github/Actions/Concurrency.hs b/src/Language/Github/Actions/Concurrency.hs index bdcdd51..073e79d 100644 --- a/src/Language/Github/Actions/Concurrency.hs +++ b/src/Language/Github/Actions/Concurrency.hs @@ -57,7 +57,7 @@ data Concurrency = Concurrency { -- | Concurrency group identifier group :: Maybe Text, -- | Whether to cancel in-progress runs - cancelInProgress :: Maybe Text + cancelInProgress :: Maybe Bool } deriving stock (Eq, Generic, Ord, Show) diff --git a/test/Language/Github/Actions/WorkflowTest.hs b/test/Language/Github/Actions/WorkflowTest.hs index e177c97..aca6ce6 100644 --- a/test/Language/Github/Actions/WorkflowTest.hs +++ b/test/Language/Github/Actions/WorkflowTest.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE TypeApplications #-} {-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} @@ -29,7 +28,7 @@ test_goldenWorkflowFromYaml = do testGroup "Yaml Roundtrip" [ runGoldenVsToYamlFileTest testYamlFilePath - | testYamlFilePath <- testYamlFiles + | testYamlFilePath <- testYamlFiles ] where runGoldenVsToYamlFileTest testYamlFilePath =