From 0e5951eedebd2f0d3991454f7bcaf5f7f749cb06 Mon Sep 17 00:00:00 2001 From: stuebinm Date: Sun, 14 Nov 2021 03:17:10 +0100 Subject: config option: don't copy asset files --- lib/LintConfig.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'lib/LintConfig.hs') diff --git a/lib/LintConfig.hs b/lib/LintConfig.hs index 1493fe2..1b1b1bc 100644 --- a/lib/LintConfig.hs +++ b/lib/LintConfig.hs @@ -30,9 +30,10 @@ type family HKD f a where HKD f a = f a data LintConfig f = LintConfig - { configScriptInject :: HKD f (Maybe Text) - , configAssemblyTag :: HKD f Text - , configMaxWarnLevel :: HKD f Level + { configScriptInject :: HKD f (Maybe Text) + , configAssemblyTag :: HKD f Text + , configMaxWarnLevel :: HKD f Level + , configDontCopyAssets :: HKD f Bool } deriving (Generic) type LintConfig' = LintConfig Identity @@ -43,6 +44,7 @@ deriving instance , Show (HKD a Text) , Show (HKD a Level) , Show (HKD a [Text]) + , Show (HKD a Bool) ) => Show (LintConfig a) @@ -58,6 +60,7 @@ instance , FromJSON (HKD a [Text]) , FromJSON (HKD a Text) , FromJSON (HKD a Level) + , FromJSON (HKD a Bool) ) => FromJSON (LintConfig a) where -- cgit v1.2.3