Configuration.hs

module Homepage.Configuration where

import Homepage.Configuration.BaseUrl
import Homepage.Configuration.Blog
import Homepage.Configuration.Contact
import Homepage.Configuration.Files

import Data.Aeson qualified as A
import Data.Kind
import Data.Text qualified as T
import Data.Word
import Deriving.Aeson qualified as A
import GHC.Generics

type Configuration :: Type
data Configuration = Configuration
  { configRevision :: Maybe T.Text
  , configDirectoryBlog :: FilePath
  , configDirectoryFiles :: FilePath
  , configDirectoryStatic :: FilePath
  , configPort :: Word16
  , configBaseUrl :: BaseUrl
  , configContactInformation :: ContactInformation
  , configBlogEntries :: BlogEntries
  , configBlogPreviewMaxLength :: Maybe Word
  , configAtomMaxLength :: Maybe Word
  , configFileEntries :: FileEntries
  }
  deriving stock (Eq, Generic, Ord, Read, Show)
  deriving
    (A.FromJSON, A.ToJSON)
    via A.CustomJSON [A.FieldLabelModifier [A.StripPrefix "config", A.CamelToKebab], A.RejectUnknownFields] Configuration