reduced data overhead with notifications

This commit is contained in:
nek0 2015-04-10 17:00:19 +02:00
parent 9642e5a745
commit 1d19538a83
3 changed files with 17 additions and 25 deletions

View file

@ -55,8 +55,6 @@ postBuyR uId bId = do
notifyUser :: User -> Beverage -> Int -> App -> IO ()
notifyUser user bev price master = do
case userNotify user of
True ->
case userEmail user of
Just email ->
liftIO $ sendMail email "Einkauf beim Matematen"
@ -71,8 +69,6 @@ Der Matemat
|]
Nothing ->
return ()
False ->
return ()
getBuyCashR :: BeverageId -> Handler Html
getBuyCashR bId = do

View file

@ -32,8 +32,7 @@ newUserForm secs = renderDivs $ User
<$> areq textField "Nickname" Nothing
<*> pure 0
<*> pure secs
<*> aopt emailField "E-mail" Nothing
<*> areq boolField "Benachrichtigung bei Kauf" (Just False)
<*> aopt emailField "E-mail eintragen, falls Benachrichtigungen erwünscht" Nothing
data UserConf = UserConf
{ userConfEmail :: Maybe Text
@ -59,12 +58,11 @@ postModifyUserR uId = do
Just user -> do
((res, _), _) <- runFormPost $ modifyUserForm user
case res of
FormSuccess conf -> do
FormSuccess email -> do
runDB $ update uId
[ UserEmail =. userConfEmail conf
, UserNotify =. userConfNotify conf
[ UserEmail =. email
]
liftIO $ notify user conf
liftIO $ notify user email
setMessage "Nutzerdaten aktualisiert"
redirect $ SelectR uId
_ -> do
@ -74,16 +72,15 @@ postModifyUserR uId = do
setMessage "Nutzer unbekannt"
redirect $ HomeR
modifyUserForm :: User -> Form UserConf
modifyUserForm user = renderDivs $ UserConf
<$> aopt emailField "E-Mail" (Just $ userEmail user)
<*> areq boolField "Benachrichtigung bei Kauf" (Just $ userNotify user)
modifyUserForm :: User -> Form (Maybe Text)
modifyUserForm user = renderDivs $
aopt emailField "E-Mail eintragen, falls Benchrichtigungen erwünscht" (Just $ userEmail user)
notify :: User -> UserConf -> IO ()
notify user conf
| (userEmail user) == (userConfEmail conf) && (userNotify user) == (userConfNotify conf) = return ()
notify :: User -> Maybe Text -> IO ()
notify user email
| (userEmail user) == email = return ()
| otherwise = case userEmail user of
Just email -> sendMail email "Profiländerung"
Just address -> sendMail address "Profiländerung"
[stext|
Hallo #{userIdent user},

View file

@ -3,7 +3,6 @@ User
balance Int
timestamp Int
email Text Maybe
notify Bool default=False
UniqueUser ident
deriving Typeable Show
Beverage