basti1302

{-# LANGUAGE ScopedTypeVariables #-}

module Util.Migration (upgradeDatabase) where

import qualified Util.Config                           as Config

import           Control.Monad                         (forM_)
import           Database.Schema.Migrations
import           Database.Schema.Migrations.Backend
import           Database.Schema.Migrations.Filesystem (FilesystemStoreSettings (..),

basti1302

Problem Description

I'm working on an JSON/HTTP backend that uses cookie/access token based authentication, modelled after https://haskell-servant.readthedocs.io/en/stable/tutorial/Authentication.html#generalized-authentication

Now I would like to add role based authorization to the mix. The User datatype that I use in my AuthHandler has a role attribute.

As far as I understand it, the user object is added to the context when the

basti1302

Keybase proof

I hereby claim:

• I am basti1302 on github.
• I am basti1302 (https://keybase.io/basti1302) on keybase.
• I have a public key ASBijUw927CXoPXFpcWt9FmaJAA-gHurdMeZf9l23Bj2eAo

To claim this, I am signing this object: