nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

code deduplication

Browse source
This commit is contained in:
nek0 2019-10-14 17:39:38 +02:00
parent 3a5cb7c5ac
commit 892d3f0610
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Control/Auth.hs
View file

@ -87,14 +87,10 @@ authManageDeleteAuth (Just (uid, method)) adid = do
case authOverviewMethod currentad of
PrimaryPass -> if validateDeletion ads
then void (deleteAuthDataById adid conn)
else throwError $ err406
{ errBody = "You need at least one primary password or challenge response authentication"
}
else throwUnacceptableDeletionError
ChallengeResponse -> if validateDeletion ads
then void (deleteAuthDataById adid conn)
else throwError $ err406
{ errBody = "You need at least one primary password or challenge response authentication"
}
else throwUnacceptableDeletionError
_ -> void $ deleteAuthDataById adid conn
else
throwError $ err401
@ -107,6 +103,10 @@ authManageDeleteAuth (Just (uid, method)) adid = do
authOverviewMethod ad == ChallengeResponse)
ads
)
throwUnacceptableDeletionError =
throwError $ err406
{ errBody = "You need at least one primary password or challenge response authentication"
}
authManageDeleteAuth Nothing _ = do
throwError $ err401
{ errBody = "Unauthorized access"