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

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

import Data.Time
import Database.SQLite.Simple
import Network.Wai.Logger (ApacheLogger)
import Optics
import Relude
import WikiMusic.Model.Config

data Env = Env
  { Env -> AppConfig
cfg :: AppConfig,
    Env -> UTCTime
processStartedAt :: UTCTime,
    Env -> ApacheLogger
logger :: ApacheLogger,
    Env -> Connection
conn :: Connection,
    Env -> Text
mailCss :: Text
  }

makeFieldLabelsNoPrefix ''Env