blob: 36f06bfa784b809363573d42a32891bdf26dd4d2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{-# LANGUAGE DeriveGeneric #-}
module Much.Config where
import GHC.Generics (Generic)
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)
, query :: Maybe String
, aliases :: Maybe (M.Map T.Text T.Text)
, attachmentOverwrite :: Maybe Bool
, attachmentDirectory :: Maybe FilePath
} deriving (Generic)
instance FromJSON Config
|
