blob: 5f4d6db7c9b3b16bf5dfabca232814fdd0bb4cb9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{-# LANGUAGE DeriveGeneric #-}
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]))
, query :: Maybe String
, tagSymbols :: Maybe (M.Map T.Text T.Text)
} deriving (Generic, Show)
instance FromJSON Config
|
