mateamt/src/Control/Auth.hs
2019-09-07 02:48:16 +02:00

31 lines
564 B
Haskell

{-# LANGUAGE OverloadedStrings #-}
module Control.Auth where
import Servant
-- internal imports
import Types
import Model
authGet :: Int -> MateHandler AuthInfo
authGet uid =
getUserAuthInfo uid
authSend :: AuthRequest -> MateHandler AuthResult
authSend = processAuthRequest
authLogout :: Maybe Int -> Int -> MateHandler ()
authLogout (Just muid) luid = do
if muid == luid
then
processLogout luid
else
throwError $ err403
{ errBody = "Forbidden"
}
authLogout Nothing _ = do
throwError $ err403
{ errBody = "Forbidden"
}