mateamt/src/Types/Reader.hs

19 lines
336 B
Haskell
Raw Normal View History

2019-05-06 21:41:05 +00:00
module Types.Reader where
import Servant (Handler)
import Control.Monad.Reader (ReaderT)
import Database.PostgreSQL.Simple (Connection)
-- internal imports
import Types.Auth (TicketStore)
data ReadState = ReadState
{ rsConnection :: Connection
, rsTicketStore :: TicketStore
}
type MateHandler = ReaderT ReadState Handler