blob: 1aa8f44e1bf83716b4cfe1e06bf8165cbadd8dc1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module Much.Config where
import Data.Aeson (FromJSON)
import Data.Map qualified as M
import Data.Text qualified as T
import GHC.Generics (Generic)
import Much.State (ColorConfig)
data Config = Config
{ colorConfig :: Maybe (ColorConfig Maybe)
, query :: Maybe String
, aliases :: Maybe (M.Map T.Text T.Text)
, attachmentOverwrite :: Maybe Bool
, attachmentDirectory :: Maybe FilePath
} deriving (Generic)
instance FromJSON Config
|
