gistfile1.hs

module AppState where

import Happstack.Server.SimpleHTTP (ServerPartT)
import Control.Concurrent.MVar
import Control.Monad.Reader
import qualified Data.Map as M
import qualified Data.Set as S
import Db (Context)

type MyServerPartT = ServerPartT (ReaderT AppState IO)

type Permission = String

type Permissions = S.Set Permission

data SessionData =  SessionData {   login :: String
                                   ,permissions :: Permissions 
                                }

type Sessions = M.Map String SessionData

data AppState = AppState {
     dbCtx :: Context
    ,sessions :: MVar Sessions

}