blob: 18452a0a5b431a348d2a40de5619925827c32fde (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{-# LANGUAGE TemplateHaskell #-}
module Spm.Server.Ctx
( ServerCtx(..)
, sctxSqlPool, sctxInstanceId, sctxJwkSet
) where
import Data.UUID (UUID)
import Crypto.JOSE.JWK (JWKSet)
import Database.Persist.Postgresql
import UnliftIO.Pool
import Control.Lens.TH
import Type.Reflection (Typeable)
import GHC.Generics (Generic)
data ServerCtx = ServerCtx
{ _sctxSqlPool :: Pool SqlBackend
, _sctxInstanceId :: UUID
, _sctxJwkSet :: JWKSet
} deriving (Generic, Typeable)
makeLenses ''ServerCtx
|
