reduced data overhead with notifications

Handler/Buy.hs

@@ -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

Handler/NewUser.hs

@@ -32,8 +32,7 @@ newUserForm secs = renderDivs $ User
   <$> areq textField "Nickname" Nothing
   <*> pure 0
   <*> pure secs
-  <*> aopt emailField "E-mail" Nothing
+  <*> aopt emailField "E-mail eintragen, falls Benachrichtigungen erwünscht" Nothing
-  <*> areq boolField "Benachrichtigung bei Kauf" (Just False)
 
 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
+            [ UserEmail =. email
-            , UserNotify =. userConfNotify conf
             ]
-          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 -> Form (Maybe Text)
-modifyUserForm user = renderDivs $ UserConf
+modifyUserForm user = renderDivs $
-  <$> aopt emailField "E-Mail" (Just $ userEmail user)
+  aopt emailField "E-Mail eintragen, falls Benchrichtigungen erwünscht" (Just $ userEmail user)
-  <*> areq boolField "Benachrichtigung bei Kauf" (Just $ userNotify user)
 
-notify :: User -> UserConf -> IO ()
+notify :: User -> Maybe Text -> IO ()
-notify user conf
+notify user email
-  | (userEmail user) == (userConfEmail conf) && (userNotify user) == (userConfNotify conf) = return ()
+  | (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},
 

config/models

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