wikimusic-ssr-0.6.0.0: src/WikiMusic/SSR/Model/Env.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE UndecidableInstances #-}
{-# LANGUAGE NoFieldSelectors #-}

module WikiMusic.SSR.Model.Env
  ( Env (..),
    PalettesCss (..),
  )
where

import Data.Text
import Data.Time
import Optics
import Servant.Client
import WikiMusic.SSR.Model.Config

data PalettesCss = PalettesCss
  { green :: Text,
    mauve :: Text
  }

makeFieldLabelsNoPrefix ''PalettesCss

data Env = Env
  { cfg :: AppConfig,
    processStartedAt :: ZonedTime,
    reportedVersion :: Text,
    mainCss :: Text,
    darkCss :: Text,
    lightCss :: Text,
    clientEnv :: ClientEnv,
    palettes :: PalettesCss
  }

makeFieldLabelsNoPrefix ''Env