Happstack.Auth.Core.Auth

Synopsis

• data UserPass = UserPass {
  • upName :: UserName
  • upPassword :: HashedPass
  • upId :: UserPassId
  }
• newtype UserPassId = UserPassId {
  • unUserPassId :: Integer
  }
• newtype UserName = UserName {
  • unUserName :: Text
  }
• data UserPassError
  • = UsernameInUse UserName
  • | InvalidUserPassId UserPassId
  • | InvalidUserName UserName
  • | InvalidPassword
• userPassErrorString :: UserPassError -> String
• data SetUserName = SetUserName UserPassId Text
• data AuthState = AuthState {
  • userPasses :: UserPasses
  • nextUserPassId :: UserPassId
  • authMaps :: AuthMaps
  • nextAuthId :: AuthId
  • authTokens :: AuthTokens
  • defaultSessionTimeout :: Int
  }
• initialAuthState :: AuthState
• data AuthToken = AuthToken {
  • tokenString :: String
  • tokenExpires :: UTCTime
  • tokenLifetime :: Int
  • tokenAuthId :: Maybe AuthId
  • tokenAuthMethod :: AuthMethod
  }
• newtype AuthId = AuthId {
  • unAuthId :: Integer
  }
• newtype FacebookId = FacebookId {
  • unFacebookId :: UserId
  }
• data AuthMethod
  • = AuthIdentifier {
    • amIdentifier :: Identifier
    }
  • | AuthUserPassId {
    • amUserPassId :: UserPassId
    }
  • | AuthFacebook {
    • amFacebookId :: FacebookId
    }
• data AuthMethod_v1
  • = AuthIdentifier_v1 {
    • amIdentifier_v1 :: Identifier
    }
  • | AuthUserPassId_v1 {
    • amUserPassId_v1 :: UserPassId
    }
• data AuthMap = AuthMap {
  • amMethod :: AuthMethod
  • amAuthId :: AuthId
  }
• newtype HashedPass = HashedPass ByteString
• mkHashedPass :: Text -> IO HashedPass
• genAuthToken :: MonadIO m => Maybe AuthId -> AuthMethod -> Int -> m AuthToken
• data AskUserPass = AskUserPass UserPassId
• data CheckUserPass = CheckUserPass Text Text
• data CreateUserPass = CreateUserPass UserName HashedPass
• data SetPassword = SetPassword UserPassId HashedPass
• data AddAuthToken = AddAuthToken AuthToken
• data AskAuthToken = AskAuthToken String
• data UpdateAuthToken = UpdateAuthToken AuthToken
• data DeleteAuthToken = DeleteAuthToken String
• data GenAuthId = GenAuthId
• data AddAuthMethod = AddAuthMethod AuthMethod AuthId
• data NewAuthMethod = NewAuthMethod AuthMethod
• data RemoveAuthIdentifier = RemoveAuthIdentifier Identifier AuthId
• data IdentifierAuthIds = IdentifierAuthIds Identifier
• data FacebookAuthIds = FacebookAuthIds FacebookId
• data AddAuthUserPassId = AddAuthUserPassId UserPassId AuthId
• data RemoveAuthUserPassId = RemoveAuthUserPassId UserPassId AuthId
• data UserPassIdAuthIds = UserPassIdAuthIds UserPassId
• data AskAuthState = AskAuthState
• data SetDefaultSessionTimeout = SetDefaultSessionTimeout Int
• data GetDefaultSessionTimeout = GetDefaultSessionTimeout
• addAuthCookie :: Happstack m => AcidState AuthState -> Maybe AuthId -> AuthMethod -> m ()
• deleteAuthCookie :: (Happstack m, Alternative m) => AcidState AuthState -> m ()
• getAuthId :: (Alternative m, Happstack m) => AcidState AuthState -> m (Maybe AuthId)
• getAuthToken :: (Alternative m, Happstack m) => AcidState AuthState -> m (Maybe AuthToken)

Documentation