diff --git a/src/Handler/Firm.hs b/src/Handler/Firm.hs index f102c1734..d4e9176f6 100644 --- a/src/Handler/Firm.hs +++ b/src/Handler/Firm.hs @@ -785,7 +785,7 @@ postFirmUsersR fsh = do , formSubmit = FormSubmit , formAnchor = Just addFormAnchor } - formResult fucrRes $ \FirmUserChangeRequest{..} -> when (isJust fucrPostalAddr || isJust fucrPostalAddr) $ do + formResult fucrRes $ \FirmUserChangeRequest{..} -> when (isJust fucrPostalPref || isJust fucrPostalAddr) $ do let changes = foldMap (\pp -> [UserPrefersPostal E.=. E.val pp]) fucrPostalPref <> foldMap (\pa -> [UserPostAddress E.=. E.justVal pa]) fucrPostalAddr -- seems weird, but: Nothing means no change, and not delete address! nrChanged <- runDB $ E.updateCount $ \usr -> do