fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(build): make linter happy again

Browse Source
This commit is contained in:
Steffen Jost 2024-07-11 15:28:58 +02:00
parent ab28c8c243
commit c17c18f924
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Profile.hs
View File

@ -467,7 +467,7 @@ serveProfileR (uid, user@User{..}) = do
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
isAdmin <- checkAdmin isAdmin <- checkAdmin
thisUser <- fromMaybe uid <$> maybeAuthId thisUser <- fromMaybe uid <$> maybeAuthId
let changeEmailByUser = (not isAdmin || thisUser == uid) let changeEmailByUser = not isAdmin || thisUser == uid
changeEmailProper = userDisplayEmail /= stgDisplayEmail && userEmail /= stgDisplayEmail changeEmailProper = userDisplayEmail /= stgDisplayEmail && userEmail /= stgDisplayEmail
runDBJobs $ do runDBJobs $ do
update uid $ update uid $