Safe Haskell	None
Language	Haskell98

Happstack.Auth.Core.Profile

Synopsis

Documentation

newtype UserId Source

Constructors

UserId
Fields unUserId :: Integer

Instances

Eq UserId
Data UserId
Ord UserId
Read UserId
Show UserId
SafeCopy UserId
PathInfo UserId
Typeable * UserId

succUserId :: UserId -> UserId Source

data Profile Source

Constructors

Profile
Fields userId :: UserId auths :: Set AuthId nickName :: Text

Instances

Eq Profile
Data Profile
Ord Profile
Read Profile
Show Profile
Indexable Profile
SafeCopy Profile
Typeable * Profile

type Profiles = IxSet Profile Source

data ProfileState Source

Constructors

ProfileState
Fields profiles :: Profiles authUserMap :: Map AuthId UserId map of what `UserId` an `AuthId` is currently defaulting to nextUserId :: UserId

Instances

Eq ProfileState
Data ProfileState
Ord ProfileState
Read ProfileState
Show ProfileState
IsAcidic ProfileState
SafeCopy ProfileState
Typeable * ProfileState

initialProfileState :: ProfileState Source

a reasonable initial ProfileState

getProfileState :: Query ProfileState ProfileState Source

Retrieve the entire ProfileState Warning, this is an admin level function?

genUserId :: Update ProfileState UserId Source

authIdUserId :: AuthId -> Query ProfileState (Maybe UserId) Source

authIdProfiles :: AuthId -> Query ProfileState (Set Profile) Source

setAuthIdUserId :: AuthId -> UserId -> Update ProfileState () Source

createNewProfile :: Set AuthId -> Update ProfileState UserId Source

newtype AuthIdUserId Source

Constructors

AuthIdUserId AuthId

Instances

QueryEvent AuthIdUserId
Method AuthIdUserId
SafeCopy AuthIdUserId
Typeable * AuthIdUserId
type MethodState AuthIdUserId = ProfileState
type MethodResult AuthIdUserId = Maybe UserId

newtype AuthIdProfiles Source

Constructors

AuthIdProfiles AuthId

Instances

QueryEvent AuthIdProfiles
Method AuthIdProfiles
SafeCopy AuthIdProfiles
Typeable * AuthIdProfiles
type MethodState AuthIdProfiles = ProfileState
type MethodResult AuthIdProfiles = Set Profile

data SetAuthIdUserId Source

Constructors

SetAuthIdUserId AuthId UserId

Instances

UpdateEvent SetAuthIdUserId
Method SetAuthIdUserId
SafeCopy SetAuthIdUserId
Typeable * SetAuthIdUserId
type MethodState SetAuthIdUserId = ProfileState
type MethodResult SetAuthIdUserId = ()

newtype CreateNewProfile Source

Constructors

CreateNewProfile (Set AuthId)

Instances

UpdateEvent CreateNewProfile
Method CreateNewProfile
SafeCopy CreateNewProfile
Typeable * CreateNewProfile
type MethodState CreateNewProfile = ProfileState
type MethodResult CreateNewProfile = UserId

data GenUserId Source

Constructors

GenUserId

Instances

UpdateEvent GenUserId
Method GenUserId
SafeCopy GenUserId
Typeable * GenUserId
type MethodState GenUserId = ProfileState
type MethodResult GenUserId = UserId

data GetProfileState Source

Constructors

GetProfileState

Instances

QueryEvent GetProfileState
Method GetProfileState
SafeCopy GetProfileState
Typeable * GetProfileState
type MethodState GetProfileState = ProfileState
type MethodResult GetProfileState = ProfileState

getUserId :: (Alternative m, Happstack m) => AcidState AuthState -> AcidState ProfileState -> m (Maybe UserId) Source