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

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

import Data.Time
import Hasql.Pool qualified
import Optics
import WikiMusic.Model.Config

data Env = Env
  { pool :: Hasql.Pool.Pool,
    cfg :: AppConfig,
    processStartedAt :: UTCTime
  }

makeFieldLabelsNoPrefix ''Env
