From bb32c75bef43c79cb0e47668397a5a224115d2aa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= Date: Tue, 6 Oct 2020 22:32:22 +0200 Subject: State: parametrize ColorConfig over functor --- src/Much/Config.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Much/Config.hs') diff --git a/src/Much/Config.hs b/src/Much/Config.hs index 53c2891..93037ed 100644 --- a/src/Much/Config.hs +++ b/src/Much/Config.hs @@ -2,14 +2,13 @@ module Much.Config where import GHC.Generics (Generic) -import GHC.Word (Word8) import Data.Aeson (FromJSON) import Much.State (ColorConfig) import qualified Data.Text as T import qualified Data.Map as M data Config = Config - { colorConfig :: Maybe (ColorConfig (Maybe [Word8])) + { colorConfig :: Maybe (ColorConfig Maybe) , query :: Maybe String , tagSymbols :: Maybe (M.Map T.Text T.Text) , attachmentOverwrite :: Maybe Bool -- cgit v1.2.3