diff --git a/src/Handler/Profile.hs b/src/Handler/Profile.hs
index 39a5b603a..1202e670f 100644
--- a/src/Handler/Profile.hs
+++ b/src/Handler/Profile.hs
@@ -467,7 +467,7 @@ serveProfileR (uid, user@User{..}) = do
     now <- liftIO getCurrentTime
     isAdmin <- checkAdmin
     thisUser <- fromMaybe uid <$> maybeAuthId
-    let changeEmailByUser = (not isAdmin || thisUser == uid)
+    let changeEmailByUser = not isAdmin || thisUser == uid
         changeEmailProper = userDisplayEmail /= stgDisplayEmail && userEmail /= stgDisplayEmail
     runDBJobs $ do
       update uid $